[aMail-checkins] CVS: new_project/program ServiceGlue.pl,1.1,1.2 folders.pl,1.7,1.8 pop.pl,1.6,1.7
Brought to you by:
bit-man
|
From: Victor A. R. <bi...@us...> - 2002-09-06 21:46:17
|
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 ---- |