comments

[infobot.git] / scripts / irclog2html.pl
diff --git a/scripts/irclog2html.pl b/scripts/irclog2html.pl

index 6714ffd2d3039e310dbe002cfb09717cc965f579..2c5309062df27080f64c8d347472109e0e877eb5 100755 (executable)
--- a/scripts/irclog2html.pl
+++ b/scripts/irclog2html.pl
@@ -61,15 +61,15 @@ sub header {
         my ($channel, $date) = @_;
         my $return = '';
  
-       $return .= qq{<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
+       $return .= qq{<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  <html>
  <head>
         <title>irclog2html for $channel on $date</title>
         <meta name="generator" content="irclog2html.pl by Jeff Waugh">
-       <meta name="version" content="Version 0.9 - 5th April 2000">
-       <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+       <meta name="version" content="Version 1.5 - 11th May 2000">
+       <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
  </head>
-<body text="#000000" bgcolor="#ffffff"><tt>
+<body text="#000000" bgcolor="#ffffff">
  <h1>irclog2html for $channel on $date</h1>
  };
  
@@ -91,7 +91,7 @@ sub footer {
  <a href="http://freshmeat.net/appindex/2000/03/28/954251322.html">freshmeat.net</a>!
  Modified by <a href="http://www.Rikers.org">Tim Riker</a> to work with
  <a href="http://blootbot.sourceforge.net/">blootbot</a> logs, split per channel, etc.
-</tt></body></html>
+</body></html>
  };
         return $return;
  }
@@ -160,7 +160,7 @@ sub output_timenicktext {
                 $lineout .= "$time " if $time;
                 $lineout .= "<font color=\"$htmlcolour\">&lt\;$nick&gt\; $text<\/font><br>\n";
         }
-       output_line($date, $time,$channel,$lineout);
+       output_line($date, $time, $channel, $lineout);
  }
  
  sub output_timeservermsg {
@@ -273,7 +273,7 @@ sub main {
  
                         elsif ($line =~ /^&gt\;&gt\;&gt\; /) {
                                 $line =~ s/^&gt\;&gt\;&gt\; /\*\*\* /;
-                                       
+
                                 # Process changed nick results, and remember colours accordingly #
                                 if ($line =~ /\*\*\* (.*?) are|is now known as (.*)/) {
                                         my $nick_old;