[aMail-checkins] CVS: new_project/program/lib Storage.pm,1.8,1.9
Brought to you by:
bit-man
|
From: Victor A. R. <bi...@us...> - 2002-08-29 17:36:38
|
Update of /cvsroot/amail/new_project/program/lib
In directory usw-pr-cvs1:/tmp/cvs-serv29385/program/lib
Modified Files:
Storage.pm
Log Message:
Folder creation, with TRex service glue, fully integrated to TRex core ... well some minor hacks were done !!
Index: Storage.pm
===================================================================
RCS file: /cvsroot/amail/new_project/program/lib/Storage.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** Storage.pm 26 Aug 2002 22:53:23 -0000 1.8
--- Storage.pm 29 Aug 2002 17:36:34 -0000 1.9
***************
*** 102,105 ****
--- 102,106 ----
use SOAP::Lite;
+ my $Debug = 1;
##
## Pending issues:
***************
*** 372,376 ****
/$FOLDER/ && ($self->{'CLID'} eq 'EMail') && do {
! print "Folder creation\n";
return $self->{'SOAPhandler'}->folderCreate( $$input{'NAME'},
$self->{'authMethod'}, @param )->result;
--- 373,377 ----
/$FOLDER/ && ($self->{'CLID'} eq 'EMail') && do {
! print STDERR "Folder creation\n" if $Debug;
return $self->{'SOAPhandler'}->folderCreate( $$input{'NAME'},
$self->{'authMethod'}, @param )->result;
***************
*** 393,397 ****
my $PORT = 12345;
! print "Class ID: $module \n";
my $handler = SOAP::Lite
--- 394,398 ----
my $PORT = 12345;
! print STDERR "Class ID: $module \n" if $Debug;
my $handler = SOAP::Lite
|