[brlug-general] perl bot

[John Hebert]

What _does_ your code snippet below do? Do you want help in debugging the
code below, or do you want a working alternative?

BTW, I assume you meant to say below; "I have tried this code, but (it) does
(not) do exactly what i need."

Your code snippet is surprisingly readable for Perl :) but I'm not quite
sure what this line does:

                if ($text =~ /User Connect (.*?)\ /)

What does it do?

Also, what is the format for the nicks.txt file?

I like seeing coding discussion on the list. It is an opportunity to learn
for me. Let's have more of it! :)

Thanks,
John Hebert

-----Original Message-----
From: Wade
To: General@brlug.net
Sent: 8/19/03 2:52 PM
Subject: [brlug-general] perl bot

Need more help with my bot.
Hope one of you perl geeks can help me with this.
I need the bot to search a file for nick or nick patterns and KILL the
nick.

I have tried this code, but does do exactly what i need.

open(LOG, "<nicks.txt") or die ("Could not open log file.");
              @nicks = <LOG>;
                if ($text =~ /User Connect (.*?)\ /) {
                $user = $1;
                chomp($user);
                foreach $pat (@nicks) {
                 if ($user =~ /$pat/) {
                print $sock "PRIVMSG $mychan :DRONE\r\n";
                last;

the PRIVMSG is just to test the bot to get it to print DRONE when it
matches a nick or pattern.

So what i need is, if i have "Mark" in the file , i need the bot to kill
mark, or if i have *1 in the file in need the bot to kill every nick
that ends in 1.

Sounds kinda useless , but the bot i wrote before this one working in
conjunction with another service and I would like this bot to work by
itself.

Wade


_______________________________________________
General mailing list
General@brlug.net
http://brlug.net/mailman/listinfo/general_brlug.net