Index: openacs.org-dev/packages/irc-logger/ChangeLog
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/irc-logger/ChangeLog,v
diff -u -r1.5 -r1.6
--- openacs.org-dev/packages/irc-logger/ChangeLog 10 Mar 2003 21:46:14 -0000 1.5
+++ openacs.org-dev/packages/irc-logger/ChangeLog 29 May 2003 19:54:37 -0000 1.6
@@ -1,3 +1,8 @@
+2003-05-29 Bart Teeuwisse <bart.teeuwisse@thecodemill.biz>
+
+ * tcl/irc-logger-procs.tcl (Module):
+ - Fixed memory leak. HTML DOM was lingering around.
+
2003-03-10 Bart Teeuwisse <bart.teeuwisse@thecodemill.biz>
* www/doc/index.adp (Module):
Index: openacs.org-dev/packages/irc-logger/perl/logger
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/irc-logger/perl/logger,v
diff -u -r1.3 -r1.4
--- openacs.org-dev/packages/irc-logger/perl/logger 11 Feb 2003 23:24:47 -0000 1.3
+++ openacs.org-dev/packages/irc-logger/perl/logger 29 May 2003 19:54:54 -0000 1.4
@@ -607,11 +607,7 @@
<head>
<title>IRC log of $escaped_chan on $date</title>
EOT
-<<<<<<< logger
my $progID = '$Id$';
-=======
- my $progID = '$Id$';
->>>>>>> 1.1.1.1
$progID =~ s/\$/\$/g; # Hide the CVS tag from CVS in the output
print $html_log_fh '<meta name="generator" content="'.$progID.'" />';
print $html_log_fh <<"EOT";
@@ -2104,11 +2100,7 @@
}
my $progname = basename(__FILE__);
-<<<<<<< logger
my $CVSRevision = '$Revision$'; # capture CVS info here
-=======
- my $CVSRevision = '$Revision$'; # capture CVS info here
->>>>>>> 1.1.1.1
$CVSRevision =~ s/\$//g; # drop '$' for W3C site repository checkin
my $datetime = strftime( '%Y-%m-%dT%H:%MZ', gmtime );
Index: openacs.org-dev/packages/irc-logger/tcl/irc-logger-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/irc-logger/tcl/irc-logger-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs.org-dev/packages/irc-logger/tcl/irc-logger-procs.tcl 10 Mar 2003 21:45:46 -0000 1.4
+++ openacs.org-dev/packages/irc-logger/tcl/irc-logger-procs.tcl 29 May 2003 19:55:08 -0000 1.5
@@ -81,8 +81,9 @@
# Serialize the HTML DOM tree as HTML text
- return [$html asHTML]
+ set text [$html asHTML]
$html delete
+ return $text
} else {
ns_log warning "irc::logger::apply_xslt - Could not transform RDF log '$rdf_log' to HTML with XSL sheet '$xsl_style': $error_msg"