[popfile-commit] engine/Proxy NNTP.pm, 1.42, 1.43 POP3.pm, 1.115, 1.116 SMTP.pm, 1.43, 1.44

[naoki i. <am...@us...>]

Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29156/Proxy

Modified Files:
	NNTP.pm POP3.pm SMTP.pm 
Log Message:
Change Log

1. Add an interface and a function to change/initialize user's password

  UI/HTML.pm
  Classifier/Bayes.pm
  skins/default/users-page.thtml
  languages/English.msg

2. Bucket parameters are now copied from cloned user's

  Classifier/Bayes.pm

3. Non admin users can't access the Administration, Users and Advanced tabs.

  UI/HTML.pm

4. The history messages are now stored per user.
5. Users can't see/remove other users' history messages.

  Classifier/Bayes.pm
  POPFile/History.pm
  UI/HTML.pm

6. Sorting history messages now work correctly

  UI/HTML.pm
  skins/default/history-page.thtml

7. Server Mode options for SMTP and NNTP proxy are saved correctly
8. Server Mode checkboxes are disabled if all the modules are local

  UI/HTML.pm
  Proxy/POP3.pm
  Proxy/SMTP.pm
  Proxy/NNTP.pm

9. The 'Config Bar' string is now localizable

  skins/default/configration-bar.thtml
  languages/English.msg

10. The 'Stealth Mode' and 'Server Mode' strings are now localizable

  skins/default/administration-page.thtml
  languages/English.msg

11. Update language files

  languages/English.msg
  languages/Nihongo.msg

Index: POP3.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/POP3.pm,v
retrieving revision 1.115
retrieving revision 1.116
diff -C2 -d -r1.115 -r1.116
*** POP3.pm	3 Dec 2007 12:58:41 -0000	1.115
--- POP3.pm	30 Mar 2008 05:33:58 -0000	1.116
***************
*** 701,709 ****
  #    $language        Current language
  #
  # ----------------------------------------------------------------------------
  
  sub configure_item
  {
!     my ( $self, $name, $templ, $language ) = @_;
  
      if ( $name eq 'pop3_configuration' ) {
--- 701,711 ----
  #    $language        Current language
  #
+ # Returns 1 if pop3_local is 1
+ #
  # ----------------------------------------------------------------------------
  
  sub configure_item
  {
!     my ( $self, $name, $templ, $language, $all_local ) = @_;
  
      if ( $name eq 'pop3_configuration' ) {
***************
*** 714,717 ****
--- 716,720 ----
          if ( $name eq 'pop3_security' ) {
              $templ->param( 'POP3_Security_Local' => ( $self->config_( 'local' ) == 1 ) );
+             return ( $self->config_( 'local' ) == 1 );
          } else {
              if ( $name eq 'pop3_chain' ) {

Index: NNTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/NNTP.pm,v
retrieving revision 1.42
retrieving revision 1.43
diff -C2 -d -r1.42 -r1.43
*** NNTP.pm	2 Mar 2006 10:07:46 -0000	1.42
--- NNTP.pm	30 Mar 2008 05:33:58 -0000	1.43
***************
*** 411,414 ****
--- 411,416 ----
  #    $language        Current language
  #
+ # Returns 1 if nntp_local is 1
+ #
  # ----------------------------------------------------------------------------
  
***************
*** 425,428 ****
--- 427,431 ----
      if ( $name eq 'nntp_local' ) {
          $templ->param( 'nntp_if_local' => $self->config_( 'local' ) );
+         return $self->config_( 'local' );
      }
  
***************
*** 476,481 ****
      
      if ( $name eq 'nntp_local' ) {
!         if ( defined $$form{nntp_local} ) {
!             $self->config_( 'local', $$form{nntp_local} );
          }
          return( undef, undef);
--- 479,486 ----
      
      if ( $name eq 'nntp_local' ) {
!         if ( $form->{serveropt_nntp} ) {
!             $self->config_( 'local', 0 );
!         } else {
!             $self->config_( 'local', 1 );
          }
          return( undef, undef);

Index: SMTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/SMTP.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -C2 -d -r1.43 -r1.44
*** SMTP.pm	20 Feb 2006 02:14:29 -0000	1.43
--- SMTP.pm	30 Mar 2008 05:33:58 -0000	1.44
***************
*** 331,334 ****
--- 331,336 ----
  #    $language        Current language
  #
+ # Returns 1 if smtp_local is 1
+ #
  # ----------------------------------------------------------------------------
  
***************
*** 344,347 ****
--- 346,350 ----
      if ( $name eq 'smtp_local' ) {
          $templ->param( 'smtp_local_on' => $self->config_( 'local' ) );
+         return $self->config_( 'local' );
       }
  
***************
*** 394,399 ****
  
      if ( $name eq 'smtp_local' ) {
!         if ( defined $$form{smtp_local} ) {
!             $self->config_( 'local', $$form{smtp_local} );
          }
          return ( $status, $error );
--- 397,404 ----
  
      if ( $name eq 'smtp_local' ) {
!         if ( $form->{serveropt_smtp} ) {
!             $self->config_( 'local', 0 );
!         } else {
!             $self->config_( 'local', 1 );
          }
          return ( $status, $error );