/usr/share/amsn/plugins/bugbuddy/bugbuddy.tcl is in amsn-data 0.98.9-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | namespace eval ::bugbuddy {
variable timer ""
variable config
variable configlist
variable language
proc InitPlugin { dir } {
variable configlist
variable language
array set ::bugbuddy::config {
user {}
message {Hi}
timeout {5000}
}
set langdir [file join $dir "lang"]
set lang [::config::getGlobalKey language]
load_lang en $langdir
load_lang $lang $langdir
::plugins::RegisterPlugin "bugbuddy"
set configlist [list \
[list str "[trans user]" user] \
[list str "[trans message]" message] \
[list str "[trans timeout]" timeout] \
[list ext "[trans activate]" activate] \
]
}
proc DeInitPlugin { } {
variable timer
after cancel $timer
set timer ""
}
proc activate {} {
variable timer
if {$timer == ""} {
plugins_log bugbuddy "Started"
set timer [after 500 ::bugbuddy::newname]
} else {
plugins_log bugbuddy "Stopped"
after cancel $timer
set timer ""
}
}
proc newname {} {
variable timer
variable config
set timer [after $config(timeout) ::bugbuddy::newname]
set win [::ChatWindow::For $config(user)]
::amsn::MessageSend $win 0 $config(message)
return 0
}
}
|