|
version 1.5, 2012/12/20 16:18:45
|
version 1.7, 2013/01/10 14:25:57
|
|
Line 10 use Data::Dumper;
|
Line 10 use Data::Dumper;
|
| my $ver = q/$Id$/; |
my $ver = q/$Id$/; |
| my $comicFile = "comics.conf"; |
my $comicFile = "comics.conf"; |
| my %comics = &readComicConfig ( $comicFile ); |
my %comics = &readComicConfig ( $comicFile ); |
| my %dates = &fetchDates(); |
|
| my $days_ago = 0; # Set this to fetch comics from X days ago |
my $days_ago = 0; # Set this to fetch comics from X days ago |
| |
my %dates = &fetchDates(); |
| my $baseDir = $comics{'configs'}{'base_directory'} || "."; |
my $baseDir = $comics{'configs'}{'base_directory'} || "."; |
| my $imageDir = $baseDir . "/" . ( $comics{'configs'}{'image_directory'} || "images" ) . |
my $imageDir = $baseDir . "/" . ( $comics{'configs'}{'image_directory'} || "images" ) . |
| "/$dates{'mon2'}$dates{'year2'}"; |
"/$dates{'mon2'}$dates{'year2'}"; |
|
Line 177 sub writeFooter {
|
Line 177 sub writeFooter {
|
| <center> |
<center> |
| <font size="2"> |
<font size="2"> |
| Generated on: <font color="green">$sysDate</font><br/> |
Generated on: <font color="green">$sysDate</font><br/> |
| Version: <font color="green">$ver</font></font> |
Version: <font color="green">$ver</font><br /> |
| |
CVS: <a href="http://demandred.dyndns.org/cgi-bin/cvsweb/comics/">http://demandred.dyndns.org/cgi-bin/cvsweb/comics/</a> |
| <p> |
<p> |
| <a href="http://validator.w3.org/check?uri=referer"><img |
<a href="http://validator.w3.org/check?uri=referer"><img |
| src="http://www.w3.org/Icons/valid-xhtml10-blue" alt="Valid XHTML 1.0 Transitional" height="31" width="88" border="0" /></a> |
src="http://www.w3.org/Icons/valid-xhtml10-blue" alt="Valid XHTML 1.0 Transitional" height="31" width="88" border="0" /></a> |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fetch.pl.new CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / comics