Subversion Repositories wimsdev

Rev

Rev 11295 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  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. }
  17.