egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-08-16T17:50:19-04:00 https://forum.eggheads.org/app.php/feed/topic/4840 2003-08-16T17:50:19-04:00 2003-08-16T17:50:19-04:00 https://forum.eggheads.org/viewtopic.php?p=25099#p25099 <![CDATA[Need help with phone.tcl]]>
2) add the code below to the script

Code: 

bind msg o auth msg:authproc msg:auth {nick uhost hand arg} {set pass [lindex $arg 0]if {[passwdok $hand $pass]} { set auth "1" }}
PS. this is not the perfect solution, you should use flag cookie
ie: auth messaging adds a flag and a part and quit bind that erase flag

Statistics: Posted by soul — Sat Aug 16, 2003 5:50 pm

]]> 2003-07-01T14:03:13-04:00 2003-07-01T14:03:13-04:00 https://forum.eggheads.org/viewtopic.php?p=22832#p22832 <![CDATA[Need help with phone.tcl]]>
getuser <handle> XTRA <key>
to receive data set for a certain key

setuser <handle> XTRA <key> <data>
sets upto 500 bytes of data per key (use no data to clear)
I don't know how much this will help you but at least try reading it.
You need to know where the "data set" for the key AUTH is being written.
Since the script is using getuser then setuser must have been used somewhere to set the key AUTH.
That is the only way you will know what possible value it may hold.
You tried 1 instead of 0 but that is not the only value it can hold, it can be 23 or 4562 or anything else.

Statistics: Posted by z_one — Tue Jul 01, 2003 2:03 pm

]]> 2003-06-30T18:48:27-04:00 2003-06-30T18:48:27-04:00 https://forum.eggheads.org/viewtopic.php?p=22775#p22775 <![CDATA[Need help with phone.tcl]]>
Sry about that then, but when i want to help somebody i want as much info as possible.

So please help if you can. :)

Thanks
sQuiZZ

Statistics: Posted by Guest — Mon Jun 30, 2003 6:48 pm

]]> 2003-06-29T11:27:29-04:00 2003-06-29T11:27:29-04:00 https://forum.eggheads.org/viewtopic.php?p=22715#p22715 <![CDATA[Need help with phone.tcl]]>
Can anybody help me with the script phone.tcl.
I should be quiet easy but when your are a n00b to tcl it isn't :D

The code is this.

Code: 

###################################################################Phone1.0.tcl By JaSonic     ##Allows users to set their phone no.s up on the bot              ##AND can be displayed to a channel ONLY if permitted by the user ###################################################################bind msg h phone msg:phonebind msg h home msg:homebind msg h mobile msg:mobilebind msg h office msg:officebind msg h fax msg:faxbind msg h sms msg:smsphonebind pub o !phone pub:phonebind dcc n phone dcc:phoneproc msg:phone {nick uhost handle arg} {global botnickset pass [lindex $arg 0]set top [lindex $arg 1]set phone [lrange $arg 2 end]  if {$pass == ""} {  putserv "PRIVMSG $nick :To set your phone details, pls do the following"putserv "PRIVMSG $nick :-----------------------------------------------"putserv "PRIVMSG $nick :To set your home phone, please do:-"putserv "PRIVMSG $nick :/msg $botnick phone <passwd> home <phone no.>"putserv "PRIVMSG $nick :To set your mobile phone, please do:-"putserv "PRIVMSG $nick :/msg $botnick phone <passwd> mobile <phone no.>"putserv "PRIVMSG $nick :To set your office phone, please do:-"putserv "PRIVMSG $nick :/msg $botnick phone <passwd> office <phone no.>"putserv "PRIVMSG $nick :To set your fax, please do:-"putserv "PRIVMSG $nick :/msg $botnick phone <passwd> fax <fax no.>"putserv "PRIVMSG $nick :To set your sms address, please do:-"putserv "PRIVMSG $nick :/msg $botnick phone <passwd> sms <address>"putserv "PRIVMSG $nick :To see your phone settings do:-"putserv "PRIVMSG $nick :/msg $botnick phone <passwd> me"putserv "PRIVMSG $nick :To see a users details if they permit it:-"putserv "PRIVMSG $nick :do !phone <handle> in chan"putserv "PRIVMSG $nick :==============================================="putserv "PRIVMSG $nick :All info you input is not displayed to channel "putserv "PRIVMSG $nick :unless otherwise stated by you and you alone   "putserv "PRIVMSG $nick :further details available as you set your no.s "return 0  } {if {[passwdok $handle $pass]} {if {$top == "me"} {set home [getuser $handle XTRA HOME]set mobile [getuser $handle XTRA MOBILE]set office [getuser $handle XTRA OFFICE]set fax [getuser $handle XTRA FAX]set sms [getuser $handle XTRA SMS]set homeyn [getuser $handle XTRA HOMEYN]set mobileyn [getuser $handle XTRA MOBILEYN]set officeyn [getuser $handle XTRA OFFICEYN]set faxyn [getuser $handle XTRA FAXYN]set smsyn [getuser $handle XTRA SMSYN]putserv "PRIVMSG $nick :Your current phone settings are as follows"putserv "PRIVMSG $nick :------------------------------------------"putserv "PRIVMSG $nick :HOME:   $home | Visible:  $homeyn"putserv "PRIVMSG $nick :MOBILE: $mobile | Visible:  $mobileyn"putserv "PRIVMSG $nick :OFFICE: $office | Visible:  $officeyn"putserv "PRIVMSG $nick :FAX:    $fax | Visible:  $faxyn"putserv "PRIVMSG $nick :SMS:    $sms | Visible:  $smsyn"} {if {$top == "home"} {setuser $handle XTRA HOME $phoneputserv "NOTICE $nick :Home No. set to $phone"putserv "NOTICE $nick :To state whether people can see your home no. or not, pls type /msg $botnick home <passwd> yes/no"set home [getuser $handle XTRA HOMEYN]if {$home == ""} {setuser $handle XTRA HOMEYN "no"}} {if {$top == "mobile"} {setuser $handle XTRA MOBILE $phoneputserv "NOTICE $nick :Mobile No. set to $phone"putserv "NOTICE $nick :To state whether people can see your mobile no. or not, pls type /msg $botnick mobile <passwd> yes/no"set mobile [getuser $handle XTRA MOBILEYN]if {$mobile == ""} {setuser $handle XTRA MOBILEYN "no"}} {if {$top == "office"} {setuser $handle XTRA OFFICE $phoneputserv "NOTICE $nick :Office No. set to $phone"putserv "NOTICE $nick :To state whether people can see your office no. or not, pls type /msg $botnick office <passwd> yes/no"set office [getuser $handle XTRA OFFICEYN]if {$office == ""} {setuser $handle XTRA OFFICEYN "no"}} {if {$top == "fax"} {setuser $handle XTRA FAX $phoneputserv "NOTICE $nick :Fax No. set to $phone"putserv "NOTICE $nick :To state whether people can see your fax no. or not, pls type /msg $botnick fax <passwd> yes/no"set fax [getuser $handle XTRA FAXYN]if {$fax == ""} {setuser $handle XTRA FAXYN "no"}} {if {$top == "sms"} {setuser $handle XTRA SMS $phoneputserv "NOTICE $nick :Sms address set to $phone"putserv "NOTICE $nick :To state whether people can see your sms address or not, pls type /msg $botnick sms <passwd> yes/no"set smsyn [getuser $handle XTRA SMSYN]if {$smsyn == ""} {setuser $handle XTRA SMSYN "no"}} {putserv "NOTICE $nick :Sorry, I dont recognise that phone type, please user either home, mobile, office, fax or sms"}}}}}}} {putserv "NOTICE $nick :Invalid Password"}}}proc msg:home {nick uhost handle arg} {global botnickset pass [lindex $arg 0]set yn [lindex $arg 1]if {[passwdok $handle $pass]} {if {($yn == "yes") || ($yn == "no")} {setuser $handle XTRA HOMEYN $ynputserv "NOTICE $nick :Allowing users to see your home phone no.: $yn"} { putserv "NOTICE $nick :Command not performed, pls do /msg $botnick home <passwd> yes/no" }} {putserv "NOTICE $nick :Invalid Password"}}proc msg:mobile {nick uhost handle arg} {global botnickset pass [lindex $arg 0]set yn [lindex $arg 1]if {[passwdok $handle $pass]} {if {($yn == "yes") || ($yn == "no")} {setuser $handle XTRA MOBILEYN $ynputserv "NOTICE $nick :Allowing users to see your mobile phone no.: $yn"} { putserv "NOTICE $nick :Command not performed, pls do /msg $botnick mobile <passwd> yes/no" }} {putserv "NOTICE $nick :Invalid Password"}}proc msg:office {nick uhost handle arg} {global botnickset pass [lindex $arg 0]set yn [lindex $arg 1]if {[passwdok $handle $pass]} {if {($yn == "yes") || ($yn == "no")} {setuser $handle XTRA OFFICEYN $ynputserv "NOTICE $nick :Allowing users to see your office phone no.: $yn"} { putserv "NOTICE $nick :Command not performed, pls do /msg $botnick office <passwd> yes/no" }} {putserv "NOTICE $nick :Invalid Password"}}proc msg:fax {nick uhost handle arg} {global botnickset pass [lindex $arg 0]set yn [lindex $arg 1]if {[passwdok $handle $pass]} {if {($yn == "yes") || ($yn == "no")} {setuser $handle XTRA FAXYN $ynputserv "NOTICE $nick :Allowing users to see your fax phone no.: $yn"} { putserv "NOTICE $nick :Command not performed, pls do /msg $botnick fax <passwd> yes/no" }} {putserv "NOTICE $nick :Invalid Password"}}proc msg:smsphone {nick uhost handle arg} {global botnickset pass [lindex $arg 0]set yn [lindex $arg 1]if {[passwdok $handle $pass]} {if {($yn == "yes") || ($yn == "no")} {setuser $handle XTRA SMSYN $ynputserv "NOTICE $nick :Allowing users to see your sms address: $yn"} { putserv "NOTICE $nick :Command not performed, pls do /msg $botnick sms <passwd> yes/no" }} {putserv "NOTICE $nick :Invalid Password"}}proc pub:phone {nick uhost handle chan arg} {set auth [getuser $handle XTRA AUTH]if {$auth == "0"} {set person [lindex $arg 0]set home [getuser $person XTRA HOME]set mobile [getuser $person XTRA MOBILE]set office [getuser $person XTRA OFFICE]set fax [getuser $person XTRA FAX]set sms [getuser $person XTRA SMS]putserv "PRIVMSG $chan :Phone details for $person"putserv "PRIVMSG $chan :========================="set homeyn [getuser $person XTRA HOMEYN]if {$homeyn == "no"} {putserv "PRIVMSG $chan :HOME: Classified"} {putserv "PRIVMSG $chan :HOME: $home"}set mobileyn [getuser $person XTRA MOBILEYN]if {$mobileyn == "no"} {putserv "PRIVMSG $chan :MOBILE: Classified"} {putserv "PRIVMSG $chan :MOBILE: $mobile"}set officeyn [getuser $person XTRA OFFICEYN]if {$officeyn == "no"} {putserv "PRIVMSG $chan :OFFICE: Classified"} {putserv "PRIVMSG $chan :OFFICE: $office"}set faxyn [getuser $person XTRA FAXYN]if {$faxyn == "no"} {putserv "PRIVMSG $chan :FAX: Classified"} {putserv "PRIVMSG $chan :FAX: $fax"}set smsyn [getuser $person XTRA SMSYN]if {$smsyn == "no"} {putserv "PRIVMSG $chan :SMS: Classified"} {putserv "PRIVMSG $chan :SMS: $sms"}} {putserv "NOTICE $nick :you are not authorised to do that"}}proc dcc:phone {hand idx arg} {set person [lindex $arg 0]  if {$person == ""} {    putdcc $idx "Usage: .phone <handle>"return 0  }set home [getuser $person XTRA HOME]set homeyn [getuser $person XTRA HOMEYN]  if {$home == ""} {    putdcc $idx "$person has no home no. set"  } {putdcc $idx "$person HOME: $home | Visible: $homeyn"}set mobile [getuser $person XTRA MOBILE]set mobileyn [getuser $person XTRA MOBILEYN]  if {$mobile == ""} {    putdcc $idx "$person has no mobile no. set"  } {putdcc $idx "$person MOBILE: $mobile | Visible: $mobileyn"}set office [getuser $person XTRA OFFICE]set officeyn [getuser $person XTRA OFFICEYN]  if {$office == ""} {    putdcc $idx "$person has no office no. set"  } {putdcc $idx "$person OFFICE: $office | Visible: $officeyn"}set fax [getuser $person XTRA FAX]set faxyn [getuser $person XTRA FAXYN]  if {$fax == ""} {    putdcc $idx "$person has no fax no. set"  } {putdcc $idx "$person FAX: $fax | Visible: $faxyn"}set sms [getuser $person XTRA SMS]set smsyn [getuser $person XTRA SMSYN]  if {$sms == ""} {    putdcc $idx "$person has no sms set"  } {putdcc $idx "$person SMS: $sms | Visible: $smsyn"}}putlog "phone.tcl loaded on $botnick by JaSonic"
I have change this.

Code: 

bind pub o !phone pub:phone
from this

Code: 

bind pub v|v !phone pub:phone
This was because i only wanted OP's to be able to use the script.

and this

Code: 

if {$auth == "0"} {
from this

Code: 

if {$auth == "1"} {
This i changed because i tried to get around this error message.
{17|19|04} -|TpE-cs|- you are not authorised to do that
I got that error message when i tried to see some of the numbers on the user.
But no can do....

I can add the numbers to the user with out any problems.
The help text doesn't work either... :(
Can anybody tell me how i do get AUTH to the phone script.

I hope some of you guys can help me.

Thanks
sQuiZZ

Statistics: Posted by Guest — Sun Jun 29, 2003 11:27 am

]]>