egghelp/eggheads community

notice script

2007-04-29T16:20:23-04:00

Thanks alot FZ, I'll do it right now

iamdeath

Statistics: Posted by iamdeath — Sun Apr 29, 2007 4:20 pm

notice script

2007-04-28T21:40:35-04:00

Just a few tips for you to take into consideration:

Code:

set currentnick [lrange $text 2 end]

Here you're applying a list command on a string, to avoid problems with special characters use:

Code:

set currentnick [join [lrange [split $text] 2 end]]

[split] turns the string to a list and [join] turns the list to a string.

Also

Code:

set rusername [lindex $text 3]

you need to turn $text into a list, so you do

Code:

set rusername [lindex [split $text] 3]

Hope this was more understandable for you... just apply these tips all over your script and it should be fine

Statistics: Posted by Sir_Fz — Sat Apr 28, 2007 9:40 pm

notice script

2007-04-28T21:27:18-04:00

Ok I changed a few things and now it's working perfectly. Thanks alot guys for being soo helpfull..

iamdeath

Statistics: Posted by iamdeath — Sat Apr 28, 2007 9:27 pm

notice script

2007-04-28T09:30:16-04:00

I think I can explain you more only if you come to that network. I feel it difficult to explain what exactly the problem is with the script here. If you visit I can explain to you more. Let me know so I'll PrivateMessage you the server details.

thank you

Statistics: Posted by iamdeath — Sat Apr 28, 2007 9:30 am

notice script

2007-04-28T09:15:42-04:00

If something is unclear, ask us to clarify it. Otherwize we don't have any options then to assume you either understand it or have no interrest of learning it. Also, ignoring important suggestions (such as proper use of list-commands) really discourages us from putting much further effort into the thread.
We might tell you to read a manpage at times, as these often explain how a command works very well, and if we were to explain it ourself, we'd probably write almost the same text. Should something be unclear on a manpage, say so and we'll try to explain that part.
We do expect you to put some effort into trying to solve the problem, where at the same time we gladly throw hints and pointers to whats wrong or might be causing the error. However, if ones sole interrest is to find someone to write it for him/her, "Script Request" would be a better forum.

That said, to your last query;

Which proc?
Any valid name would do
How do I? (How do I trigger that proc?)
Use a binding to trigger that last proc. Figure out what is the last output from NS for a query, and do all that code when it triggers. I would also recommend cleaning up your variables at that time.

I do not know the specs for NS output, so I cannot say which notice to trigger on, you'll have to figure that one out.

Statistics: Posted by nml375 — Sat Apr 28, 2007 9:15 am

notice script

2007-04-28T08:52:00-04:00

So you didn't apply anything we told you here in your script. Before asking how to output the info, learn how to write eggdrop Tcl scripts that won't choke on special characters.

Tip: when using [lindex] on a string, [split] the string (e.g. lindex [split $arg] 0) same for [lrange] (e.g. lrange [split $arg] 0 2) and then apply join to convert it back to a string (e.g. join [lrange [split $arg] 0 2]).

Look Fz I did'nt use it because I did'nt understand it more, don't take every user like you guys are. Everyone is not professional you think with a different way don't think that everyone is perfect and knows about TCL programming. I am trying to write a code and I had problems I asked for help here, I did'nt understand the points you mentioned so I ignored them. If I ask again and again you would shout more. It's not good to accuse someone it's bettter to help him more in detail in he does'nt understand.

Ok if still you guys can help me my question is not about lindex or lrange it's all solved and output is coming problem. All I want to ask you is how can I continue in the end part of the script how do I make it output.

Ok 1 more thing, the tcl is working fine but it has 1 issue which bothers alot. If i use my script like this it's works:

Code:

proc script:notices11 {nick uhost hand text dest} {global scriptchannel rusername rdate lastseen infoline email rflags Epithet lastquit rnicknames rhost rchannels currentnickset currentnick [lrange $text 2 end]regsub -all {\{\}} $rflags "" rflagsregsub -all {\{\}} $rdate "" rdateregsub -all {\{\}} $infoline "" infolineregsub -all {\{\}} $Epithet "" Epithetregsub -all {\{\}} $rnicknames "" rnicknamesregsub -all {\{\}} $rhost "" rhostregsub -all {\{\}} $rchannels "" rchannelsregsub -all {\{\}} $currentnick "" currentnickregsub -all {\{\}} $lastquit "" lastquitregsub -nocase {Registered on:} $rdate "\00303Registered on:\003" rdateregsub -nocase {Last seen:} $lastseen "\00303Last Seen:\003" lastseenregsub -nocase {Infoline:} $infoline "\00303Infoline:\003" infolineregsub -nocase {Email address:} $email "\00303Email Address:\003" email regsub -nocase {Flags:} $rflags "\00303Flags:\003" rflagsregsub -nocase {Epithet:} $Epithet "\00303Epithet:\003" Epithetregsub -nocase {Last quit hostmask:} $lastquit "\00303Last quit hostmask:\003" lastquitregsub -nocase {Nickname\(s\):} $rnicknames "\00303Nickname(s):\003" rnicknamesregsub -nocase {Hostmask\(s\):} $rhost "\00303Hostmask(s):\003" rhostregsub -nocase {Channel\(s\):} $rchannels "\00303Channel(s):\003" rchannelsregsub -nocase {Current nickname\(s\):} $currentnick "\00303Current nickname(s):\003" currentnickputserv "PRIVMSG $scriptchannel :\00303Account information for:\003 \00307$rusername\003"putserv "PRIVMSG $scriptchannel :\00303Registered on:\003 \00314$rdate\003"putserv "PRIVMSG $scriptchannel :\00303Last Seen:\003 \00314$lastseen\003"putserv "PRIVMSG $scriptchannel :\00303Infoline:\003 \00314$infoline\003"putserv "PRIVMSG $scriptchannel :\00303Email Address:\003 \00314$email\003"putserv "PRIVMSG $scriptchannel :\00303Flags:\003 \00314$rflags\003"putserv "PRIVMSG $scriptchannel :\00303Epithet:\003 \00314$Epithet\003"putserv "PRIVMSG $scriptchannel :\00303Last quit hostmask:\003 \00310$lastquit\003"putserv "PRIVMSG $scriptchannel :\00303Nickname(s):\003 \00307$rnicknames\003"putserv "PRIVMSG $scriptchannel :\00303Hostmask(s):\003 \00314$rhost\003"putserv "PRIVMSG $scriptchannel :\00303Channel(s):\003 \00314$rchannels\003"putserv "PRIVMSG $scriptchannel :\00303Current nickname(s):\003 \00307$currentnick\003"}putlog "ns info script loaded by iamdeath.."

Code:

# -NS- Account information for hitshy: ## -NS- Registered on: Sat Jul 30 13:21:23 2005## -NS- Last seen: Right now!## -NS- Infoline: None## -NS- Email address: hitshy@msn.com## -NS- Flags: +hc## -NS- Epithet: a Webmaster## -NS- Last quit hostmask: hitshy@208.98.5.219## -NS- Nickname(s): Hitshy dean## -NS- Hostmask(s): *@*## -NS- Channel(s): 100:#snoopy 300:#opers 499:#NutShells 499:#music 100:#monitor 500:#leb ## -498:#lady 2:#jabal 400:#gudy ## 100:#exempt 500:#Druze 300:#Beirut 499:#a7la3alam## -NS- Current nickname(s): hitshy

Now the thing is that, this script will work fine only if all the notices are recieved from NS, some users don't have ## -NS- Channel(s): and ## -NS- Current nickname(s): .. so the script halts .. is there any good idea so that, if any notice is not recieved from Ns for any user the script should still go on and paste the data collected?..

Thanks nml and FZ you've been soo helpful.

Statistics: Posted by iamdeath — Sat Apr 28, 2007 8:52 am

notice script

2007-04-28T08:04:03-04:00

I find it amazing how you manage to remove the part of the code that's actually proper and should work, while at the same time you add new code that does not work at all, and yet call this progress.

Now to your (scripts) issues..
First, whenever you use list commands such as lindex and lrange, you need to use lists (create them using the list-command, or convert strings to lists using the split-command). Once you're done with your list operations, and wish to print the result out as a string, use the join-command to convert it back into a string (this will remove excessive {} and such).

So, join would make those 9 first regsub pointless, and it does it alot more efficiently. It would also handle a few other cases where your regsub's would be inadequate.

Secondly, keep track of your namespace variables. Any variable without a full namespace path, being set or read, will work in "localspace" - that is, the variable will only exist within that proc. If you wish to access a "globalspace" (namespace :: ) variable, you'll either have to link the local variable to the global one (using the command global), or use a full namespace path such as ::myglobalvariable.
Example:

Code:

global mybadvar               #Since we're in globalspace, this command is pretty pointless.set mybadvar "FooBar"         #Define the variable mybadvar in namespace ::proc mybadproc {} { #This code will choke as I'm trying to access the localspace #variable myvar, which has not yet been defined. puts stdout "$mybadvar"}set mygoodvar "FooBar FooBar" #Define the variable mygoodvar in namespace ::proc mygoodproc1 {} { global mygoodvar #This will work since I've linked the localspace variable to the globalspace variable, #thus accessing the globalspace variable ::mygoodvar using the local alias mygoodvar. puts stdout "$mygoodvar"}proc mygoodproc2 {} #This will work since I use a full namespace path to access the ::mygoodvar variable. puts stdout "$::mygoodvar"}

Statistics: Posted by nml375 — Sat Apr 28, 2007 8:04 am

notice script

2007-04-28T06:52:37-04:00

So you didn't apply anything we told you here in your script. Before asking how to output the info, learn how to write eggdrop Tcl scripts that won't choke on special characters.

Tip: when using [lindex] on a string, [split] the string (e.g. lindex [split $arg] 0) same for [lrange] (e.g. lrange [split $arg] 0 2) and then apply join to convert it back to a string (e.g. join [lrange [split $arg] 0 2]).

Statistics: Posted by Sir_Fz — Sat Apr 28, 2007 6:52 am

notice script

2007-04-27T20:56:33-04:00

Code:

#-NS- Account information for hitshy: ## -NS- Registered on: Sat Jul 30 13:21:23 2005## -NS- Last seen: Right now!## -NS- Infoline: None## -NS- Email address: hitshy@msn.com## -NS- Flags: +hc## -NS- Epithet: a Webmaster## -NS- Last quit hostmask: hitshy@208.98.5.219## -NS- Nickname(s): Hitshy dean## -NS- Hostmask(s): *@*## -NS- Channel(s): 100:#snoopy 300:#opers 499:#NutShells 499:#music 100:#monitor 500:#leb ## -498:#lady 2:#jabal 400:#gudy ## 100:#exempt 500:#Druze 300:#Beirut 499:#a7la3alam## -NS- Current nickname(s): hitshyset scriptchannel "#helpers"bind pub -|- .accountinfo script:textbind notc -|- "*has not been registered.*" script:notices12 bind notc -|- "*outranks you (command has no effect)*" script:notices13bind notc -|- "*Account information*" script:noticesbind notc -|- "*Registered on*" script:notices1bind notc -|- "*Last seen: Right*" script:notices2bind notc -|- "*Infoline*" script:notices3bind notc -|- "*Email address*" script:notices4bind notc -|- "*Flags*" script:notices5bind notc -|- "*Epithet:*" script:notices6bind notc -|- "*Last quit hostmask*" script:notices7bind notc -|- "*Nickname(s):*" script:notices8bind notc -|- "*Hostmask(s):*" script:notices9bind notc -|- "*Channel(s):*" script:notices10bind notc -|- "*Current nickname(s)*" script:notices11proc script:text { nick host handle chan text } {global scriptchannel rusername rdate lastseen infoline email rflags Epithet lastquit rnicknames rhost rchannels currentnickset text [split $text]set text [lindex $text 0]if {$text == ""} {puthelp "NOTICE $nick :You need to supply a nickname."; return}putserv "PRIVMSG ns :accountinfo *$text"}proc script:notices12 {nick uhost hand text dest} {global scriptchannelset text [split $text]set baduser [lindex $text 1]putquick "PRIVMSG $scriptchannel :\00303Account\003 \00307$baduser\003 \00303has not been registered.\003"return}proc script:notices13 {nick uhost hand text dest} {global scriptchannelset text [split $text]set outrank [lindex $text 0]putquick "PRIVMSG $scriptchannel :\00307$outrank\003 \00303outranks you (command has no effect).\003"return }proc script:notices {nick uhost hand text dest} {global scriptchannel rusernameset text [split $text]set rusername [lindex $text 3]}proc script:notices1 {nick uhost hand text dest} {global scriptchannel rdateset rdate [lrange $text 2 end]}proc script:notices2 {nick uhost hand text dest} {global scriptchannel lastseenset lastseen [lrange $text 2 end]}proc script:notices3 {nick uhost hand text dest} {global scriptchannel infolineset infoline [lrange $text 1 end]}proc script:notices4 {nick uhost hand text dest} {global scriptchannel emailset email [lrange $text 2 end]}proc script:notices5 {nick uhost hand text dest} {global scriptchannel rflagsset rflags [lrange $text 1 end]}proc script:notices6 {nick uhost hand text dest} {global scriptchannel Epithetset Epithet [lrange $text 1 end]}proc script:notices7 {nick uhost hand text dest} {global scriptchannel lastquitset lastquit [lrange $text 3 end]}proc script:notices8 {nick uhost hand text dest} {global scriptchannel rnicknamesset rnicknames [lrange $text 1 end]}proc script:notices9 {nick uhost hand text dest} {global scriptchannel rhostset rhost [lrange $text 1 end]}proc script:notices10 {nick uhost hand text dest} {global scriptchannel rchannelsset rchannels [lrange $text 1 end]}proc script:notices11 {nick uhost hand text dest} {global scriptchannel rusername rdate lastseen infoline email rflags Epithet lastquit rnicknames rhost rchannels currentnickset currentnick [lrange $text 2 end]}

Ok as you see I've collected data from Notices now I want to perfom them to the channel, how do I and which proc should I create to do that?.
this is the text I need to perform now.

Code:

regsub -all {\{\}} $rflags "" rflagsregsub -all {\{\}} $rdate "" rdateregsub -all {\{\}} $infoline "" infolineregsub -all {\{\}} $Epithet "" Epithetregsub -all {\{\}} $rnicknames "" rnicknamesregsub -all {\{\}} $rhost "" rhostregsub -all {\{\}} $rchannels "" rchannelsregsub -all {\{\}} $currentnick "" currentnickregsub -all {\{\}} $lastquit "" lastquitregsub -nocase {Registered on:} $rdate "\00303Registered on:\003" rdateregsub -nocase {Last seen:} $lastseen "\00303Last Seen:\003" lastseenregsub -nocase {Infoline:} $infoline "\00303Infoline:\003" infolineregsub -nocase {Email address:} $email "\00303Email Address:\003" email regsub -nocase {Flags:} $rflags "\00303Flags:\003" rflagsregsub -nocase {Epithet:} $Epithet "\00303Epithet:\003" Epithetregsub -nocase {Last quit hostmask:} $lastquit "\00303Last quit hostmask:\003" lastquitregsub -nocase {Nickname\(s\):} $rnicknames "\00303Nickname(s):\003" rnicknamesregsub -nocase {Hostmask\(s\):} $rhost "\00303Hostmask(s):\003" rhostregsub -nocase {Channel\(s\):} $rchannels "\00303Channel(s):\003" rchannelsregsub -nocase {Current nickname\(s\):} $currentnick "\00303Current nickname(s):\003" currentnickputserv "PRIVMSG $scriptchannel :\00303Account information for:\003 \00307$rusername\003"putserv "PRIVMSG $scriptchannel :\00303Registered on:\003 \00314$rdate\003"putserv "PRIVMSG $scriptchannel :\00303Last Seen:\003 \00314$lastseen\003"putserv "PRIVMSG $scriptchannel :\00303Infoline:\003 \00314$infoline\003"putserv "PRIVMSG $scriptchannel :\00303Email Address:\003 \00314$email\003"putserv "PRIVMSG $scriptchannel :\00303Flags:\003 \00314$rflags\003"putserv "PRIVMSG $scriptchannel :\00303Epithet:\003 \00314$Epithet\003"putserv "PRIVMSG $scriptchannel :\00303Last quit hostmask:\003 \00310$lastquit\003"putserv "PRIVMSG $scriptchannel :\00303Nickname(s):\003 \00307$rnicknames\003"putserv "PRIVMSG $scriptchannel :\00303Hostmask(s):\003 \00314$rhost\003"putserv "PRIVMSG $scriptchannel :\00303Channel(s):\003 \00314$rchannels\003"putserv "PRIVMSG $scriptchannel :\00303Current nickname(s):\003 \00307$currentnick\003"}putlog "ns info script loaded by iamdeath.."

Statistics: Posted by iamdeath — Fri Apr 27, 2007 8:56 pm

notice script

2007-04-26T19:33:06-04:00

Thanks alot guys.

Statistics: Posted by iamdeath — Thu Apr 26, 2007 7:33 pm

notice script

2007-04-26T17:14:42-04:00

iamdeath, nml375 gave you an example on how join solves your problem so you apply it in your code.

Code:

set rdate [join [lrange $text 2 end]]

Now that's not so hard, is it?

Statistics: Posted by Sir_Fz — Thu Apr 26, 2007 5:14 pm

notice script

2007-04-26T09:19:50-04:00

As I stated, the lrange part works like a charm... you've screwed up somewhere else... (or in bugzilla style INVALID:WORKSFORME)

Statistics: Posted by nml375 — Thu Apr 26, 2007 9:19 am

notice script

2007-04-26T09:15:09-04:00

yes but lrange isn't giving me the appropriate results I want.

Statistics: Posted by iamdeath — Thu Apr 26, 2007 9:15 am

notice script

2007-04-26T09:00:23-04:00

I simply took the output from your previous post to simulate your code...

Statistics: Posted by nml375 — Thu Apr 26, 2007 9:00 am

notice script

2007-04-26T08:58:48-04:00

Thanks alot nml but the thing is that, the date changes everytime when a user send a request for another user.
Registered on: Thu Apr 7 12:55:19 2005 every user has a different date, could you tell me another better command for that.

Statistics: Posted by iamdeath — Thu Apr 26, 2007 8:58 am