blob: d82a1354e96bd00c20a7d398a32656d8578dc105 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
# lastseen by xeno
bind pub - !lastseen lastseen
bind pub - !lastspoke lastspoke
bind pub - !seen lastseen
bind pub - !spoke lastspoke
proc lastspoke {nick host hand chan arg} {
set arg [string trim $arg]
if {$arg == ""} {
return 0
}
set output [split "[exec perl /home/eggdrop/eggdrop/scripts/lastspoke.pl /home/eggdrop/eggdrop/logs [string trimleft $chan #] $arg]" "\n"]
foreach out $output {
putserv "PRIVMSG $chan :$out";
}
# set status [catch {set lastdate [exec egrep -iB 5000 "^.{9}$arg" logs/hackerboard.log.2008 | grep "00:00.*---" | tail -n 1 | cut -c13-]}]
# if {$status == 0} {
# set lastaction [exec egrep -i "^.{9}$arg" logs/hackerboard.log.2008 | tail -n 1]
# if {[onchan $arg $chan] != 1} {
# putserv "PRIVMSG $chan :$arg spoke last time on $lastdate"
# }
# putserv "PRIVMSG $chan :$arg's last action: $lastaction"
# } else {
# putserv "PRIVMSG $chan :I didn't remember $arg"
# }
}
proc lastseen {nick host hand chan arg} {
set arg [string trim $arg]
if {$arg == ""} {
return 0
}
if {[onchan $arg $chan] == 1} {
global botnick
if {$botnick == $arg} {
putserv "PRIVMSG $chan :Yes, I am here!"
} elseif {$nick == $arg} {
putserv "PRIVMSG $chan :Where is uhm $arg? Ah, there he is!"
} else {
putserv "PRIVMSG $chan :$arg is already here you fool..."
}
} else {
putserv "PRIVMSG $chan :[exec perl /home/eggdrop/eggdrop/scripts/lastseen.pl /home/eggdrop/eggdrop/logs [string trimleft $chan #] $arg]"
# set status [catch {set lastdate [exec egrep -iB 5000 "^.{8}$arg " logs/hackerboard.log.2008 | grep "00:00.*---" | tail -n 1 | cut -c13-]}]
# if {$status == 0} {
# set lastaction [exec egrep -i "^.{8}$arg " logs/hackerboard.log.2008 | grep -v "joined #" | tail -n 1]
# set lasttime [string range $lastaction 1 5]
# set kicked [string range $lastaction [expr 9 + [string length $arg]] [expr 14 + [string length $arg]]]
# set lastlist [split $lastaction]
# set lastlength [string length $lastaction]
# if {$kicked == "kicked"} {
# putserv "PRIVMSG $chan :$arg kicked by [string trimright [lindex $lastlist 6] ":"] on $lastdate at $lasttime reason: [string range $lastaction [expr [string first : $lastaction 5] + 2] $lastlength]"
# } else {
# if {[lindex $lastlist 4] == "irc:"} {
# putserv "PRIVMSG $chan :$arg quits on $lastdate at $lasttime saying: [string range $lastaction [expr 2 + [string first : $lastaction 5]] $lastlength]"
# } else {
# if {[string range $lastaction [expr $lastlength - 2] [expr $lastlength - 2]] == ")"} {
# putserv "PRIVMSG $chan :$arg parts on $lastdate at $lasttime saying: [string trimright [string range $lastaction [expr 1 + [string first ( $lastaction [expr 1 + [string first ( $lastaction]]]] $lastlength] ).]"
# } else {
# putserv "PRIVMSG $chan :$arg parts on $lastdate at $lasttime"
# }
# }
# }
# } else {
# putserv "PRIVMSG $chan :I didn't remember $arg"
# }
}
}
putlog "lastseen by xeno (pimped by lookshe) loaded"
|
