egghelp/eggheads community

Couple of requests/questions

2007-12-19T12:42:35-04:00

I'm not sure if your indenting is simply off, but have you checked that all { and } match up?
As for the terminating \003, it's recommended, but not mandatory for most irc clients.

Statistics: Posted by nml375 — Wed Dec 19, 2007 12:42 pm

Couple of requests/questions

2007-12-19T01:52:50-04:00

ppslim wrote a pretty good instructional on this, please take a gander at Colour and Formatting Codes to get a better idea

Statistics: Posted by YooHoo — Wed Dec 19, 2007 1:52 am

Couple of requests/questions

2007-12-18T19:24:06-04:00

Code:

putquick "PRIVMSG $channel :\0033$line\003" ;# GREEN

Need the closing \003 code.. and a semicolon before the comment if its on the same line.

Statistics: Posted by rosc2112 — Tue Dec 18, 2007 7:24 pm

Couple of requests/questions

2007-12-18T19:08:02-04:00

Hi Back again

Maybe im doing something wrong here, but

Ive got the script working, bu im just trying to do a bit of color coding on mirc with some if statements. Thing is when I put my code in the bot doesnt seem to output anything, i see nothign in the log or channel. However when this code is out it works fine. What have I done wrong?

Code:

           if {[string match {*RECOVERY*} $line]} {               putquick "PRIVMSG $channel :\0033$line" # GREEN           } elseif {[string match {*PROBLEM*} $line]} {               putquick "PRIVMSG $channel :\0034$line" # RED           } else {                putquick "PRIVMSG $channel :$line"}

Can anyone spot what's wrong with this?

Statistics: Posted by Philw — Tue Dec 18, 2007 7:08 pm

Couple of requests/questions

2007-12-18T08:26:07-04:00

wow thanks guys working perfectly!

Ok, onto the next one of syslog, how possible is that?

Many thanks for your help so far!

Statistics: Posted by Philw — Tue Dec 18, 2007 8:26 am

Couple of requests/questions

2007-12-17T18:25:35-04:00

Oops, minor mistake...
change $line to $text, mixed variable names while coding..
Updating my previous post in a moment..

Also opened the file as readonly, which will cause it to block until another process opens it as writeonly... changed to read-write access, and it should'nt block anymore now.

Statistics: Posted by nml375 — Mon Dec 17, 2007 6:25 pm

Couple of requests/questions

2007-12-17T17:38:44-04:00

Philw: edit your posts and place the code within

Code:

tags for readability.

Statistics: Posted by Alchera — Mon Dec 17, 2007 5:38 pm

Couple of requests/questions

2007-12-17T11:24:11-04:00

Hi

Thanks for the prompt reply!

putlog "Nagios IRC BOT Script"

set file "/usr/local/nagios/etc/objects/scripts/ircbot/ircpipe"

proc readfifo {file} {
if {[gets $file text] < 0} {
if {[eof $file]} {
close $file
putlog "FIFO closed due to eof-condition!"
return
}
} {
puthelp "PRIVMSG #chan :$line"
}
}

set fid [open "/usr/local/nagios/etc/objects/scripts/ircbot/ircpipe" "RDONLY"]
fconfigure $fid -blocking 0
fileevent $fid readable [list readfifo $fid]

I did that, (sorry like i said im a novice) but the bot hangs on startup, not doing anything, any ideas?

With regards to the syslog, it needs to act as a daemon, receiving messages from network devices.

Statistics: Posted by Philw — Mon Dec 17, 2007 11:24 am

Couple of requests/questions

2007-12-17T18:26:21-04:00

Reading from a fifo is abit more complicated, as you need an event-driven process to read data as it becomes available on the file interface.

The following code should point you in the right direction:

Code:

proc readfifo {file} { if {[gets $file text] < 0} {  if {[eof $file]} {   close $file   putlog "FIFO closed due to eof-condition!"   return  } } {  puthelp "PRIVMSG #yourchannel :$text" }}set fid [open "/path/to/fifo" "RDWR"]fconfigure $fid -blocking 0fileevent $fid readable [list readfifo $fid]

As for implementing syslog, would you like your eggdrop to act as a syslog daemon, or simply recieve messages from the system syslogd?

Statistics: Posted by nml375 — Mon Dec 17, 2007 9:56 am

Couple of requests/questions

2007-12-17T08:49:50-04:00

Hi all

I have a monitoring system setup for our network, currently I have an irc bot written in python that alerts us when there are problems. In essence all it does it check a file and whenever it finds info in there it outputs it to the channel.

How can this be achieved on tcl? (I'm a complete noivce) or is it possible to run a python script on an eggdrop? I'm just trying to get everything onto one bot so we don't have hundreds of bots in a channel.

The current bot is located here http://www.nagiosexchange.org/AddOn_Pro ... iew%5D=757

I'm sure its pretty simple, just a case of timers? I have tried but my efforts failed

putlog "Nagios IRC BOT Script"

set MyPipe "/usr/local/nagios/etc/objects/scripts/ircbot/ircpipe"
set x 1

while {$x < 5} {
set f [open $MyPipe]
foreach line [split [read $f \n]] {
if {!$line == ""} { putserv PRIVMSG #channel $line}
}
}

The pipe is a FIFO.

Also as another question, I wondered if anyone knew of a syslog eggdrop script, that could receive syslog info from devices and output it straight to the channel? If not how simple would this be to achieve?

Hope someone can help

Statistics: Posted by Philw — Mon Dec 17, 2007 8:49 am