[stp-svn] SF.net SVN: stp: [319] trunk/Test-Sut/lib/Test/Sut/Upload/Email.pm

[<jud...@us...>]

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.