Subversion Repositories wimsdev

Rev

Rev 11295 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11295 Rev 11297
Line 1... Line 1...
1 
#!/bin/sh
 1 
#!/bin/sh
2 
exec /usr/bin/perl  <<'EOF'
 2 
exec perl <<'EOF'
3 
use Time::Local;
 3 
use Time::Local;
4 
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'});
5 
my ($option)=shift @ARGV;
 5 
my ($option)=shift @ARGV;
6 
if ($option==1) {
 6 
if ($option==1) {
7 
 my ($day,$month,$year)=@ARGV;
 7 
 my ($day,$month,$year)=@ARGV;