Subversion Repositories wimsdev

Rev

Rev 11295 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. #!/bin/sh
  2. exec perl <<'EOF'
  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. }
  18.  
  19. EOF
  20.