[Bio] / FortyEight / create_import_job.pl Repository:
ViewVC logotype

Diff of /FortyEight/create_import_job.pl

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

revision 1.1, Wed Sep 5 21:41:46 2007 UTC revision 1.2, Thu Sep 13 19:57:11 2007 UTC
# Line 164  Line 164 
164  #  #
165  # Scan for RAST jobs to import.  # Scan for RAST jobs to import.
166  #  #
167    # We update our NR component list with the peg features from the job,
168    # and we add the job directory of each to the rast.jobs file. This
169    # will be used later during the installation of these jobs into the SEED.
170    #
171    
172    open(JOBS, ">jobdir/rast.jobs") or die "Cannot create $jobdir/rast.jobs: $!";
173    
174  my @rast_jobs;  my @rast_jobs;
175  scan_rast_jobs(\@rast_jobs, $dir_rast_jobs);  scan_rast_jobs(\@rast_jobs, $dir_rast_jobs);
# Line 176  Line 182 
182    
183      print "RAST job #$j: $gid $gname\n";      print "RAST job #$j: $gid $gname\n";
184    
185        print JOBS $job->dir(), "\n";
186    
187      if (exists($NR_dirs{$gid}))      if (exists($NR_dirs{$gid}))
188      {      {
189          die "Rast job $j already exists in SEED server\n";          die "Rast job $j already exists in SEED server\n";
# Line 186  Line 194 
194      $NR_dirs{$gid} = {type => "rast_job", name => $gname, path => $job->orgdir,      $NR_dirs{$gid} = {type => "rast_job", name => $gname, path => $job->orgdir,
195                              fasta_path => $fasta, size => -s _ };                              fasta_path => $fasta, size => -s _ };
196  }  }
197    close(JOBS);
198    
199  open(F, ">$jobdir/all.nr.dirs");  open(F, ">$jobdir/all.nr.dirs");
200  open(F2, ">$jobdir/nr.sources");  open(F2, ">$jobdir/nr.sources");

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3