--- orig_dirc	Sat Feb 15 16:35:16 2003
+++ dsirc	Sat Feb 15 16:55:40 2003
@@ -34,8 +34,10 @@
 # You can always find the latest version of sirc at the following URL:
 # http://www.eleves.ens.fr:8080/home/espel/sirc/sirc.html
 
-$version='2.211';
-$date='10 Mar 1998';
+use POSIX qw(strftime);
+
+$version='2.212';
+$date='2003-02-15';
 $add_ons='';
 
 $libdir=$ENV{"SIRCLIB"} || ".";
@@ -66,7 +68,8 @@
 &Getopts('n:s:p:u:i:l:L:H:rqQR78');
 
 %set=("LOGFILE", "", "LOG", "off", "PRINTUH", "none", "PRINTCHAN", "off",
- 	"LOCALHOST", "", "CTCP", "noflood", "SENDAHEAD", 4096,
+	"TIMESTAMP", "on",
+	"LOCALHOST", "", "CTCP", "noflood", "SENDAHEAD", 4096,
 	"USERINFO", "", "FINGER", "", "IRCNAME", "", "EIGHT_BIT", "on",
 	"LOADPATH", join(":", @loadpath), "CTRL_T", "/next");
 
@@ -273,6 +276,9 @@
 
 sub print {
   local($skip, $what)=(0, @_);
+  local $dt;
+  $dt = "";
+  $dt = strftime("%H:%M ", localtime) if $set{"TIMESTAMP"} eq 'on';
   &dohooks("print", $what);
   return if $skip;
   $what =~ s/\s+$//;
@@ -281,7 +287,7 @@
     if $set{"EIGHT_BIT"} ne 'on';
   $logging && print LOG $what."\n";
   if ($raw_mode) {
-    print $what, "\n" || &exit;
+    print $dt . $what, "\n" || &exit;
   } elsif ($ansi) {
     # this is buggy if you combine effects
     $what =~ s/([\ca\cc-\ch\cj-\cu\cw-\c^])/&enhance($1)/eg;
@@ -297,10 +303,10 @@
       ($what =~ s/\cv([^\cv]*)\cv/$reverse$1$normal/) ||
       $what =~ s/\cv/$reverse/g;
     }
-    print $what, $normal, "\n" || &exit;
+    print $dt . $what, $normal, "\n" || &exit;
   } else {
     $what =~ tr/\ca-\ch\cj-\c_//d;
-    print $what, "\n" || &exit;
+    print $dt . $what, "\n" || &exit;
   }
 }
 
@@ -549,6 +555,8 @@
   } elsif ($var eq 'FINGER') {
     $set{$var}=$val;
   } elsif ($var eq 'IRCNAME') {
+    $set{$var}=$val;
+  } elsif ($var eq 'TIMESTAMP') {
     $set{$var}=$val;
   } elsif ($var eq 'EIGHT_BIT') {
     $val =~ tr/A-Z/a-z/;