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

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

Revision: 320
Author:   judith_osdl
Date:     2006-07-21 10:42:24 -0700 (Fri, 21 Jul 2006)
ViewCVS:  http://svn.sourceforge.net/stp/?rev=320&view=rev

Log Message:
-----------
Need to create state file here, before packing up.

Modified Paths:
--------------
    trunk/Test-Sut/lib/Test/Sut/Upload/EmailW.pm
Modified: trunk/Test-Sut/lib/Test/Sut/Upload/EmailW.pm
===================================================================
--- trunk/Test-Sut/lib/Test/Sut/Upload/EmailW.pm	2006-07-21 17:26:44 UTC (rev 319)
+++ trunk/Test-Sut/lib/Test/Sut/Upload/EmailW.pm	2006-07-21 17:42:24 UTC (rev 320)
@@ -68,6 +68,11 @@
     my $syslog = new Sys::SyslogMessages();
     $syslog->tail({'number_hours' => '6', 'output_file' => './logs/syslog.txt'});
     system "chmod 644 ./logs/syslog.txt";
+    my $state = 'Completed';
+    if ( $self->{'sub_test_failure'} != 0 ){
+        $state = 'Failed';
+    }
+   `echo $state > "$ENV{'SYSTEM_LOGS'}/test_request_status.txt"`;
  
     # Move the test results to the current directory & archive them
     chdir( "$ENV{'EXEC_HOME'}" );


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