popfile-commit

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

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

Modified Files:
	HTTP.pm 
Log Message:
Make encryption work with newer versions of Crypt::CBC, retaining backwards compatibility.
 Remove two tab characters while we're at it.

Index: HTTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTTP.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** HTTP.pm	21 Aug 2005 22:17:50 -0000	1.31
--- HTTP.pm	31 Aug 2005 17:50:44 -0000	1.32
***************
*** 107,111 ****
                                            'padding'        => 'standard',
                                            'prepend_iv'     => 0,
!                                           'regenerate_key' => 0 } );
  
      return 1;
--- 107,112 ----
                                            'padding'        => 'standard',
                                            'prepend_iv'     => 0,
!                                           'regenerate_key' => 0,
!                                           'salt'           => 1 } );
  
      return 1;
***************
*** 322,329 ****
  
          if ( $need_array ) {
! 	    if ( $#{ $self->{form_}{$arg . "_array"} } == -1 ) {
                  push( @{ $self->{form_}{$arg . "_array"} }, $self->{form_}{$arg} );
! 	    }
! 	}
  
          $self->{form_}{$arg} = $2;
--- 323,330 ----
  
          if ( $need_array ) {
!             if ( $#{ $self->{form_}{$arg . "_array"} } == -1 ) {
                  push( @{ $self->{form_}{$arg . "_array"} }, $self->{form_}{$arg} );
!             }
!         }
  
          $self->{form_}{$arg} = $2;