Update of /cvsroot/popfile/engine/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27228/tests
Modified Files:
IMAP_test_server.pl
Log Message:
unlink the file with our uids after we're done.
Index: IMAP_test_server.pl
===================================================================
RCS file: /cvsroot/popfile/engine/tests/IMAP_test_server.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** IMAP_test_server.pl 1 Dec 2007 11:22:41 -0000 1.5
--- IMAP_test_server.pl 3 Dec 2007 08:56:13 -0000 1.6
***************
*** 52,55 ****
--- 52,56 ----
my $debug = 1;
my $spool = "imap.spool";
+ my $uid_file = 'imap.uids';
# if nothing happens with in $idle_timeout seconds
***************
*** 204,207 ****
--- 205,209 ----
close $main_sock;
+ unlink $uid_file;
print "\nThe IMAP_test_server is exiting.\n";
***************
*** 627,631 ****
my $uidnext = shift;
! if ( open my $UIDS, '<', 'imap.uids' ) {
while ( <$UIDS> ) {
/(.+):(.+)[\r\n]/;
--- 629,633 ----
my $uidnext = shift;
! if ( open my $UIDS, '<', $uid_file ) {
while ( <$UIDS> ) {
/(.+):(.+)[\r\n]/;
***************
*** 633,639 ****
}
}
- # else {
- # die "IMAP-test-server has a problem: cannot open file 'imap.uids'";
- # }
if ( defined $uidnext ) {
--- 635,638 ----
|
