summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--decision.tcl18
-rw-r--r--lastseen.pl8
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;