My Opera is closing 1st of March

M.I.T = Multimedia IT dept.

Subscribe to RSS feed

pass argument (ex. time) to perl CGI script

, ,

#! /usr/bin/perl

my $input=$ARGV[0];

# get localtime via perl function
($sec,$min,$hour,$day,$mon,$year)=localtime(time+86400*$input);
$mon++;
if (length ($mon) == 1) {$mon = '0'.$mon;}
if (length ($day) == 1) {$day = '0'.$day;}
$year+=1900;
February 2014
M T W T F S S
January 2014March 2014
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28