decision.tcl adjusted to save answers for 60 minutes

lastseen.pl messages changed

2 files changed, 13 insertions, 13 deletions

diff --git a/decision.tcl b/decision.tcl
index 8b7ad94..b10abc1 100644
--- a/decision.tcl
+++ b/decision.tcl
@@ -8,8 +8,7 @@
 #  - first working version
 #
 # 1.1
-#  - remember answers for 60 minutes (doesn't work atm)
-#    mask arguments!
+#  - remember answers for 60 minutes
 
 
 bind pub - \[ proc_decision
@@ -37,7 +36,7 @@ if {[info exists do_dec($nick:$chan)]} {
    }
 }
 
-   set allargs $arguments
+   set allargs [string map {" " _} $arguments]
    set arguments [split $arguments]
    set count 1
    set klammer_count 0
@@ -61,12 +60,13 @@ if {[info exists do_dec($nick:$chan)]} {
    }
    set count 0
    set myrand [rand $klammer_count]
-  # if {[info exists do_dec($allargs)]} {
-  #    set myrand $do_dec($allargs)
-  # } else {
-  #    set do_dec($allargs) $myrand
-  #    timer 60 "unset do_dec($allargs)"
-  # }
+   if {[info exists do_dec($allargs)]} {
+      set myrand $do_dec($allargs)
+      timer 60 "unset do_dec($allargs)"
+   } else {
+      set do_dec($allargs) $myrand
+      timer 60 "unset do_dec($allargs)"
+   }
    set klammer_count 0
    if {$myrand == 0} {
       set output "\[X"
diff --git a/lastseen.pl b/lastseen.pl
index c70d1d0..196e5d7 100644
--- a/lastseen.pl
+++ b/lastseen.pl
@@ -43,16 +43,16 @@ while ($line=$log->readline()){
             ($reason=$by)=~s/.*: (.*)\n/$1/;
             $by=~s/:.*\n//i;
             
-            print "$nick kicked by $by on $date at $time reason: $reason\n";
+            print "$nick was kicked by $by on $date at $time reason: $reason\n";
          } elsif ($lastaction=~m/$nick \(.*\) left irc: /i){
             ($message=$lastaction)=~s/^.* $nick \(.*\) left irc: (.*)\n/$1/i;
-            print "$nick quits on $date at $time saying: $message\n";
+            print "$nick has quit on $date at $time saying: $message\n";
          } else {
             if ($lastaction=~m/\)\.$/) {
                ($message=$lastaction)=~s/^.* $nick \(.*\) left #[a-zA-Z0-9]* \((.*)\)\.\n/$1/i;
-               print "$nick parts on $date at $time saying: $message\n";
+               print "$nick has left on $date at $time saying: $message\n";
             } else {
-               print "$nick parts on $date at $time\n";
+               print "$nick has left on $date at $time\n";
             }
          }
          exit 0;