[Bio] / FigKernelScripts / run_peg_job_worker.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/run_peg_job_worker.pl

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

revision 1.2, Thu Feb 10 16:57:33 2005 UTC revision 1.3, Mon Feb 14 17:28:40 2005 UTC
# Line 28  Line 28 
28  while (1)  while (1)
29  {  {
30      my $work = $jobmgr->get_work($worker);      my $work = $jobmgr->get_work($worker);
31    
32        if (!$work)
33        {
34            print "Work done\n";
35            last;
36        }
37        my($id, $input) = @$work;
38        print "Got work id=$id\n";
39        print $input;
40      my $output = "finished $work $what\n";      my $output = "finished $work $what\n";
41      $what++;      $what++;
42      $jobmgr->work_done($work, $output);      $jobmgr->work_done($work, $output);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3