comics/fetch.pl.new - diff

Return to fetch.pl.new CVS log

Up to [Local Repository] / comics

version 1.9, 2013/02/25 13:48:21	version 1.10, 2013/02/26 14:24:14
Line 171 sub writeMainIndex ($$) {	Line 171 sub writeMainIndex ($$) {
#######################################################################	#######################################################################
sub writeFooter {	sub writeFooter {
my ( $date ) = @_;	my ( $date ) = @_;
my $indexFile = $indexDir . "/index-" . $date->{'year2'} . $date->{'mon2'} .	my $indexFile = $indexDir . "/index-" . $days[$date->{'dow'}] .
	"-" . $date->{'year2'} . $date->{'mon2'} .
$date->{'day2'} . ".html";	$date->{'day2'} . ".html";
my $sysDate = `date`;	my $sysDate = `date`;

Line 209 sub checkDir ($$) {	Line 210 sub checkDir ($$) {
#######################################################################	#######################################################################
sub writeTitle ($$) {	sub writeTitle ($$) {
my ( $date ) = @_;	my ( $date ) = @_;
my $indexFile = $indexDir . "/index-" . $date->{'year2'} . $date->{'mon2'} .	my $indexFile = $indexDir . "/index-" . $days[$date->{'dow'}] .
	"-" . $date->{'year2'} . $date->{'mon2'} .
$date->{'day2'} . ".html";	$date->{'day2'} . ".html";
my $today = $days[$date->{'dow'}] . " " . $date->{'mon'} . "/" . $date->{'day'} . "/" . $date->{'year'};	my $today = $days[$date->{'dow'}] . " " . $date->{'mon'} . "/" . $date->{'day'} . "/" . $date->{'year'};