[Bio] / FigKernelPackages / Subsystem.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Subsystem.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15, Wed Jun 16 17:33:53 2004 UTC revision 1.16, Thu Jun 17 18:31:45 2004 UTC
# Line 732  Line 732 
732    
733      my $now = time();      my $now = time();
734    
     my $job_id = strftime("%m-%d-%y:%H:%M:%S", localtime($now));  
   
735      if ($muser =~ /master:(.*)/)      if ($muser =~ /master:(.*)/)
736      {      {
737          $isMaster = 1;          $isMaster = 1;
# Line 762  Line 760 
760      my $assign_dir = "$FIG_Config::data/Assignments/$user/";      my $assign_dir = "$FIG_Config::data/Assignments/$user/";
761      &FIG::verify_dir($assign_dir);      &FIG::verify_dir($assign_dir);
762    
763        my $when= strftime("%m-%d-%y:%H:%M:%S", localtime($now));
764        my $job_id = "${when}:sss:$ss_name";
765    
766      my $seed = &FIG::cgi_url() . "/";      my $seed = &FIG::cgi_url() . "/";
767      my $export_part = "ssa.cgi?user=$muser&request=delete_or_export_ssa&export=";      my $export_part = "ssa.cgi?user=$muser&request=delete_or_export_ssa&export=";
768    
# Line 812  Line 813 
813  {  {
814      my($app_read, $app_write, $log);      my($app_read, $app_write, $log);
815    
816      open($log, ">$ss_dir/extension.log");      open($log, ">$ss_dir/$job_id.log");
817    
818      #      #
819      # Start the actual application with stdin and stdout redirected      # Start the actual application with stdin and stdout redirected

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3