X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=blobdiff_plain;f=mkgallery.pl;h=7857f4373490290a2fb0bd4a9423b40a55923cb1;hp=7efd5c4209209b42e03497f7b6ae9ee29e23bad2;hb=2b0323392913d7822459e273f666de8d1992b5cb;hpb=c753aab96a7fc45d6d9f751e5b2cf76fc45a402b

diff --git a/mkgallery.pl b/mkgallery.pl
index 7efd5c4..7857f43 100755
--- a/mkgallery.pl
+++ b/mkgallery.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id$
+my $version='$Id$';
 
 # Recursively create image gallery index and slideshow wrappings.
 # Makes use of modified "slideshow" javascript by Samuel Birch
@@ -489,14 +489,16 @@ sub makeaux {
 					-head=>meta({-http_equiv=>'Refresh',
 						-content=>"3; url=$fwdref"}),
 					-style=>{-src=>$inc."gallery.css"},
-					),"\n";
+					),"\n",
+					comment("Created by ".$version),"\n";
 						
 			} else {
 				print $F start_html(-title=>$title,
 					-encoding=>"utf-8",
 					-bgcolor=>"#808080",
 					-style=>{-src=>$inc."gallery.css"},
-					),"\n";
+					),"\n",
+					comment("Created by ".$version),"\n";
 			}
 			print $F start_table({-class=>'navi'}),start_Tr,"\n",
 				td(a({-href=>"../index.html"},"Index")),"\n",
@@ -530,6 +532,7 @@ sub makeaux {
 					{-src=>$inc."urlparser.js"},
 					{-src=>$inc."infopage.js"},
 				]),"\n",
+			comment("Created by ".$version),"\n",
 			start_center,"\n",
 			h1($title),"\n",
 			table({-class=>'ipage'},
@@ -577,7 +580,8 @@ sub startindex {
 				{-src=>$inc."slideshow.js"},
 				{-src=>$inc."gallery.js"},
 				{-code=>"var incPrefix='$inc';"}
-			]),
+			]),"\n",
+		comment("Created by ".$version),"\n",
 		a({-href=>"../index.html"},"UP"),"\n",
 		start_center,"\n",
 		h1($title),"\n",