Update sources suite
[grml-infrastructure.git] / source-report / gen_index
index ab539f9..9a516ee 100755 (executable)
@@ -1,4 +1,12 @@
 #!/usr/bin/perl
+# Filename:      gen_index
+# Purpose:       Generates the index.html overview of all source repos 
+# Authors:       grml-team (grml.org), (c) Alexander Wirt
+# Bug-Reports:   see http://grml.org/bugs/
+# License:       This file is licensed under the GPL v2.
+# Latest change: So Mai 06 22:06:09 CEST 2007 [formorer]
+################################################################################
+
 
 use strict; 
 use warnings;
@@ -20,7 +28,8 @@ print $fh "<center><h1><a href='http://grml.org/'>GRML</a> Source Repository</h1
 my $t = new HTML::Table(
                                 -cols => 5,
                                 -border=>1,
-                                -head=> ['Release','Packages','Sources', 'Errors', 'Last updated', 'source.list entry'],
+                                -head=> ['Release','Packages','Sources',
+                               'Errors', 'Last updated', 'sources.list entry'],
                         );
 
 foreach my $releasefile (@status_files) {
@@ -36,7 +45,7 @@ foreach my $releasefile (@status_files) {
                if (/^Packages: (.*)$/) { $packages = $1; next; }
                if (/^Baseurl: (.*)$/) { $baseurl = $1; next; }
        }
-       $t->addRow(     "<a href='$baseurl'>$release</a>", 
+       $t->addRow(     "<a href='$baseurl'>".lc($release)."</a>", 
                        "$packages", 
                        "$sources",
                        "$errors",