Couple of requests/questions

Philw · Post by **Philw** » Mon Dec 17, 2007 8:49 am

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

Post by **nml375** » Mon Dec 17, 2007 9:56 am

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: Select all

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 0
fileevent $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?

Philw · Post by **Philw** » Mon Dec 17, 2007 11:24 am

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.

Alchera · Post by **Alchera** » Mon Dec 17, 2007 5:38 pm

Philw: edit your posts and place the code within

Code: Select all

tags for readability.

Post by **nml375** » Mon Dec 17, 2007 6:25 pm

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.

Philw · Post by **Philw** » Tue Dec 18, 2007 8:26 am

wow thanks guys working perfectly!

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

Many thanks for your help so far!

Philw · Post by **Philw** » Tue Dec 18, 2007 7:08 pm

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: Select all

           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?

rosc2112 · Post by **rosc2112** » Tue Dec 18, 2007 7:24 pm

Code: Select all

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

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

YooHoo · Post by **YooHoo** » Wed Dec 19, 2007 1:52 am

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

Post by **nml375** » Wed Dec 19, 2007 12:42 pm

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.