Subversion Repositories wimsdev

Rev

Blame | Last modification | View Log | RSS feed

  1. #!/bin/sh
  2.  
  3. # INPUT : $duration,$date_format
  4. # returns the date it will be in $duration seconds, formated as $date_format
  5. exec perl <<'EOF'
  6. use strict;
  7. use warnings;
  8. use Time::Piece;
  9.  
  10. my ($duration,$date_format)=(0,"%Y-%m-%d - %T");
  11.  
  12. if($ENV{'wims_exec_parm'}){
  13.   my @params = split(',', $ENV{'wims_exec_parm'});
  14.   $duration=$params[0];
  15.   if($#params>0){$date_format=$params[1];}
  16. }
  17.  
  18. my $Start = localtime;
  19. my $End = $Start + $duration;
  20. print $End->strftime($date_format)."\n";
  21.  
  22. EOF
  23.