diff options
| -rw-r--r-- | decision.tcl | 18 | ||||
| -rw-r--r-- | lastseen.pl | 8 |
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; |