Parent Directory
| 
Revision Log
| 
Patch
| revision 1810 by ronalds, Tue Jun 22 11:47:12 2010 UTC | revision 2478 by ronalds, Tue Jan 10 10:37:00 2012 UTC | |
|---|---|---|
| # | Line 75 my @out = `$cmd`; | Line 75 my @out = `$cmd`; |
| 75 | my $poolname; | my $poolname; |
| 76 | my %pool; | my %pool; |
| 77 | foreach my $line ( @out ) { | foreach my $line ( @out ) { |
| 78 | if ( $line =~ /^POOL (\w+) / ) { | if ( $line =~ /^POOL ([^\s]+) / ) { |
| 79 | $poolname = $1; | $poolname = $1; |
| 80 | $pool{$poolname}{capacity} = 0; | $pool{$poolname}{capacity} = 0; |
| 81 | $pool{$poolname}{free} = 0; | $pool{$poolname}{free} = 0; |
|
||||||||
| grid.support@nikhef.nl | ViewVC Help |
| Powered by ViewVC 1.1.28 |