[aMail-checkins] CVS: new_project/program/lib Storage.pm,1.6,1.7
Brought to you by:
bit-man
|
From: Victor A. R. <bi...@us...> - 2002-08-23 18:02:03
|
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
}
|