[aMail-checkins] CVS: new_project/program/lib/Storage EMail.pm,1.3,1.4

[Victor A. R. <bi...@us...>]

Update of /cvsroot/amail/new_project/program/lib/Storage
In directory usw-pr-cvs1:/tmp/cvs-serv28364/program/lib/Storage

Modified Files:
	EMail.pm 
Log Message:
A little bit more advanced Service Glue implementation (pre-pre-alfa2)


Index: EMail.pm
===================================================================
RCS file: /cvsroot/amail/new_project/program/lib/Storage/EMail.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** EMail.pm	1 Aug 2002 22:15:04 -0000	1.3
--- EMail.pm	6 Aug 2002 22:41:23 -0000	1.4
***************
*** 22,54 ****
      my $input = shift;
  
!     print "AUTH_PARM: " . $$input{'AUTH_PARAMETERS'} . "\n";
!     print "AUTH_METHOD: " . $$input{'AUTH_METHOD'} . "\n";
  
!     my $authParams = $$input{'AUTH_PARAMETERS'};
!     $SID = $$authParams{'SID'};
!     print "aMail_ID: " . $$authParams{'aMail_ID'} . "\n";
!     print "SID: " . $$authParams{'SID'} . "-" . $SID . "\n";
! 
!     print "Starting PAM\n";
!     my $sec_handle = new aMail::PAM( "aMail_Storage_EMail", $$authParams{'aMail_ID'}, \&pam_conversation );
!     $problem = ( ref($sec_handle) ? PAM_SUCCESS() : ref($sec_handle) );
!     print "Problem: $problem\n"; 
!     return undef    unless ( $problem == PAM_SUCCESS() );
! 
!     print "Authenticate\n";
!     $problem = $sec_handle->pam_authenticate();
!     return undef    unless ( $problem == PAM_SUCCESS() );
! 
!     print "Mgmt\n";
!     $problem = $sec_handle->pam_acct_mgmt();
!     return undef    unless ( $problem == PAM_SUCCESS() );
! 
!     print "open_session\n";
!     $problem = $sec_handle->pam_open_session();
!     return undef    unless ( $problem == PAM_SUCCESS() );
      
!     print "END\n";
  }
  
  
  
--- 22,64 ----
      my $input = shift;
  
!     $_ = $$input{'AUTH_METHOD'};
  
!     /$AMAIL/  &&  do {    print "AUTH_PARM: " . $$input{'AUTH_PARAMETERS'} . "\n";
!                           print "AUTH_METHOD: " . $$input{'AUTH_METHOD'} . "\n";
! 
!                           my $authParams = $$input{'AUTH_PARAMETERS'};
!                           $SID = $$authParams{'SID'};
!                           print "aMail_ID: " . $$authParams{'aMail_ID'} . "\n";
!                           print "SID: " . $$authParams{'SID'} . "-" . $SID . "\n";
! 
!                           print "Starting PAM\n";
!                           my $sec_handle = new aMail::PAM( "aMail_Storage_EMail", $$authParams{'aMail_ID'}, \&pam_conversation );
!                           $problem = ( ref($sec_handle) ? PAM_SUCCESS() : ref($sec_handle) );
!                           print "Problem: $problem\n"; 
!                           return undef    unless ( $problem == PAM_SUCCESS() );
! 
!                           print "Authenticate\n";
!                           $problem = $sec_handle->pam_authenticate();
!                           return undef    unless ( $problem == PAM_SUCCESS() );
! 
!                           print "Mgmt\n";
!                           $problem = $sec_handle->pam_acct_mgmt();
!                           return undef    unless ( $problem == PAM_SUCCESS() );
! 
!                           print "open_session\n";
!                           $problem = $sec_handle->pam_open_session();
!                           return undef    unless ( $problem == PAM_SUCCESS() );
      
!                           print "END\n";
!                           return 1;
! 		      };
  }
  
+ 
+ sub close() {
+     my $self = shift;
+ 
+     return 1;
+ }