[popfile-commit] engine/Services IMAP.pm,1.28,1.29

[Manni H. <man...@us...>]

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 />';
                  }
              }