#!/usr/bin/perl -w use CGI qw/:standard/; $in=new CGI; no warnings; $orderID = $in->param('oid'); ($Second,$Minute,$Hour,$Day,$Month,$Year,$WeekDay,$DayOfYear,$IsDST) = localtime(time()); $nminute = $Minute; $nsecond = $Second; $nhour = $Hour; $RealMonth = $Month + 1; # Months of the year are not zero-based if($Day < 10) { $Day = "0" . $Day;}# add a leading zero to one-digit days if($Year >= 100) {$FixedYear = $Year - 100;} else { $FixedYear = $Year;} if($RealMonth eq "1"){$aMonth = "Jan"; $nMonth = "Feb";} if($RealMonth eq "2"){$aMonth = "Feb"; $nMonth = "Mar";} if($RealMonth eq "3"){$aMonth = "Mar"; $nMonth = "Apr";} if($RealMonth eq "4"){$aMonth = "Apr"; $nMonth = "May";} if($RealMonth eq "5"){$aMonth = "May"; $nMonth = "Jun";} if($RealMonth eq "6"){$aMonth = "Jun"; $nMonth = "Jul";} if($RealMonth eq "7"){$aMonth = "Jul"; $nMonth = "Aug";} if($RealMonth eq "8"){$aMonth = "Aug"; $nMonth = "Sep";} if($RealMonth eq "9"){$aMonth = "Sep"; $nMonth = "Oct";} if($RealMonth eq "10"){$aMonth = "Oct"; $nMonth = "Nov";} if($RealMonth eq "11"){$aMonth = "Nov"; $nMonth = "Dec";} if($RealMonth eq "12"){$aMonth = "Dec"; $nMonth = "Jan";} $today = "$RealMonth\/$Day\/$Fixed_Year"; $fdate = $aMonth.$Day; ## check to see if there's an order ID if($orderID eq ''){$orderID = $fdate."-".$nhour."-".$nminute."-".$nsecond.".db";} print ($in->header); print <<"HTML";
|
|