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

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

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

Modified Files:
	EMail.pm 
Log Message:
Use of TRex::Storage (alpha 1) for folder creation.


Index: EMail.pm
===================================================================
RCS file: /cvsroot/amail/new_project/program/lib/Storage/EMail.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** EMail.pm	23 Aug 2002 18:02:00 -0000	1.7
--- EMail.pm	26 Aug 2002 22:53:23 -0000	1.8
***************
*** 30,34 ****
  use Exporter;
  @ISA = ('Exporter');
! @EXPORT = qw/authGetMethods authAuthenticate/;
  
  use aMail::PAM;
--- 30,34 ----
  use Exporter;
  @ISA = ('Exporter');
! @EXPORT = qw/new authGetMethods authAuthenticate close/;
  
  use aMail::PAM;
***************
*** 38,42 ****
  
  ################ Settings
! my @acceptedMethods = [ 'AMAIL' ];
  my $db_path = '/home/bit-man/aMail/initialize_user';
  my $Debug = 1;
--- 38,44 ----
  
  ################ Settings
! my @acceptedMethods;
! push ( @acceptedMethods,'AMAIL' );
! 
  my $db_path = '/home/bit-man/aMail/initialize_user';
  my $Debug = 1;
***************
*** 279,283 ****
  }
  
! 
  
  =pod
--- 281,289 ----
  }
  
! sub close() {
!     my $self = shift;
!     
!     return 0;
! }
  
  =pod