[popfile-commit] engine/UI HTML.pm,1.83,1.84

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

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

Modified Files:
	HTML.pm 
Log Message:
Major update to the history caching code that makes POPFile History a hell of a lot faster by being a real cache and not the lame one it was before; Stan, this might have undone your last & fix check in because of the size of changes I was making; I fixed a nasty bug where we were leaking file handles in class files when reclassifying or undoing.

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.83
retrieving revision 1.84
diff -C2 -d -r1.83 -r1.84
*** HTML.pm	24 Feb 2003 21:48:44 -0000	1.83
--- HTML.pm	24 Feb 2003 23:08:50 -0000	1.84
***************
*** 18,22 ****
  use IO::Select;
  
! # A handy variable containing the value of an EOL for Unix systems
  my $eol = "\015\012";
  
--- 18,22 ----
  use IO::Select;
  
! # A handy variable containing the value of an EOL for the network
  my $eol = "\015\012";
[...3848 lines suppressed...]
! 	# history cache is also remove
  
! 	delete $self->{history_}{$mail_file};
  
! 	# Now remove the files from the disk, remove both the msg file containing
! 	# the mail message and its associated CLS file
! 
! 	unlink( "$self->{configuration}->{configuration}{msgdir}$mail_file" );
! 	$mail_file =~ s/msg$/cls/;
! 	unlink( "$self->{configuration}->{configuration}{msgdir}$mail_file" );
  }
  
***************
*** 3333,3337 ****
  #
  # ---------------------------------------------------------------------------------------------
- 
  sub history_copy_file
  {
--- 3452,3455 ----