[popfile-commit] engine/Services IMAP.pm,1.9.4.4,1.9.4.5

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

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;