[Pkg-doc-linux-devel] r216 - trunk/website

[Frank Lichtenheld]

Author: djpig
Date: 2006-04-09 19:47:22 +0000 (Sun, 09 Apr 2006)
New Revision: 216

Modified:
   trunk/website/create_index_pages.pl
Log:
Add footer with date of last page generation


Modified: trunk/website/create_index_pages.pl
===================================================================
--- trunk/website/create_index_pages.pl	2006-04-09 19:46:57 UTC (rev 215)
+++ trunk/website/create_index_pages.pl	2006-04-09 19:47:22 UTC (rev 216)
@@ -8,6 +8,13 @@
 my $dir = $ARGV[0];
 my $html_dir = $ARGV[1];
 
+sub footer {
+	my $text = hr();
+	$text .= address("Last Generated: ".gmtime()." UTC");
+
+	return $text;
+}
+
 opendir DIR, $dir or die "couldn't open $dir: $!";
 
 while (my $category = readdir DIR) {
@@ -50,6 +57,7 @@
     print CATFILE h1("$category HOWTO licenses");
     print CATFILE p( "Follow the links to get a list of HOWTOs currently distributed under the license. There are currently $howtos HOWTOs in this category." );
     print CATFILE ul(li( [ map { a({-href=>"lic_$_.html"},$_)." (".scalar(@{$howtos{$_}}).")"} sort @licenses ] ));
+    print CATFILE footer();
     print CATFILE end_html();
 
     foreach (0 .. $#licenses) {
@@ -60,6 +68,7 @@
 	print LICFILE h1($licenses[$_]);
 	print LICFILE ul( li( [ sort @{$howtos{$licenses[$_]}} ] ) );
 	print LICFILE pre( $licensetexts[$_] );
+	print LICFILE footer();
 	print LICFILE end_html();
     }
 }