#!/usr/local/bin/perl # # This Perl Script was Programmed by Hideaki `ArctanX' TANABE # 1996/12/19 # # Usage:%bar_calendar.pl # # # # # # # in HTML, use like following with SSI(Server Side Include) # # # get gif_filename(with pathname) from command line $gif_file_year = $ARGV[0]; $gif_file_month = $ARGV[1]; $gif_file_day = $ARGV[2]; $gif_file_yscale = $ARGV[3]; $gif_file_mscale = $ARGV[4]; $gif_file_dscale = $ARGV[5]; # get today date ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime; # set parameter for calculating bar length $year_ratio = 60; $month_ratio = 20; $day_ratio = 10; $year_offset1 = 80; $year_offset2 = 95; $month_offset = 80; $day_offset = 50; # calculate bar length $length_year = ($year - $year_offset2) * $year_ratio + $year_offset1; $length_month = $mon * $month_ratio + $month_offset; $length_day = $mday * $day_ratio + $day_offset; # output HTML print "\"\"
\n"; print "\"\"
\n"; print "\"\"
\n"; print "\"\"
\n"; print "\"\"
\n"; print "\"\"
\n"; #end.