#!/usr/local/bin/perl #------------------------------ # Transfer MIME Header #------------------------------ print "Content-type: text/html\n\n"; #------------------------------ # Setting Variable #------------------------------ $URL = "http://home.netyou.jp/77/future/"; $HOME = "../"; $QUERY_STRING = $ENV{'QUERY_STRING'}; @qs=split(/&/,$QUERY_STRING); $TEMPLATE = $HOME . $qs[0]; $FCOUNT = $HOME . $qs[1]; $_ = `date`; chop; $LDATE = $_; #------------------------------ # Count Get & Modify count_file #------------------------------ $count = 0; if ( -e $FCOUNT ) { open(INFILE, "< $FCOUNT"); while() { $count = $_ + 0; } close(INFILE); } $count++; open(OUTFILE, "> $FCOUNT"); print OUTFILE "$count\n"; close(OUTFILE); #------------------------------ # Count Split #------------------------------ $tmp=$count; for($i = 0;$i < 6; $i++) { $place[$i] = $tmp % 10; $tmp = int($tmp / 10); } #------------------------------ # HTML Spool #------------------------------ print "\n"; print "\n"; print "Future Sample Page\n"; print ""; print "\n"; $flag=0; open(IN,"<$TEMPLATE"); while (){ if (//){ print ""; for($i = 5; $i >= 0; $i--) { if($flag==0 && $place[$i]==0) { print ""; } else { $flag=1; print ""; } } print ""; } else { print; } } close(IN);