#!/usr/bin/perl print "Content-Type: text/html\n\n"; print "
\n"; require "./simpleget.pl"; use CGI; use CGI::Carp 'fatalsToBrowser'; $cgi = new CGI; $cdate = $cgi->param('date'); $y = $cgi->param('y'); $m = $cgi->param('m'); $d = $cgi->param('d'); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $thismonth=$mon+1; $year = substr($year,-2,2); if ($thismonth < 10) { $thismonth = join '', 0, $thismonth; } if ($mday < 10) { $thisday = join '', 0, $mday; } else { $thisday = $mday; } $filedate = "$year$thismonth$thisday"; if ($cdate eq "") { $date = $filedate; } else { if ($cdate < 10) { $cdate = join '', 0, $cdate; } $date = "$year$thismonth$cdate"; } if (($y != 0) and ($m != 0) and ($d != 0)) { $date = sprintf("%2.2u",$y) . sprintf("%2.2u",$m) . sprintf("%2.2u",$d); } $localfile = "/www/ifs24.de/bill.de/pinup/images/" . $date . ".xxx"; $url = "www.bill.de/pinup/images/" . $date . ".xxx"; print ""; if (-e $localfile) { print "