Rev 9904 | Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 9640 | bpr | 1 | #!/usr/bin/perl |
| 2 | use Time::Local; |
||
| 3 | push (@ARGV,split(' ', $ENV{'wims_exec_parm'})) if ($ENV{'wims_exec_parm'}); |
||
| 4 | my ($option)=shift @ARGV; |
||
| 5 | if ($option==1) { |
||
| 6 | my ($day,$month,$year)=@ARGV; |
||
| 7 | print timelocal(0,0,0,$day,$month-1,$year); |
||
| 8 | } else |
||
| 9 | { |
||
| 10 | my ($date)=@ARGV; |
||
| 11 | ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($date); |
||
| 12 | if ($mday <10) { $mday="0" . $mday }; |
||
| 13 | $mon=$mon+1; |
||
| 14 | if($mon<10) {$mon="0" . $mon}; |
||
| 15 | print $mday . " " . $mon . " " . eval($year+1900) . " " . $wday . " " . $yday . " " . $isdst |
||
| 16 | } |