|
From: <jud...@us...> - 2006-07-21 17:26:47
|
Revision: 319 Author: judith_osdl Date: 2006-07-21 10:26:44 -0700 (Fri, 21 Jul 2006) ViewCVS: http://svn.sourceforge.net/stp/?rev=319&view=rev Log Message: ----------- Fix the `uptime` parsing. Modified Paths: -------------- trunk/Test-Sut/lib/Test/Sut/Upload/Email.pm Modified: trunk/Test-Sut/lib/Test/Sut/Upload/Email.pm =================================================================== --- trunk/Test-Sut/lib/Test/Sut/Upload/Email.pm 2006-07-20 21:49:52 UTC (rev 318) +++ trunk/Test-Sut/lib/Test/Sut/Upload/Email.pm 2006-07-21 17:26:44 UTC (rev 319) @@ -156,10 +156,12 @@ $size -= 5000000; } - my $load = `uptime |sed 's/.*load average:\s\{1,\}\(.*\) //'`; + my $load = `uptime`; + $load =~ s/^.*load average: (.*?), .*/$1/; while ( $load > 10 ){ sleep 30; - $load = `uptime |sed 's/.*load average:\s\{1,\}\(.*\) //'`; + $load = `uptime`; + $load =~ s/^.*load average: (.*?), .*/$1/; } if ( ! $msg->send() ){ $self->mail_user( This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |