[Bio] / FortyEight / PipelineUtils.pm Repository:
ViewVC logotype

Diff of /FortyEight/PipelineUtils.pm

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

revision 1.2, Wed Jan 27 17:25:32 2010 UTC revision 1.3, Wed Jan 27 17:34:30 2010 UTC
# Line 132  Line 132 
132    
133      return $fs_resource;      return $fs_resource;
134  }  }
135    
136    sub read_qstat
137    {
138        if (!open(Q, "qstat  -f -s prs -u rastprod |"))
139        {
140            warn "Could not read queue status: $!\n";
141            return;
142        }
143    
144        my $qstat = {};
145        my $finished;
146        my $queue;
147        my $host;
148        while (<Q>)
149        {
150    
151            if (/FINISHED JOBS/)
152            {
153                $finished++;
154                undef $queue;
155                undef $host;
156                next;
157            }
158            if (/^([^@]+)@(\S+)/)
159            {
160                $queue = $1;
161                $host = $2;
162            }
163            elsif (/^----/)
164            {
165                undef $queue;
166                undef $host;
167            }
168    
169            if (/^(\d+)\s+(.*)/)
170            {
171                my $jobid = $1;
172                my $rest = $2;
173                my($uptime, $job, $user, $status, $date, $time, $slots) = split(/\s+/, $rest);
174    #           print "Got job=$jobid status=$status user=$user date=$date time=$time finished=$finished\n";
175                $status = "done" if $finished;
176                my $ent = { id => $jobid, status => $status, user => $user, date => $date, time => $time, name => $job };
177    
178                $ent->{queue} = $queue if $queue;
179                $ent->{host} = $host if $host;
180    
181                $qstat->{$jobid} = $ent;
182            }
183        }
184        return $qstat;
185    }
186    
187    1;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3