Update sources.list as currently deployed; gen_index: sort status files using Sort...

diff --git a/source-report/apt/etc/sources.list b/source-report/apt/etc/sources.list
index 7b0e822..4b3aea3 100644 (file)
--- a/source-report/apt/etc/sources.list
+++ b/source-report/apt/etc/sources.list
@@ -1,16 +1,17 @@
 deb     http://ftp.de.debian.org/debian sid main contrib non-free
 deb-src http://ftp.de.debian.org/debian sid main contrib non-free
 
-#deb     http://ftp.de.debian.org/debian testing main contrib non-free
-#deb-src http://ftp.de.debian.org/debian testing main contrib non-free
-#deb     http://ftp.de.debian.org/debian stable main contrib non-free
-#deb-src http://ftp.de.debian.org/debian stable main contrib non-free
+deb     http://ftp.de.debian.org/debian testing main contrib non-free
+deb-src http://ftp.de.debian.org/debian testing main contrib non-free
+
+deb     http://ftp.de.debian.org/debian stable main contrib non-free
+deb-src http://ftp.de.debian.org/debian stable main contrib non-free
 
 deb     http://ftp.de.debian.org/debian experimental main contrib non-free
 deb-src http://ftp.de.debian.org/debian experimental main contrib non-free
 
-deb-src http://snapshot.debian.org/archive/debian/20101215T205429Z/ sid main
-deb-src http://snapshot.debian.org/archive/debian/20101229T212510Z/ sid main
+deb-src http://snapshot.debian.org/archive/debian/20110509T163438Z/ sid main
+deb-src http://snapshot.debian.org/archive/debian/20110509T100937Z/ sid main
 
 deb-src http://deb.grml.org/ grml-stable main
 deb-src http://deb.grml.org/ grml-testing main

diff --git a/source-report/gen_index b/source-report/gen_index
index 9a516ee..5e2dc16 100755 (executable)
--- a/source-report/gen_index
+++ b/source-report/gen_index
@@ -32,7 +32,9 @@ my $t = new HTML::Table(
                                'Errors', 'Last updated', 'sources.list entry'],
                         );
 
-foreach my $releasefile (@status_files) {
+use Sort::Naturally;
+
+foreach my $releasefile (nsort(@status_files)) {
        open (my $pfh, '<', "$releasefile") 
                or die "Could not open statusfile '$releasefile': $!"; 
        my ($release, $packages, $sources, $errors, $lastupdated, $baseurl);