Update of /cvsroot/popfile/engine/Services
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12785/Services
Modified Files:
IMAP.pm
Log Message:
Make the tests of the UI a bit more nitpicky.
Fix minor bugs in the IMAP modules.
Index: IMAP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Services/IMAP.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** IMAP.pm 2 Dec 2007 13:08:37 -0000 1.28
--- IMAP.pm 3 Dec 2007 08:16:49 -0000 1.29
***************
*** 1385,1389 ****
}
! if ( $form->{imap_login} ne '' ) {
if ( $self->user_config_( 1, 'login' ) ne $form->{imap_login} ) {
$self->user_config_( 1, 'login', $form->{imap_login} );
--- 1385,1389 ----
}
! if ( defined $form->{imap_login} && $form->{imap_login} =~ /^\S/ ) {
if ( $self->user_config_( 1, 'login' ) ne $form->{imap_login} ) {
$self->user_config_( 1, 'login', $form->{imap_login} );
***************
*** 1395,1399 ****
}
! if ( $form->{imap_password} ne '' ) {
if ( $self->user_config_( 1, 'password' ) ne $form->{imap_password} ) {
$self->user_config_( 1, 'password', $form->{imap_password} );
--- 1395,1399 ----
}
! if ( defined $form->{imap_password} && $form->{imap_password} =~ /^\S/ ) {
if ( $self->user_config_( 1, 'password' ) ne $form->{imap_password} ) {
$self->user_config_( 1, 'password', $form->{imap_password} );
***************
*** 1508,1511 ****
--- 1508,1512 ----
}
+ $status_message = '';
while ( my ( $bucket, $folder ) = each %bucket2folder ) {
***************
*** 1518,1522 ****
$self->folder_for_bucket__( $bucket, $folder );
$self->{folder_change_flag__} = 1;
! $status_message = sprintf $language->{Imap_MapUpdated}, $bucket, $folder;
}
}
--- 1519,1524 ----
$self->folder_for_bucket__( $bucket, $folder );
$self->{folder_change_flag__} = 1;
! $status_message .= sprintf $language->{Imap_MapUpdated}, $bucket, $folder;
! $status_message .= '<br />';
}
}
|
