egghelp/eggheads community

Taking an input from a shell command

2005-03-15T15:38:00-04:00

Code:

set fruitname "oranges"bind pub -|- !fruit pub:fruitproc pub:fruit {n u h c a} { global fruitname putserv "PRIVMSG $c :Today's fruit is $fruitname!"}

Statistics: Posted by greenbear — Tue Mar 15, 2005 3:38 pm

Taking an input from a shell command

2005-03-15T15:25:41-04:00

works a treat mate... cheers....

i used $::botnick and it worked... how would i use "global"?

and see... i can do something's by myself!!!!!

Statistics: Posted by TurboChicken — Tue Mar 15, 2005 3:25 pm

Taking an input from a shell command

2005-03-15T15:17:02-04:00

It's a global var, so you either have to define it inside your proc, using 'global', or use $::botnick instead of $botnick.

Statistics: Posted by greenbear — Tue Mar 15, 2005 3:17 pm

Taking an input from a shell command

2005-03-15T15:10:24-04:00

well i think i have it working... just through trial and eror... i've gone through about 6 lots of hair....

one question i have:

all my bots have the nick Turbo-<2 or 3 char ref>

i want the script to take out the last 2 chars and put them in a var that i can use in the reply.

this is what i got so far

Code:

   set serverbw [lindex [split $botnick \-] 1]

but i get a tcl error

Code:

Tcl error [botnetusage]: can't read "botnick": no such variable

now i've used that variable as part of the trigger on the other script and it works fine... y can i not use it there?

Statistics: Posted by TurboChicken — Tue Mar 15, 2005 3:10 pm

Taking an input from a shell command

2005-03-15T13:36:29-04:00

I don't see anything wrong, so here's a few guesses

Maybe it's having trouble seing the bot (wrong botname).
One way to find out is to use putallbots instead of putbot.

Replace

Code:

putbot Turbo-BW "bwmsg ..."

With

Code:

putallbots "bwmsg ..."

That'll make any bot in the botnet with the bwmsg bind respond.

If that doesn't help, try changing the bind from +W to +b

And if the msg is too long, it might be cut off by the irc-server, and you get nothing.

Statistics: Posted by greenbear — Tue Mar 15, 2005 1:36 pm

Taking an input from a shell command

2005-03-15T13:20:20-04:00

i've made an evolution of the script....

so that one bot can be in a channel and someone type !bwusage <2char identifier>

as all the bots that are running this script are named Turbo-DG Turbo-GC etc.

i am using the botnet to communicate with the other bots

so in one channel someone types it and it sends a msg over the botnet to that bot.... and then that bot sends a msg back through the botnet to give the line of text.

now i'm almost there but i've only made it work once... and i'm not sure what i have changed to make it not work.

so anyway... here's the code

Turbo-BW is the master... that is in the channel and responding to commands.

Code:

bind pubm B "#turbo-test !bwusage*" adminbwusageproc adminbwusage {n u h c a} {  set bwbot [lindex $a 1]  putbot Turbo-$bwbot "bwusage"}

that's the listena and send part... i've checked that part using console +htrv and i can see the message being sent over.

no on Turbo-DG which is the one that i want to know the bw of.

Code:

bind bot W bwusage botnetusageproc botnetusage {b k a} { set d [eval exec vnstat --dumpdb] set i 1 foreach l [split $d \n] {  if $i==44 {   set line $l   ...   lots of code that i know works   ...   if {$est < 800.00} {     putbot Turbo-BW "bwmsg \002IN BW:\002  $in GB >>>>>> \002OUT BW:\002  $out GB >>>>>> \002TOTAL:\002  $tot GB >>>>>> \002ESTIMATED:\002 \0039 $est\003 GB"   }   if {$est > 800.00} {     putbot Turbo-BW "bwmsg \002IN BW:\002  $in GB >>>>>> \002OUT BW:\002  $out GB >>>>>> \002TOTAL:\002  $tot GB >>>>>> \002ESTIMATED:\002 \0034 $est\003 GB"   }  } incr i 1 }}

*note i know this part is working because i tried to replace the putbot part in there with just "putserv "PRIVMSG turbochic :working" and that responded but when i tried "putbot Turbo-BW "bwmsg working" " it didn't work

and now back on Turbo-BW (the master)

Code:

bind bot W bwmsg adminmsgproc adminmsg {b k a} {puthelp "PRIVMSG #turbo-test :$a"}

and nothing is responding...

both bots have the +W flag on them

Statistics: Posted by TurboChicken — Tue Mar 15, 2005 1:20 pm

Taking an input from a shell command

2005-03-12T19:35:04-04:00

If you take me somewhere sunny for the honeymoon, then yea, why not.

Oh, and I forgot to divide totGB in the code above, but I'm sure you'll figure it out.

Statistics: Posted by greenbear — Sat Mar 12, 2005 7:35 pm

Taking an input from a shell command

2005-03-12T19:27:41-04:00

will you marry me?

Statistics: Posted by TurboChicken — Sat Mar 12, 2005 7:27 pm

Taking an input from a shell command

2005-03-12T18:46:02-04:00

Code:

set line "m;0;1110636195;133;2131;183;111;1"# split up the list on ; and find the info.# 4th and 5th word on the list, counting from 0.set inMB [lindex [split $line \;] 3]set outMB [lindex [split $line \;] 4]# do the math, making sure it uses decimalsset inGB [expr $inMB/1024.0]set outGB [expr $outMB/1024.0]set totGB [expr $outMB+$inMB]# make it look pretty, with only 2 decimalsset in [format %.2f $inGB]set out [format %.2f $outGB]set total [format %.2f $totGB]# or if you only want the totalset totalGB [expr ($inMB+$outMB)/1024.0]set total [format %.2f $totalGB]

Statistics: Posted by greenbear — Sat Mar 12, 2005 6:46 pm

Taking an input from a shell command

2005-03-12T18:07:25-04:00

ahhh... it was confusing the hell outta me...

but i got it sorted... it works ok....

!bwusage
IN BW: 126.71 MB OUT BW: 1,740 MB TOTAL: 1,866 MB

now i have something to add to it... coz that way is only giving in MB and really want it in GB..

so the script also output's something else.... dumpdb

which for one output's a load of useless crap... but it does output the RAW figure in MB...

so i can do a calc on it and get GB...

problem being i'm no good with calculating things and the output is kinda hard to parse

m;0;1110636195;133;2131;183;111;1

;;;;;

so i can use the same as the other one to find it by finding the first one that has an "m" in it. that bit's fine.... but i need to get that in bw number out and out bw out....

do a calc... set inbwGB $inbw/1024 ( which should be a number value to 2 decimal places) and same for out....
and the set totbwGB ($inbw+$outbw)/1024

then i can output that...

i know it's a lot to ask and it seems like you've already done most of the script for me.... i am usually good with scripting... be this thing is kinda beyond me.... i've never had to do calc's before

if you could even tell me how to split the line up at ";" and then take out the sections i need... i could do the rest...
and as for calc... just gimme an example calc line... and i will work it out from there.

Statistics: Posted by TurboChicken — Sat Mar 12, 2005 6:07 pm

Taking an input from a shell command

2005-03-12T17:31:11-04:00

I just use concat to remove leading whitespace's, so that it looks prettier

Statistics: Posted by greenbear — Sat Mar 12, 2005 5:31 pm

Taking an input from a shell command

2005-03-12T17:10:45-04:00

yeah spotted that too

one thing i wanted to ask tho.... what exactly does the

Code:

putserv "PRIVMSG $c :[concat $l]"

do? i understand privmsg to channel ($c) but i don't get y there is [concat in there

i.e when i'm doing the string range part... would just putting the $l bit work?

Statistics: Posted by TurboChicken — Sat Mar 12, 2005 5:10 pm

Taking an input from a shell command

2005-03-12T16:06:20-04:00

ah yea, I made a typo, it should be

Code:

bind pub -|- !bwusage vnstatproc vnstat {n u h c t} { set d [eval exec vnstat -m] foreach l [split $d \n] {  if [string match -noc *[strftime %b]* $l] {    putserv "PRIVMSG $c :[concat $l]"  } }

Statistics: Posted by greenbear — Sat Mar 12, 2005 4:06 pm

Taking an input from a shell command

2005-03-12T15:09:51-04:00

well that should work ok as a temp solution until i can get out the stuff and parse it abit.

but there seems to be a problem with your code :/

Code:

bind pub -|- !bwusage vnstatproc vnstat [n u h c t] { set d [eval exec vnstat -m] foreach l [split $d \n] {  if [string match -noc *[strftime %b]* $l] {    putserv "PRIVMSG $c :[concat $l]"  } }}

i'm getting an error on rehash.

scripts/bwtest.tcl: invalid command name "n"

any ideas?

Statistics: Posted by TurboChicken — Sat Mar 12, 2005 3:09 pm

Taking an input from a shell command

2005-03-12T14:34:13-04:00

i don't understand what *[strftime %b]* is looking for?

It returns the current month, in a 3 char format. ie. Mar

So the code just look for the line that have 'Mar' in it and send it to irc.

Statistics: Posted by greenbear — Sat Mar 12, 2005 2:34 pm