/usr/share/amsn/plugins/camserv/camserv.tcl is in amsn-data 0.98.9-1ubuntu3.
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 54 | namespace eval ::camserv {
variable plugin_name "Webcam Server"
variable config
variable configlist
proc Init { dir } {
variable plugin_name
variable config
variable configlist
::plugins::RegisterPlugin $plugin_name
::plugins::RegisterEvent $plugin_name chat_msg_receive msgReceive
array set config {
contacts {my_allowed_contact@hotmail.com}
magicword {sendcamtome}
}
set configlist [list \
[list str "Magic word" magicword] \
[list str "Contacts" contacts] \
]
}
proc msgReceive {event evpar} {
variable config
upvar 2 msg msg
upvar 2 user user
set email $user
#TODO: first check should be if it is part of the string
if { $config(contacts) == $email && $email != [::config::getKey login]} {
#TODO: check if it's the first word of the msg instead of is the msg
if { $msg == $config(magicword)} {
::MSNCAM::SendInviteQueue $email
}
#TODO: a change magicword command (syntax: "change oldword newword" ?
# if {[string first "magicword" $msg] == 0 )} {
# set msg [string range $msg 10 end]
#
#
# }
}
}
}
|