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