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