User: SimonAW 
Date: 2010-03-04 00:49:09+0000
Added:
   de/www/downloads/other-sxw.html
   de/www/downloads/other.css

Modified:
   de/www/downloads/download-table-gen.pl
   de/www/downloads/other.tt

Log:
 Entwurf mit zwei Demo-Records

File Changes:

Directory: /de/www/downloads/
=============================

File [changed]: download-table-gen.pl
Url: 
http://de.openoffice.org/source/browse/de/www/downloads/download-table-gen.pl?r1=1.1&r2=1.2
Delta lines:  +54 -16
---------------------
--- download-table-gen.pl       2010-02-17 00:49:45+0000        1.1
+++ download-table-gen.pl       2010-03-04 00:49:06+0000        1.2
@@ -7,6 +7,42 @@
 use LWP::UserAgent;
 use XML::LibXML;
 use Template;
+use Data::Dumper;
+
+my $demo = {
+       baseurl => 'http://download.services.openoffice.org/files/localized',
+       records => {
+          'ca' => {
+                  'versions' => {
+                                  'windowsj' => 
'OOo_3.2.0_Win32Intel_install_wJRE_ca.exe',
+                                  'macosint' => 
'OOo_3.2.0_MacOSXIntel_install_ca.dmg',
+                                  'lin32rpm' => 
'OOo_3.2.0_LinuxIntel_install_ca.tar.gz',
+                                  'lin64deb' => 
'OOo_3.2.0_LinuxX86-64_install_ca_deb.tar.gz',
+                                  'windows' => 
'OOo_3.2.0_Win32Intel_install_ca.exe',
+                                  'lin32rpmj' => 
'OOo_3.2.0_LinuxIntel_install_wJRE_ca.tar.gz',
+                                  'lin32deb' => 
'OOo_3.2.0_LinuxIntel_install_ca_deb.tar.gz',
+                                  'lin64rpmj' => 
'OOo_3.2.0_LinuxX86-64_install_wJRE_ca.tar.gz'
+                                },
+                  'latest' => '3.2.0',
+                  'lang' => 'Katalanisch'
+                },
+          'da' => {
+                  'versions' => {
+                                  'lin32rpm' => 
'OOo_3.2.0_LinuxIntel_install_da.tar.gz',
+                                  'lin64deb' => 
'OOo_3.2.0_LinuxX86-64_install_da_deb.tar.gz',
+                                  'windows' => 
'OOo_3.2.0_Win32Intel_install_da.exe',
+                                  'lin32deb' => 
'OOo_3.2.0_LinuxIntel_install_da_deb.tar.gz',
+                                  'macosint' => 
'OOo_3.2.0_MacOSXIntel_install_da.dmg',
+                                  'windowsj' => 
'OOo_3.2.0_Win32Intel_install_wJRE_da.exe',
+                                  'macosppc' => 
'OOo_3.2.0_MacOSXPPC_install_da.dmg',
+                                  'lin32rpmj' => 
'OOo_3.2.0_LinuxIntel_install_wJRE_da.tar.gz',
+                                  'lin64rpmj' => 
'OOo_3.2.0_LinuxX86-64_install_wJRE_da.tar.gz'
+                                },
+                  'latest' => '3.2.0',
+                  'lang' => 'Dänisch'
+                }
+               }
+};
 
 my( $ua, $parser, $xc, $tt );
 
@@ -73,7 +109,8 @@
        $xc             = XML::LibXML::XPathContext->new;
        $tt             = Template->new;
 
-       print "Init OK\n";
+       #print "Init OK\n";
+       $tt->process( 'other.tt', $demo );
 }
 
 sub extract_links {
@@ -93,19 +130,17 @@
 
        my $items = extract_links( $base_url );
 
-       my $langobj = {};
-
        foreach my $item ( @{$items} ) {
                my $href = $item->getAttribute("href");
 
                if ( $href =~ /^([A-z]{2}(?:-[A-z]{2})?)\/$/ ) {
                        my $lang = $1;
+                       my $langobj = {};
 
                        if ( grep( /^$lang$/, keys(%lang_codes_map) ) > 0 ) {
-                               print "$lang found: " . $lang_codes_map{$lang}, 
"\n";
+                               #print "$lang found: " . 
$lang_codes_map{$lang}, "\n";
 
                                $langobj->{lang} = $lang_codes_map{$lang};
-                               $records->{$lang} = $langobj;
 
                                my $versions = extract_links( "$base_url/$lang" 
);
 
@@ -118,7 +153,9 @@
 
                                if ( @ooo_versions > 0 ) {
                                        my $latest_version = 
$ooo_versions[$#ooo_versions];
-                                       print "\tlatest version: " . 
$latest_version . " - checking platform availability\n";
+                                       #print "\tlatest version: " . 
$latest_version . " - checking platform availability\n";
+                                       
+                                       $langobj->{latest} = $latest_version;
 
                                        my $available_platforms = 
extract_links( "$base_url/$lang/$latest_version" );
 
@@ -130,6 +167,8 @@
                                                }
                                        }
 
+                                       my $version_map = {};
+
                                        foreach my $platform_key ( 
keys(%all_platforms) ) {
                                                my $P = 
$all_platforms{$platform_key};
 
@@ -137,12 +176,17 @@
                                                $P =~ s/\[%LANG%\]/$lang/;
 
                                                if ( grep( /$P/, @platforms ) > 
0 ) {
-                                                       print "\t\t$P\n";
+                                                       #print "\t\t$P\n";
+                                                       
$version_map->{$platform_key} = $P;
                                                }
                                        }
 
+                                       $langobj->{versions} = $version_map;
+                                       $records->{$lang} = $langobj;
+                                       print Dumper($records);
+
                                } else {
-                                       print "\t no versions available\n";
+                                       #print "\t no versions available\n";
                                }
 
                        } # /if grep lang
@@ -151,13 +195,7 @@
                
        } # /foreach items
 
-       my $vars = {
-               records => $records
-       };
-
-       $tt->process( 'table.tt', $vars );
-
 } # /sub run
 
-run;
-#initialize;
+#run;
+initialize;

File [added]: other-sxw.html
Url: 
http://de.openoffice.org/source/browse/de/www/downloads/other-sxw.html?rev=1.1&content-type=text/vnd.viewcvs-markup
Added lines: 70
---------------
<!DOCTYPE html>
<html>
        <head>
                <title>Titel</title>
                <meta http-equiv="Content-Type" 
content="text/html;charset=UTF-8">
                <link rel="stylesheet" type="text/css" href="other.css">
        </head>

        <body>

                <h1>Alle OpenOffice.org-Versionen</h1>

                <table summary="Alle Versionen">
                        <tr>
                                <td></td>
                                <td></td>
                                <td></td>

                                <td>Windows</td>
                                <td>Linux 32 bit (RPM)</td>
                                <td>Linux 32 bit (DEB)</td>
                                <td>Linux 64 bit (RPM)</td>
                                <td>Linux 64 bit (DEB)</td>
                                <td>MacOS Intel</td>
                                <td>MacOS PPC</td>
                                <td>Solaris x86</td>
                                <td>Solaris Sparc</td>
                        </tr>

                
                        
                        <tr>
                                <td>da</td>
                                <td>Dänisch</td>
                                <td>3.2.0</td>

                                <td><a 
href="http://download.services.openoffice.org/files/localized/da/3.2.0/OOo_3.2.0_Win32Intel_install_da.exe";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/da/3.2.0/OOo_3.2.0_LinuxIntel_install_da.tar.gz";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/da/3.2.0/OOo_3.2.0_LinuxIntel_install_da_deb.tar.gz";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/da/3.2.0/";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/da/3.2.0/OOo_3.2.0_LinuxX86-64_install_da_deb.tar.gz";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/da/3.2.0/OOo_3.2.0_MacOSXIntel_install_da.dmg";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/da/3.2.0/OOo_3.2.0_MacOSXPPC_install_da.dmg";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/da/3.2.0/";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/da/3.2.0/";>[N]</a></td>
                        </tr>
                
                        
                        <tr>
                                <td>ca</td>
                                <td>Katalanisch</td>
                                <td>3.2.0</td>

                                <td><a 
href="http://download.services.openoffice.org/files/localized/ca/3.2.0/OOo_3.2.0_Win32Intel_install_ca.exe";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/ca/3.2.0/OOo_3.2.0_LinuxIntel_install_ca.tar.gz";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/ca/3.2.0/OOo_3.2.0_LinuxIntel_install_ca_deb.tar.gz";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/ca/3.2.0/";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/ca/3.2.0/OOo_3.2.0_LinuxX86-64_install_ca_deb.tar.gz";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/ca/3.2.0/OOo_3.2.0_MacOSXIntel_install_ca.dmg";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/ca/3.2.0/";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/ca/3.2.0/";>[N]</a></td>
                                <td><a 
href="http://download.services.openoffice.org/files/localized/ca/3.2.0/";>[N]</a></td>
                        </tr>
                

                </table>

        </body>
</html>


File [added]: other.css
Url: 
http://de.openoffice.org/source/browse/de/www/downloads/other.css?rev=1.1&content-type=text/vnd.viewcvs-markup
Added lines: 4
--------------

td {
        border: 1px solid black;
}

File [changed]: other.tt
Url: 
http://de.openoffice.org/source/browse/de/www/downloads/other.tt?r1=1.1&r2=1.2
Delta lines:  +31 -3
--------------------
--- other.tt    2010-02-17 00:49:45+0000        1.1
+++ other.tt    2010-03-04 00:49:06+0000        1.2
@@ -3,7 +3,7 @@
        <head>
                <title>Titel</title>
                <meta http-equiv="Content-Type" 
content="text/html;charset=UTF-8">
-               <link rel="stylesheet" type="text/css" href="table.css">
+               <link rel="stylesheet" type="text/css" href="other.css">
        </head>
 
        <body>
@@ -11,10 +11,38 @@
                <h1>Alle OpenOffice.org-Versionen</h1>
 
                <table summary="Alle Versionen">
+                       <tr>
+                               <td></td>
+                               <td></td>
+                               <td></td>
+
+                               <td>Windows</td>
+                               <td>Linux 32 bit (RPM)</td>
+                               <td>Linux 32 bit (DEB)</td>
+                               <td>Linux 64 bit (RPM)</td>
+                               <td>Linux 64 bit (DEB)</td>
+                               <td>MacOS Intel</td>
+                               <td>MacOS PPC</td>
+                               <td>Solaris x86</td>
+                               <td>Solaris Sparc</td>
+                       </tr>
 
-               [% FOREACH r IN keys(records) %]
+               [% FOREACH k IN records.keys %]
+                       [% url = "$baseurl/$k/${records.$k.latest}" %]
                        <tr>
-                               <td>[% r.lang %]</td>
+                               <td>[% k %]</td>
+                               <td>[% records.$k.lang %]</td>
+                               <td>[% records.$k.latest %]</td>
+
+                               <td><a href="[% url %]/[% 
records.$k.versions.windows %]">[N]</a></td>
+                               <td><a href="[% url %]/[% 
records.$k.versions.lin32rpm %]">[N]</a></td>
+                               <td><a href="[% url %]/[% 
records.$k.versions.lin32deb %]">[N]</a></td>
+                               <td><a href="[% url %]/[% 
records.$k.versions.lin64rpm %]">[N]</a></td>
+                               <td><a href="[% url %]/[% 
records.$k.versions.lin64deb %]">[N]</a></td>
+                               <td><a href="[% url %]/[% 
records.$k.versions.macosint %]">[N]</a></td>
+                               <td><a href="[% url %]/[% 
records.$k.versions.macosppc %]">[N]</a></td>
+                               <td><a href="[% url %]/[% 
records.$k.versions.solx86 %]">[N]</a></td>
+                               <td><a href="[% url %]/[% 
records.$k.versions.solsparc %]">[N]</a></td>
                        </tr>
                [% END %]
 




---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]

Antwort per Email an