Update of /cvsroot/popfile/engine/Services
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27195/Services
Modified Files:
Tag: b0_22_2
IMAP.pm
Log Message:
Added a little widget to configure ssl usage for the IMAP module.
Index: IMAP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Services/IMAP.pm,v
retrieving revision 1.9.4.4
retrieving revision 1.9.4.5
diff -C2 -d -r1.9.4.4 -r1.9.4.5
*** IMAP.pm 31 Aug 2007 12:52:52 -0000 1.9.4.4
--- IMAP.pm 5 Nov 2007 09:34:25 -0000 1.9.4.5
***************
*** 1955,1958 ****
--- 1955,1959 ----
$templ->param( 'IMAP_login', $self->config_( 'login' ) );
$templ->param( 'IMAP_password', $self->config_( 'password' ) );
+ $templ->param( 'IMAP_ssl_checked', $self->config_( 'use_ssl' ) ? 'checked="checked"' : '' );
}
***************
*** 2147,2150 ****
--- 2148,2158 ----
$templ->param( IMAP_connection_if_password_error => 1 );
}
+
+ if ( defined $form->{imap_use_ssl} ) {
+ $self->config_( 'use_ssl', 1 );
+ }
+ else {
+ $self->config_( 'use_ssl', 0 );
+ }
}
return;
|