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

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

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

Modified Files:
	Storage.pm 
Log Message:
Alpha 1 stage for aMail::Storage and aMail::Storage::EMail


Index: Storage.pm
===================================================================
RCS file: /cvsroot/amail/new_project/program/lib/Storage.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** Storage.pm	23 Aug 2002 00:02:49 -0000	1.6
--- Storage.pm	23 Aug 2002 18:02:00 -0000	1.7
***************
*** 57,60 ****
--- 57,62 ----
  update: updates the passed data into the data storage
  
+ =back
+ 
  Additionally the storage is separated into distinct storage classes, 
  each one representing a conceptually different stored data but that 
***************
*** 76,79 ****
--- 78,82 ----
  Profile: User profile storage
  
+ =back
  
  =head1 Implementation details
***************
*** 113,116 ****
--- 116,122 ----
  ##      from each implementation and this makes the core code a bit
  ##      module dependent
+ ##
+ ##  3.- The security checking for folder name, etc. will be reatined int
+ ##      the core
  
  =pod
***************
*** 129,132 ****
--- 135,139 ----
    my $handler = aMail::Storage->new( 'EMail' );
    die "Crashhhh new() !!!\n"  if ( ! defined $handler );
+ 
  =cut
  
***************
*** 176,179 ****
--- 183,188 ----
  AMAIL: Old aMail authentication schema 
  
+ =back
+ 
  Usage :
  
***************
*** 184,187 ****
--- 193,197 ----
    
    my @authMethods = authMethods();
+ 
  =cut
  
***************
*** 193,203 ****
      my @auth_methods = $handler->authGetMethods()->result;
  
!     if ( ! @auth_methods ) {
!         $main::Error = 1;
!         $main::ErrorText = "No athentication methods available";
!         return undef;
!     } else {
!         return @$auth_methods;
!     }
  }
  
--- 203,207 ----
      my @auth_methods = $handler->authGetMethods()->result;
  
!     return @$auth_methods;
  }
  
***************
*** 223,226 ****
--- 227,232 ----
  The the code returned is the corresponding to each storage class.
  
+ =back
+ 
  Usage :
  
***************
*** 260,264 ****
      my $self = shift;
  
!     return = $self->{'SOAPhandler'}->close()->result;
  }
  
--- 266,270 ----
      my $self = shift;
  
!     return  $self->{'SOAPhandler'}->close()->result;
  }
  
***************
*** 267,271 ****
      my $self = shift;
      my $input = shift;
-     my $return = 'VIRGIN';
      
      my @param;
--- 273,276 ----
***************
*** 273,293 ****
      push @param, $self->{'SID'};
      
-     my $handler = $self->{'SOAPhandler'};
      $_ = $$input{'OBJECT'};
  
      /$FOLDER/ && ($self->{'CLID'} eq 'EMail')  && do {
  	    print "Folder creation\n";
! 	    $return = $handler->folderCreate( $$input{'NAME'}, @param )->result;
! 	    return 1;
      };
      
!     if ( $return = 'VIRGIN' ) {
!         $main::Error = 3;
!         $main::ErrorText = "Can't execute insert for aMail::Store::" . $self->{'CLID'};
!         return undef;
!     } else {
!          return $close_return;
!     } 
! 
  }
  
--- 278,290 ----
      push @param, $self->{'SID'};
      
      $_ = $$input{'OBJECT'};
  
      /$FOLDER/ && ($self->{'CLID'} eq 'EMail')  && do {
  	    print "Folder creation\n";
! 	    return $self->{'SOAPhandler'}->folderCreate( $$input{'NAME'}, 
! 	                                                 $self->{'authMethod'}, @param )->result;
      };
      
!     return 999;    ## Sorry, invalid operation
  }