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

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

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