stp-svn

[stp-svn] SF.net SVN: stp: [307] trunk/Test-Sut/lib/Test/Admin/Result.pm

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

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

Log Message:
-----------
Add 'default_sender' parameter for the autotest sending in results.

Modified Paths:
--------------
    trunk/Test-Sut/lib/Test/Admin/Result.pm
Modified: trunk/Test-Sut/lib/Test/Admin/Result.pm
===================================================================
--- trunk/Test-Sut/lib/Test/Admin/Result.pm	2006-07-13 22:11:40 UTC (rev 306)
+++ trunk/Test-Sut/lib/Test/Admin/Result.pm	2006-07-13 22:20:13 UTC (rev 307)
@@ -58,6 +58,7 @@
     # Use Secured RPC, second option is a '1'.
     $self->{'asp_proxy'} = $self->{'config'}->getConfigParam( 'asp_proxy' );
     $self->{'resultpath'} = $self->{'config'}->getConfigParam( 'resultpath' );
+    $self->{'default_sender'} = $self->{'config'}->getConfigParam( 'default_sender' );
     $self->{'rpc'} = new Test::Transport::Wsdl( $self->{'asp_proxy'}, 1 );
 
     bless $self, $pkg;
@@ -132,7 +133,7 @@
     $output = `gpg --output $outfile --decrypt $self->{ 'filename' } 2>&1`;
 
     my ( $signee ) = $output =~ m/Good signature from \"(.*)\"/;
-    if ( $signee =~ m/$self->{ 'user_email' }/ ){
+    if ( $signee =~ m/$self->{ 'user_email' }|$self->{'default_sender'}/ ){
         $self->{ 'log' }->msg( 4, "File " . $self->{ 'filename' } . " is signed.\nExpected: $self->{ 'user_email' }\nGot $output." );
         $self->{ 'filename' } = $outfile;
         return 1;


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

[stp-svn] SF.net SVN: stp: [318] trunk/Test-Sut/lib/Test/Admin/Result.pm

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

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

Log Message:
-----------
Fix the setTestRequest call arguments.  Needed login, password and fixed order.

Modified Paths:
--------------
    trunk/Test-Sut/lib/Test/Admin/Result.pm
Modified: trunk/Test-Sut/lib/Test/Admin/Result.pm
===================================================================
--- trunk/Test-Sut/lib/Test/Admin/Result.pm	2006-07-20 21:29:10 UTC (rev 317)
+++ trunk/Test-Sut/lib/Test/Admin/Result.pm	2006-07-20 21:49:52 UTC (rev 318)
@@ -57,6 +57,8 @@
     $self->{'log'} = new Test::Sut::Util::Log( $self->{ 'config' }->getConfigParam( 'log_filename' ), $self->{ 'config' }->getConfigParam( 'log_level' ) );
     # Use Secured RPC, second option is a '1'.
     $self->{'asp_proxy'} = $self->{'config'}->getConfigParam( 'asp_proxy' );
+    $self->{'asp_login'} = $self->{'config'}->getConfigParam( 'asp_login' );
+    $self->{'asp_pass'} = $self->{'config'}->getConfigParam( 'asp_pass' );
     $self->{'resultpath'} = $self->{'config'}->getConfigParam( 'resultpath' );
     $self->{'default_sender'} = $self->{'config'}->getConfigParam( 'default_sender' );
     $self->{'rpc'} = new Test::Transport::Wsdl( $self->{'asp_proxy'}, 1 );
@@ -197,7 +199,7 @@
         close FH;
     }
     # Update test_request_status
-    $self->{'rpc'}->doASPAction( 'SetTestRequestStatus', $self->{ 'test_request_status' }, $self->{ 'test_request_id' } );
+    $self->{'rpc'}->doASPAction( 'SetTestRequestStatus', $self->{ 'asp_login' }, $self->{ 'asp_pass' }, $self->{ 'test_request_id' }, $self->{ 'test_request_status' } );
     if ( $self->{ 'test_request_status' } =~ m/Failed/i ){
          $self->{ 'integration_status' } = 0;
     } else {


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