[popfile-commit] engine/UI HTML.pm,1.92,1.93

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv11450/UI

Modified Files:
	HTML.pm 
Log Message:
Fix a bug where remove_mail_files was passing in the name of cls files to history_delete_file which would cause a warning about an uninitialized variable

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.92
retrieving revision 1.93
diff -C2 -d -r1.92 -r1.93
*** HTML.pm	25 Feb 2003 06:56:45 -0000	1.92
--- HTML.pm	27 Feb 2003 00:00:50 -0000	1.93
***************
*** 65,76 ****
      # The subkeys are
      #
!     #    cull            Used internally by load_history_cache (see there for details)
      #   from            The address the email was from
!     #   short_from        Version of from with max 40 characters
!     #     subject            The subject of the email
!     #   short_subject    Version of subject with max 40 characters
!     #    magnet            If a magnet was used to classify the mail contains the magnet string
!     #    bucket            The classification of the mail
!     #    reclassified    1 if the mail has already been reclassified
      # 
      # The history_keys array stores the list of keys in the history hash and are a 
--- 65,76 ----
      # The subkeys are
      #
!     #   cull            Used internally by load_history_cache (see there for details)
      #   from            The address the email was from
!     #   short_from      Version of from with max 40 characters
!     #   subject         The subject of the email
!     #   short_subject   Version of subject with max 40 characters
!     #   magnet          If a magnet was used to classify the mail contains the magnet string
!     #   bucket          The classification of the mail
!     #   reclassified    1 if the mail has already been reclassified
      # 
      # The history_keys array stores the list of keys in the history hash and are a 
***************
*** 2776,2780 ****
                                                              ( defined( $self->{form}{clearall}      ) ) || 
                                                              ( defined( $self->{form}{clearpage}     ) ) );
- 
      my $body = '';
  
--- 2776,2779 ----
***************
*** 3370,3374 ****
  
      if ( $self->{today} > $yesterday ) {    
!         my @mail_files = glob "$self->{configuration}->{configuration}{msgdir}popfile*=*.???";
  
          foreach my $mail_file (@mail_files) {
--- 3369,3373 ----
  
      if ( $self->{today} > $yesterday ) {    
!         my @mail_files = glob "$self->{configuration}->{configuration}{msgdir}popfile*=*.msg";
  
          foreach my $mail_file (@mail_files) {
***************
*** 3416,3420 ****
      my ( $self, $mail_file, $archive ) = @_;
      
!     $mail_file =~ /(popfile.+\=.+\.msg)$/;
      $mail_file = $1;
  
--- 3415,3419 ----
      my ( $self, $mail_file, $archive ) = @_;
      
!     $mail_file =~ /(popfile.+\=.+\.msg)/;
      $mail_file = $1;