← Back to branch summary

~ubuntu-branches/ubuntu/trusty/nordugrid-arc/trusty

« back to all changes in this revision

Viewing changes to src/services/a-rex/infoproviders/ARC0ClusterInfo.pm

  • Committer: Package Import Robot
  • Author(s): Mattias Ellert
  • Date: 2012-12-13 16:41:31 UTC
  • mfrom: (3.1.11 sid)
  • Revision ID: package-import@ubuntu.com-20121213164131-wii0p2fcv7e3en93
Tags: 2.0.1-1
* 2.0.1 Release
* Drop patches accepted upstream

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/services/a-rex/infoproviders/ARC0ClusterInfo.pm
331
331
            $q->{defaultwalltime} = int $qinfo->{defaultwallt}/60 if defined $qinfo->{defaultwallt};
332
332
            $q->{running} = $qinfo->{running} if defined $qinfo->{running};
333
333
            $q->{gridrunning} = $gridrunning{$share} || 0;   
334
 
            $q->{gridqueued} = $gridqueued{$share} || 0;    
335
 
            $q->{localqueued} = ($qinfo->{queued} - ( $gridqueued{$share} || 0 ));   
 
334
            $q->{gridqueued} = $gridqueued{$share} || 0;
 
335
            $q->{localqueued} = ($qinfo->{queued} - ( $gridqueued{$share} || 0 ));
 
336
            if ( $q->{localqueued} < 0 ) {
 
337
                $q->{localqueued} = 0;
 
338
            }  
336
339
            $q->{prelrmsqueued} = $prelrmsqueued{$share} || 0;
337
340
            if ( $sconfig->{totalcpus} ) {
338
341
                $q->{totalcpus} = $sconfig->{totalcpus}; # orphan
375
378
                $j->{rerunable} = $gmjob->{failedstate} ? $gmjob->{failedstate} : 'none'
376
379
                    if $gmjob->{status} eq "FAILED";
377
380
                $j->{comment} = [ $gmjob->{comment} ] if $gmjob->{comment};
 
381
                # added to record which was the submission interface
 
382
                if ( $gmjob->{interface} ) {
 
383
                        my $submittedstring = 'SubmittedVia='.$gmjob->{interface};
 
384
                        push(@{$j->{comment}}, $submittedstring);
 
385
                };
378
386
                $j->{reqcputime} = int $gmjob->{reqcputime}/60 if $gmjob->{reqcputime};
379
387
                $j->{reqwalltime} = int $gmjob->{reqwalltime}/60 if $gmjob->{reqwalltime};
380
388