[aMail-checkins] CVS: new_project/program ServiceGlue.pl,1.1,1.2 folders.pl,1.7,1.8 pop.pl,1.6,1.7

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

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

Modified Files:
	ServiceGlue.pl folders.pl pop.pl 
Log Message:
Bug corrected for folders creation using the new TRex::Storage interface


Index: ServiceGlue.pl
===================================================================
RCS file: /cvsroot/amail/new_project/program/ServiceGlue.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** ServiceGlue.pl	23 May 2002 00:08:11 -0000	1.1
--- ServiceGlue.pl	6 Sep 2002 21:46:13 -0000	1.2
***************
*** 1,5 ****
  #!/usr/bin/perl -w
  
! # -- SOAP::Lite -- guide.soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
  
  use SOAP::Transport::HTTP;
--- 1,5 ----
  #!/usr/bin/perl -w
  
! use strict;
  
  use SOAP::Transport::HTTP;

Index: folders.pl
===================================================================
RCS file: /cvsroot/amail/new_project/program/folders.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** folders.pl	29 Aug 2002 17:36:34 -0000	1.7
--- folders.pl	6 Sep 2002 21:46:13 -0000	1.8
***************
*** 387,390 ****
--- 387,391 ----
  }
  
+ 
  sub Trash {     # sends all the messages in the folder to the trash
  

Index: pop.pl
===================================================================
RCS file: /cvsroot/amail/new_project/program/pop.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** pop.pl	29 Aug 2002 17:36:34 -0000	1.6
--- pop.pl	6 Sep 2002 21:46:13 -0000	1.7
***************
*** 183,186 ****
--- 183,187 ----
      close MAILBOX;
  
+ 
      unless ($found) {                    # It's a new folder
          if ($_ = createNewFolder($folder_to) ) {
***************
*** 201,214 ****
  		      ### some code that manages the folders file
  		      ### inside the kernel
- 		      
- #	if ($_ = Check_folder_name($folder_to)) {   # check if new name OK
- #	    $folder_mess = $_;      # if something came back, it's an error message that we pass on
- #	    &Print_start;
- #	    return;
- #	}
- #	# This looks like a valid folder name
- #	$folder_info{$folder_to} = [$folder_to,0,0,0];   # create new folder entry
- #	$folder_list .= "$folder_to,";
- #	$folder_added = 1;
      }
      
--- 202,205 ----