stp-svn

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

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

Revision: 300
Author:   judith_osdl
Date:     2006-06-30 14:59:12 -0700 (Fri, 30 Jun 2006)
ViewCVS:  http://svn.sourceforge.net/stp/?rev=300&view=rev

Log Message:
-----------
Remove legacy file create and send email for failure.

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-06-30 21:57:06 UTC (rev 299)
+++ trunk/Test-Sut/lib/Test/Sut/Upload/Email.pm	2006-06-30 21:59:12 UTC (rev 300)
@@ -43,7 +43,6 @@
 
     my ( $self ) = @_;
 
-    open FH, ">$ENV{'RESULTS_TOP'}/file_list.txt";
     if ( $self->{'sub_test_failure'} != 0 ){
         $self->set_test_request_status( "Failed" );
     } else {
@@ -161,6 +160,11 @@
             "The STP was unable to send results file \"$file\" "
               . $self->request_details()
         );
+        $self->mail_admin(
+            " File Upload Failure ($file)",
+            "STP Test  failed to upload results file \"$file\".\n"
+            . $r->request_details()
+        );
     }
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

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

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

Revision: 309
Author:   judith_osdl
Date:     2006-07-14 10:43:18 -0700 (Fri, 14 Jul 2006)
ViewCVS:  http://svn.sourceforge.net/stp/?rev=309&view=rev

Log Message:
-----------
Fix reference

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-13 22:24:25 UTC (rev 308)
+++ trunk/Test-Sut/lib/Test/Sut/Upload/Email.pm	2006-07-14 17:43:18 UTC (rev 309)
@@ -163,7 +163,7 @@
         $self->mail_admin(
             " File Upload Failure ($file)",
             "STP Test  failed to upload results file \"$file\".\n"
-            . $r->request_details()
+            . $self->request_details()
         );
     }
 }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

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

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

Revision: 313
Author:   judith_osdl
Date:     2006-07-19 14:27:29 -0700 (Wed, 19 Jul 2006)
ViewCVS:  http://svn.sourceforge.net/stp/?rev=313&view=rev

Log Message:
-----------
Check for yes or auto send_results options.

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-19 21:18:05 UTC (rev 312)
+++ trunk/Test-Sut/lib/Test/Sut/Upload/Email.pm	2006-07-19 21:27:29 UTC (rev 313)
@@ -57,7 +57,7 @@
     }
 
     my $send_flag = $self->getConfigParam( "email_results" );
-    if ( $send_flag =~ m/yes/i ){
+    if ( $send_flag =~ m/yes|auto/i ){
        $self->send_results();
     }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

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

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

Revision: 317
Author:   judith_osdl
Date:     2006-07-20 14:29:10 -0700 (Thu, 20 Jul 2006)
ViewCVS:  http://svn.sourceforge.net/stp/?rev=317&view=rev

Log Message:
-----------
Need to update the lod average.

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 20:45:57 UTC (rev 316)
+++ trunk/Test-Sut/lib/Test/Sut/Upload/Email.pm	2006-07-20 21:29:10 UTC (rev 317)
@@ -159,6 +159,7 @@
     my $load = `uptime |sed 's/.*load average:\s\{1,\}\(.*\) //'`;
     while ( $load > 10 ){
         sleep 30;
+        $load = `uptime |sed 's/.*load average:\s\{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.

[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.