use Date::Manip;
use Roman;
print "input a date \n";
$inputDate = <>;
$curDate = `date '+%m/%d/%y%n'`;
$Date = ParseDate($inputDate);
$DateNow = ParseDate($curDate);
if ($Date > $DateNow)
{
print "you're from the future";
exit;
}
if (! $Date)
{
print "error";
exit;
}
print "$Date";
print "\n";
print "$curDate";
print "\n";
$delta = DateCalc($Date,$DateNow, 1, 1);
print "$delta";
print "\n";
$delta = substr($delta, 1);
$curDate = `date '+%m/%d/%y%n'`;
$Date = ParseDate($inputDate);
$DateNow = ParseDate($curDate);
if ($Date > $DateNow)
{
print "you're from the future";
exit;
}
if (! $Date)
{
print "error";
exit;
}
print "$Date";
print "\n";
print "$curDate";
print "\n";
$delta = DateCalc($Date,$DateNow, 1, 1);
print "$delta";
print "\n";
$delta = substr($delta, 1);
@deltaA = split(/:/, $delta);
print "@deltaA \n";
print "$deltaA[0]"
if($deltaA[0] != "0"); <-----------------------------------------Always returns true.
{
print "test \n";
#exit;
print "@deltaA \n";
print "$deltaA[0]"
}
exit;