Rev 9640 | Rev 11295 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9640 | Rev 9904 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | #! |
1 | #!/bin/sh |
| - | 2 | exec perl <<'EOF' |
|
| 2 | use Time::Local; |
3 | use Time::Local; |
| 3 | push (@ARGV,split(' ', $ENV{'wims_exec_parm'})) if ($ENV{'wims_exec_parm'}); |
4 | push (@ARGV,split(' ', $ENV{'wims_exec_parm'})) if ($ENV{'wims_exec_parm'}); |
| 4 | my ($option)=shift @ARGV; |
5 | my ($option)=shift @ARGV; |
| 5 | if ($option==1) { |
6 | if ($option==1) { |
| 6 | my ($day,$month,$year)=@ARGV; |
7 | my ($day,$month,$year)=@ARGV; |
| Line 12... | Line 13... | ||
| 12 | if ($mday <10) { $mday="0" . $mday }; |
13 | if ($mday <10) { $mday="0" . $mday }; |
| 13 | $mon=$mon+1; |
14 | $mon=$mon+1; |
| 14 | if($mon<10) {$mon="0" . $mon}; |
15 | if($mon<10) {$mon="0" . $mon}; |
| 15 | print $mday . " " . $mon . " " . eval($year+1900) . " " . $wday . " " . $yday . " " . $isdst |
16 | print $mday . " " . $mon . " " . eval($year+1900) . " " . $wday . " " . $yday . " " . $isdst |
| 16 | } |
17 | } |
| - | 18 | ||
| - | 19 | EOF |
|