Ok guys i think i have found one solution to my problem :D
i called my own scribt back again. i have done it for only i button but it seems to be working :D
the link http://www.cgi101.com/learn/ given by toolic helped me, thanks.
so any other solutions apart from this one??
#!/usr/bin/perl -w
use CGI qw(:all) ;
my $today;
my $thismonth;
my $thisyear;
chomp($today = `date +"%-d"`);
chomp($thismonth = `date +"%-m"`);
chomp($thisyear = `date +"%Y"`);
my $cal;
my $dir;
$cgi = CGI->new;
$dir=$cgi->param("dir");
if($cgi->param("today") && $cgi->param("thismonth") && $cgi->param("th
+isyear"))
{
if($dir eq "back")
{
$today=$cgi->param("today");
$today=$today-1;
}
}
print $cgi->header,$cgi->start_html("$today.$thismonth.$thisyear");
print<<HTML;
<table border=1>
<tr>
<td><form name="input" action="date.cgi" method="POST">
<input type="hidden" name="today" value="$today">
<input type="hidden" name="thismonth" value="$thismonth">
<input type="hidden" name="thisyear" value="$thisyear">
<input type="hidden" name="dir" value="back">
<input type="submit" value="Yesterday"></td>
</form>
<td>$today</td>
<td>$thismonth</td>
<td>$thisyear</td>
<td><button type="button">Tomorrow</td>
<td><button type="button">Set Title</td>
</tr>
</table>
HTML
print $cgi->end_html;
|