#!/usr/local/bin/perl require 'timelocal.pl'; # # This Perl Script was Programmed by Hideaki `ArctanX' TANABE # 1996/11/08 # 1999/10/11 Updated # # Usage:%countdown.pl # # in HTML, use like following with SSI(Server Side Include) # # # set date from command line $my_year = $ARGV[0] - 1900; $my_mon = $ARGV[1] - 1; $my_mday = $ARGV[2]; $my_hours = $ARGV[3]; $my_min = $ARGV[4]; $my_sec = $ARGV[5]; $x_time = &timelocal($my_sec,$my_min,$my_hours,$my_mday,$my_mon,$my_year); # set now time $now = time; # calc time if ($x_time >= $now) { $diff = $x_time - $now; } else { $diff = $now - $x_time; print "-"; } $d_day = int($diff / 86400); $d_hour = int(($diff - (86400 * $d_day)) / 3600); $d_min = int(($diff - (86400 * $d_day) - (3600 * $d_hour)) / 60); $d_sec = $diff % 60; # print time print $d_day,"“ú",$d_hour,"ŽžŠÔ",$d_min,"•ª",$d_sec,"•b"; # end