egghelp/eggheads community

Load perl scripts to eggdrop

2006-01-16T14:27:59-04:00

using scripts written in languages other than Tcl (shell, Perl, whatever) by simply piping input/output seems kind of pointless to me (unless you need to do exactly that, i.e. you want to use already made script which is not related to eggdrop, and you are interested in input/only only, not in control)

Statistics: Posted by demond — Mon Jan 16, 2006 2:27 pm

Load perl scripts to eggdrop

2006-01-16T11:10:38-04:00

there is only 1 way I would advise someone to use perl scripts in eggdrop:
make a TCL script, open a pipe to perl and just read the output and throw it in some vars, in a channel or simply eval it if the script returns TCL script.

This may look like something like that then:

Code:

proc getrostatus:t {min h d m y} {set sock [open {|perl euro.pl} r]fileevent $sock readable [list getrostatus:cb $sock]return 0}proc getrostatus:cb {sock} {global euroset status [read $sock]if {[catch {close $sock} err]} {putlog $err} else {array set euro $status}return 0}

Well, you still need to know some TCL, but you are nolonger bound to restrictions that might apply to TCL. But note that fileevent triggers only about twice a second, so you usually wont get the callback triggered within less than 500ms.
For exeption handling I believe you need to catch the close statement like mentioned above.

Statistics: Posted by De Kus — Mon Jan 16, 2006 11:10 am

Load perl scripts to eggdrop

2006-01-15T17:16:24-04:00

I wonder if it's of any use... did you test it? I know you're perl guy

Statistics: Posted by demond — Sun Jan 15, 2006 5:16 pm

Load perl scripts to eggdrop

2006-01-15T16:15:03-04:00

Loading a PERL scripts is not possible with Eggdrop 1.6.x. Proper module to support that scripting language exists in 1.9 version.

Statistics: Posted by KrzychuG — Sun Jan 15, 2006 4:15 pm

Load perl scripts to eggdrop

2006-01-15T15:46:21-04:00

Hi there.

Been trying now to find out if it's posible to load a perl script to eggdrop.
But when i try to rehash the bot it just died.
With error:

[19:22] Writing user file...
[19:22] Writing channel file...
[19:22] Rehashing ...
[19:22] Listening at telnet port 3434 (bots).
[19:22] Listening at telnet port 4343 (users).
[19:22] Userinfo TCL v1.07 loaded (URL BF GF IRL EMAIL DOB PHONE ICQ).
[19:22] use '.help userinfo' for commands.
[19:22] Tcl error in file 'eggdrop.conf':
[19:22] invalid command name "use"
[19:31] while executing
[19:31] "use threads"
[19:31] (file "/home/bot/mother_mod.pl" line 5)
[19:31] invoked from within
[19:31] "source /home/bot/mother_mod.pl"
[19:31] (file "eggdrop.conf" line 1346)
[19:22] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

After this i was like "aww need perl modules" and did this in my terminal as root.

perl -MCPAN -e "install Bundle::CPAN";

And after this i was sure it would work but you know what? id didn't.
So now im after some help to see if i can get this to work.

First part in the mother_mod.pl script that ends it all.

#!/usr/bin/perl -w

#use strict;
use threads;
use Thread::Queue;
use HTML::TableExtract;
use lib qw( ..);
use LWP::UserAgent;
use HTTP::Cookies;
use Net::Telnet;

Anyone with any good ideas?

Statistics: Posted by honken — Sun Jan 15, 2006 3:46 pm