From f90a95863ab9b0bca61657fdaf0e6a50d265ff66 Mon Sep 17 00:00:00 2001
From: Frank Lichtenheld <frank@lichtenheld.de>
Date: Fri, 24 Nov 2006 01:30:19 +0000
Subject: [PATCH] Also create source versions for suite_index

---
 bin/create_index_pages | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/bin/create_index_pages b/bin/create_index_pages
index 69b60a2..23dd0e6 100755
--- a/bin/create_index_pages
+++ b/bin/create_index_pages
@@ -67,11 +67,10 @@ foreach my $s (@SUITES) {
 	    next;
 	};
 	print "writing $key/index (lang=$lang)...\n";
-	open $pages{$key}{$lang}{index}{fh}, '>', "$wwwdir/$key/index.$lang.html.new"
-	    or die "can't open index file for output: $!";
 
 	my %content = ( subsections => [], suite => $s,
-			lang => $lang, charset => $charset );
+			lang => $lang, charset => $charset,
+			suites => \@SUITES );
 	$content{make_search_url} = sub { return &Packages::CGI::make_search_url(@_) };
 	$content{make_url} = sub { return &Packages::CGI::make_url(@_) };
         # needed to work around the limitations of the the FILTER syntax
@@ -89,14 +88,26 @@ foreach my $s (@SUITES) {
 		};
 	    }
 	}
-	
+
+	open $pages{$key}{$lang}{index}{fh}, '>', "$wwwdir/$key/index.$lang.html.new"
+	    or die "can't open index file for output: $!";
 	print {$pages{$key}{$lang}{index}{fh}} $template->page( 'suite_index', \%content );
 	print {$pages{$key}{$lang}{index}{fh}} $template->trailer( 'index', $lang, \@LANGUAGES );
 	close $pages{$key}{$lang}{index}{fh} or
 	    warn "can't close index file $wwwdir/$key/index.$lang.html.new: $!";
 	rename( "$wwwdir/$key/index.$lang.html.new",
 		"$wwwdir/$key/index.$lang.html" );
-	
+
+	$content{source} = 'source';
+	open $pages{$key}{$lang}{source_index}{fh}, '>', "$wwwdir/source/$key/index.$lang.html.new"
+	    or die "can't open index file for output: $!";
+	print {$pages{$key}{$lang}{source_index}{fh}} $template->page( 'suite_index', \%content );
+	print {$pages{$key}{$lang}{source_index}{fh}} $template->trailer( 'index', $lang, \@LANGUAGES );
+	close $pages{$key}{$lang}{source_index}{fh} or
+	    warn "can't close index file $wwwdir/source/$key/index.$lang.html.new: $!";
+	rename( "$wwwdir/source/$key/index.$lang.html.new",
+		"$wwwdir/source/$key/index.$lang.html" );
+
     }
 }
 setlocale( LC_ALL, 'C' ) or die "couldn't reset locale";
-- 
2.39.2