From infobot-dev@metronomicon.com Fri Feb 25 03:19:55 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id DAA23597 for infobot-dev-list; Fri, 25 Feb 2000 03:18:32 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from hotmail.com (f72.law8.hotmail.com [216.33.241.72]) by token.metronomicon.com (8.9.3/8.8.7) with SMTP id DAA23594 for ; Fri, 25 Feb 2000 03:18:31 -0500 Received: (qmail 945 invoked by uid 0); 25 Feb 2000 08:19:18 -0000 Message-ID: <20000225081918.944.qmail@hotmail.com> Received: from 195.99.55.133 by www.hotmail.com with HTTP; Fri, 25 Feb 2000 00:19:18 PST X-Originating-IP: [195.99.55.133] From: "Pete Sergeant" To: infobot-dev@metronomicon.com Subject: Factoid-Lookup Query Date: Fri, 25 Feb 2000 08:19:18 GMT Mime-Version: 1.0 Content-Type: text/plain; format=flowed Sender: infobot-dev@metronomicon.com Precedence: bulk Status: RO I was kinda waiting for someone to write a patch like this, but no-one has... This basically allows you to use a regex to search an infobot's factoids. It has been written for Infobot 0.44.3. On large infobot's this may be slow - on my 'hacked' desktop version of infobot 0.44.3 with 10,000 factoids it takes about 5 seconds on my Pentium 90 with 16mgs of RAM. As yet, it's only been tested on my infobot, so if anyone finds any bugs, (1) I won't be surprised (2) Please tell me about them. I added the following code to extras.pl, though I'd of thought it can be added to myroutines.pl too. -- Add to Extras.pl -- if ($message =~ m/^fq (is|are) (.+)/i) { my @dbquery_keys = getDBMKeys($1); my $dbquery_regex = $2; ($dbquery_retvar, $dbquery_numfound) = ''; $dbquery_regex =~ s/^\/(.*)\/$/$1/; if (eval { $line =~ /($dbquery_regex)?/ }) { foreach $dbquery_key (@dbquery_keys) { if ($dbquery_key =~ m/$dbquery_regex/i) { $dbquery_retvar .= "\n$dbquery_key"; $dbquery_numfound++; } } if ($dbquery_retvar) { &msg($who, "Found: $dbquery_numfound result(s) $dbquery_retvar"); } else { &msg($who, "Sorry, nothing found matching $dbquery_regex"); } } else { &msg($who, "$dbquery_regex an invalid regex..."); } return "NOREPLY"; } -- End Code -- Using that exactly as it is above, you'd type 'fq is .*w$' to find factoids ending in w in the 'is' database. Finally, is there enough interest in using 0.44.3 as a console-mode bot to warrant me posting my patch that allows me to? -- Pete Sergeant ______________________________________________________ Get Your Private, Free Email at http://www.hotmail.com From infobot-dev@metronomicon.com Fri Feb 25 07:10:41 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id HAA25030 for infobot-dev-list; Fri, 25 Feb 2000 07:10:37 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from mail.imaginet.co.uk (mail@mail.imaginet.co.uk [194.168.150.4]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id HAA25027 for ; Fri, 25 Feb 2000 07:10:35 -0500 Received: from wildcat.imaginet.co.uk ([194.168.150.34] ident=mail) by mail.imaginet.co.uk with esmtp (Exim 2.05 #1) id 12OJb2-00065T-00 for infobot-dev@infobot.org; Fri, 25 Feb 2000 12:11:48 +0000 Received: from mstevens by wildcat.imaginet.co.uk with local (Exim 2.05 #1 (Debian)) id 12OJb1-0005a2-00; Fri, 25 Feb 2000 12:11:47 +0000 Date: Fri, 25 Feb 2000 12:11:47 +0000 From: Michael Stevens To: infobot-dev@infobot.org Subject: geckobot, perl 5.004_04 Message-ID: <20000225121147.A21396@imaginet.co.uk> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Mailer: Mutt 1.0.1i Sender: infobot-dev@metronomicon.com Precedence: bulk Status: RO What is the status of geckobot v infobot? Which one is more appropriate to have new work done for it? (aka, should I, when I get happy with my bug stuff, make it work for one, the other, or both?) Has anyone had a chance to look at line 132 of Reply.pl in infobot that breaks perl 5.004_04: my(@poss) = split(/(? Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id OAA29647 for infobot-dev-list; Fri, 25 Feb 2000 14:05:30 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from ux1.sp.cs.cmu.edu (UX1.SP.CS.CMU.EDU [128.2.198.101]) by token.metronomicon.com (8.9.3/8.8.7) with SMTP id OAA29644 for ; Fri, 25 Feb 2000 14:05:30 -0500 Received: from PROTECTED.SPEECH.CS.CMU.EDU by ux1.sp.cs.cmu.edu id aa19079; 25 Feb 2000 13:58 EST Message-ID: <38B6D171.5ADD32B7@cs.cmu.edu> Date: Fri, 25 Feb 2000 14:01:05 -0500 From: Kevin Lenzo Organization: School of Computer Science, Carnegie Mellon University X-Mailer: Mozilla 4.61 [en] (X11; I; Linux 2.2.14 i686) X-Accept-Language: en MIME-Version: 1.0 To: Pete Sergeant CC: infobot-dev@metronomicon.com Subject: Re: Factoid-Lookup Query References: <20000225081918.944.qmail@hotmail.com> Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Sender: infobot-dev@metronomicon.com Precedence: bulk Status: RO Hi, Hmm, this was already implemented, except without full regex power... purl, search for oznoid Looking for oznoid: oznoid - where is the url to the voice thingy of yours? oznoid, veblen is proud to say that I've discovered an untrackable bug. :) oznoid.what is callbot? oznoid obvious is retrofitting a furby to run infobot "oznoid's machine is working, so I'M working" ...showing 5 hits (more may exist). i'll look a bit more shortly, kevin From infobot-dev@metronomicon.com Fri Feb 25 14:07:24 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id OAA29748 for infobot-dev-list; Fri, 25 Feb 2000 14:07:24 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from ux1.sp.cs.cmu.edu (UX1.SP.CS.CMU.EDU [128.2.198.101]) by token.metronomicon.com (8.9.3/8.8.7) with SMTP id OAA29745 for ; Fri, 25 Feb 2000 14:07:23 -0500 Received: from PROTECTED.SPEECH.CS.CMU.EDU by ux1.sp.cs.cmu.edu id aa19124; 25 Feb 2000 14:01 EST Message-ID: <38B6D1F0.F87EC9B1@cs.cmu.edu> Date: Fri, 25 Feb 2000 14:03:12 -0500 From: Kevin Lenzo Organization: School of Computer Science, Carnegie Mellon University X-Mailer: Mozilla 4.61 [en] (X11; I; Linux 2.2.14 i686) X-Accept-Language: en MIME-Version: 1.0 To: Michael Stevens CC: infobot-dev@infobot.org Subject: Re: geckobot, perl 5.004_04 References: <20000225121147.A21396@imaginet.co.uk> Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Sender: infobot-dev@metronomicon.com Precedence: bulk Status: RO Infobot is more stable, geckobot is rising. Infobot will remain active for some time, i'm sure. Should be easy to migrate to the gecko if it works in the info. Michael Stevens wrote: > > What is the status of geckobot v infobot? Which one is more > appropriate to have new work done for it? > > (aka, should I, when I get happy with my bug stuff, make it work for > one, the other, or both?) > > Has anyone had a chance to look at line 132 of Reply.pl in infobot > that breaks perl 5.004_04: > > my(@poss) = split(/(? > (a negative lookbehind assertion, as far as I can tell). > > I tried a fix myself, but I'm having trouble working out the meaning > so I'm not sure if it's right. yep. there should be no \ before the |. that's part of Skrewtape's patch to allow protecting | in real perl examples... kevin From infobot-dev@metronomicon.com Fri Feb 25 14:19:57 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id OAA30224 for infobot-dev-list; Fri, 25 Feb 2000 14:19:56 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from fwnau040.usco.com (fwnau040.usco.com [207.92.15.79]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id OAA30221 for ; Fri, 25 Feb 2000 14:19:55 -0500 Received: from ntnau210.usco.com (ntnau210.usco.com [172.16.66.43]) by fwnau040.usco.com (8.9.1/8.8.5) with ESMTP id OAA23401 for ; Fri, 25 Feb 2000 14:21:06 -0500 (EST) Received: by ntnau210.usco.com with Internet Mail Service (5.5.2650.21) id ; Fri, 25 Feb 2000 14:21:05 -0500 Message-ID: From: "Meltzer, Kevin" To: infobot-dev@metronomicon.com Subject: Actor linking module Date: Fri, 25 Feb 2000 14:21:05 -0500 MIME-Version: 1.0 X-Mailer: Internet Mail Service (5.5.2650.21) Content-Type: multipart/mixed; boundary="----_=_NextPart_000_01BF7FC5.75ECA5B0" Sender: infobot-dev@metronomicon.com Precedence: bulk Status: RO This message is in MIME format. Since your mail reader does not understand this format, some or all of this message may not be legible. ------_=_NextPart_000_01BF7FC5.75ECA5B0 Content-Type: text/plain; charset="iso-8859-1" Ok, somewhat silly, and somewhat kludgy :) But, I had a few minutes and I haven't seen too much going on on the list as of late. This module is an interface to the 'Six degrees' thing between any two actors. currently the hook is 'alink to '. Comments, suggestions, patches welcome... Cheers, KM ------_=_NextPart_000_01BF7FC5.75ECA5B0 Content-Type: application/octet-stream; name="ActorLink.pm" Content-Disposition: attachment; filename="ActorLink.pm" package Infobot::Module::ActorLink; use strict; use Infobot::Module; $Infobot::Module::ActorLink::VERSION = "0.01_00"; $Infobot::Module{"ActorLink"} = $Infobot::Module::ActorLink::VERSION; @Infobot::Module::ActorLink::ISA = qw(Infobot::Module); my $anybad; BEGIN { $anybad = 0; eval "use LWP::UserAgent"; $@ and do { $anybad = "ActorLink is missing LWP::UserAgent\n"; print STDERR $anybad; }; } sub new { return undef if $anybad; my $class = shift ; my $self = $class->SUPER::new(@_); $self->weight(1); $self->name('ActorLink'); $self->regex(qr/^alink\s+(.*)$/i); $self->usage('alink to '); $self->descrip("Find 'degrees' seperating two actors."); bless $self, $class; } sub action { my ($self, $message) = @_; return '' unless $self->enabled; my $in_str = $message->get('args')->[0]; my ($fname, $sname) = split(/\bto\b/,$in_str); if (!$fname || !$sname) { return "Invalid crap"; } # The below is what URI::Escape does # I would rather do the few things here # rather than make someone install it my %escapes; for (0..255) { $escapes{chr($_)} = sprintf("%%%02X", $_); } (my $urlFname = $fname) =~ s/([^;\/?:@&=+\$,A-Za-z0-9\-_.!~*'()])/$escapes{$1}/g; (my $urlSname = $sname) =~ s/([^;\/?:@&=+\$,A-Za-z0-9\-_.!~*'()])/$escapes{$1}/g; my $result; my $url = qq(http://www.cs.virginia.edu/cgi-bin/oracle/movielinks?firstname=$urlFname&secondname=$urlSname); my $ua = new LWP::UserAgent; $ua->timeout(10); $ua->proxy('http','http://wwwproxy1.external.usco.com:8000/'); my $req = HTTP::Request->new('GET', $url); my $res = $ua->request($req); return "There was trouble getting actor linkage." unless $res->is_success; my $content = $res->content; $content =~ s/\n//g; # Below is cheap if ($content =~ /\d+\.

(.*?)

/gism) { $result = $1; $result =~ s/
/, /g; $result =~ s/<[^>].*?>//g; $result =~ s/\s{2,}//g; }else{ $result = qq(There was trouble getting linkage between ${fname}and${sname}.); } return $result; } 1; __END__ =head1 NAME ActorLink.pm - Interface to get 'degrees' of seperation of two actors. =head1 SYNOPSIS alink ted danson to ron howard (would return) Ron Howard was in Magical World of Chuck Jones, The (1992) with Steve Guttenberg, Steve Guttenberg was in Three Men and a Baby (1987) with Ted Danson =head1 PREREQUISITES LWP::* =head1 PUBLIC INTERFACE alink to =head1 DESCRIPTION Displays linkage from one actor to another. =head1 CHANGES 0.01_00 - 2/25/2000 - First created. =head1 AUTHORS Kevin Meltzer ({KM}) ------_=_NextPart_000_01BF7FC5.75ECA5B0-- From infobot-dev@metronomicon.com Fri Feb 25 14:21:23 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id OAA30318 for infobot-dev-list; Fri, 25 Feb 2000 14:21:23 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from fwnau040.usco.com (fwnau040.usco.com [207.92.15.79]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id OAA30315 for ; Fri, 25 Feb 2000 14:21:16 -0500 Received: from ntnau210.usco.com (ntnau210.usco.com [172.16.66.43]) by fwnau040.usco.com (8.9.1/8.8.5) with ESMTP id OAA23648 for ; Fri, 25 Feb 2000 14:22:29 -0500 (EST) Received: by ntnau210.usco.com with Internet Mail Service (5.5.2650.21) id ; Fri, 25 Feb 2000 14:22:27 -0500 Message-ID: From: "Meltzer, Kevin" To: infobot-dev@metronomicon.com Subject: RE: Actor linking module Date: Fri, 25 Feb 2000 14:22:26 -0500 MIME-Version: 1.0 X-Mailer: Internet Mail Service (5.5.2650.21) Content-Type: multipart/mixed; boundary="----_=_NextPart_000_01BF7FC5.A69BA2F0" Sender: infobot-dev@metronomicon.com Precedence: bulk Status: RO This message is in MIME format. Since your mail reader does not understand this format, some or all of this message may not be legible. ------_=_NextPart_000_01BF7FC5.A69BA2F0 Content-Type: text/plain; charset="iso-8859-1" Ugh.. may help if I remember to take out my proxy line :) Sorry... > -----Original Message----- > From: Meltzer, Kevin [mailto:KMeltzer@USCO.com] > Sent: Friday, February 25, 2000 2:21 PM > To: infobot-dev@metronomicon.com > Subject: Actor linking module > > > Ok, somewhat silly, and somewhat kludgy :) But, I had a few > minutes and I > haven't seen too much going on on the list as of late. > > This module is an interface to the 'Six degrees' thing between any two > actors. currently the hook is 'alink to '. Comments, > suggestions, patches welcome... > > > Cheers, > KM > > > ------_=_NextPart_000_01BF7FC5.A69BA2F0 Content-Type: application/octet-stream; name="ActorLink.pm" Content-Disposition: attachment; filename="ActorLink.pm" package Infobot::Module::ActorLink; use strict; use Infobot::Module; $Infobot::Module::ActorLink::VERSION = "0.01_00"; $Infobot::Module{"ActorLink"} = $Infobot::Module::ActorLink::VERSION; @Infobot::Module::ActorLink::ISA = qw(Infobot::Module); my $anybad; BEGIN { $anybad = 0; eval "use LWP::UserAgent"; $@ and do { $anybad = "ActorLink is missing LWP::UserAgent\n"; print STDERR $anybad; }; } sub new { return undef if $anybad; my $class = shift ; my $self = $class->SUPER::new(@_); $self->weight(1); $self->name('ActorLink'); $self->regex(qr/^alink\s+(.*)$/i); $self->usage('alink to '); $self->descrip("Find 'degrees' seperating two actors."); bless $self, $class; } sub action { my ($self, $message) = @_; return '' unless $self->enabled; my $in_str = $message->get('args')->[0]; my ($fname, $sname) = split(/\bto\b/,$in_str); if (!$fname || !$sname) { return "Invalid crap"; } # The below is what URI::Escape does # I would rather do the few things here # rather than make someone install it my %escapes; for (0..255) { $escapes{chr($_)} = sprintf("%%%02X", $_); } (my $urlFname = $fname) =~ s/([^;\/?:@&=+\$,A-Za-z0-9\-_.!~*'()])/$escapes{$1}/g; (my $urlSname = $sname) =~ s/([^;\/?:@&=+\$,A-Za-z0-9\-_.!~*'()])/$escapes{$1}/g; my $result; my $url = qq(http://www.cs.virginia.edu/cgi-bin/oracle/movielinks?firstname=$urlFname&secondname=$urlSname); my $ua = new LWP::UserAgent; $ua->timeout(10); my $req = HTTP::Request->new('GET', $url); my $res = $ua->request($req); return "There was trouble getting actor linkage." unless $res->is_success; my $content = $res->content; $content =~ s/\n//g; # Below is cheap if ($content =~ /\d+\.

(.*?)

/gism) { $result = $1; $result =~ s/
/, /g; $result =~ s/<[^>].*?>//g; $result =~ s/\s{2,}//g; }else{ $result = qq(There was trouble getting linkage between ${fname}and${sname}.); } return $result; } 1; __END__ =head1 NAME ActorLink.pm - Interface to get 'degrees' of seperation of two actors. =head1 SYNOPSIS alink ted danson to ron howard (would return) Ron Howard was in Magical World of Chuck Jones, The (1992) with Steve Guttenberg, Steve Guttenberg was in Three Men and a Baby (1987) with Ted Danson =head1 PREREQUISITES LWP::* =head1 PUBLIC INTERFACE alink to =head1 DESCRIPTION Displays linkage from one actor to another. =head1 CHANGES 0.01_00 - 2/25/2000 - First created. =head1 AUTHORS Kevin Meltzer ({KM}) ------_=_NextPart_000_01BF7FC5.A69BA2F0-- From infobot-dev@metronomicon.com Mon Mar 6 17:32:30 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id RAA21068 for infobot-dev-list; Mon, 6 Mar 2000 17:31:36 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from flynn.northpark.edu ([206.68.40.29]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id RAA21065 for ; Mon, 6 Mar 2000 17:31:35 -0500 Received: from pedro by flynn.northpark.edu with local (Exim 3.12 #1 (Debian)) id 12S63B-0000OH-00 for ; Mon, 06 Mar 2000 16:32:29 -0600 Date: Mon, 6 Mar 2000 16:32:29 -0600 From: "Peter A. Peterson II" To: infobot-dev@infobot.org Subject: Debian Package: perl upgrades Message-ID: <20000306163229.A317@flynn.zork.net> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii User-Agent: Mutt/1.0.1i X-pw: reindeer flotilla X-Breakfast-Special: Eggs=scrambled_hard; Toast=rye Sender: infobot-dev@metronomicon.com Precedence: bulk Status: RO I recently upgraded my Debian box, and it mentions that perl updates will force you to convert your now obsolete databases. What it does not mention (obviously) is that infobots don't understand the populated database and they blithely hose it with their own new-style db. This is obviously not a bug, per se, but will be disastrous if an infobot user isn't backing up their databases. Yours, pedro From infobot-dev@metronomicon.com Fri Mar 10 08:14:49 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id IAA24385 for infobot-dev-list; Fri, 10 Mar 2000 08:12:34 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from ux1.sp.cs.cmu.edu (UX1.SP.CS.CMU.EDU [128.2.198.101]) by token.metronomicon.com (8.9.3/8.8.7) with SMTP id IAA24382 for ; Fri, 10 Mar 2000 08:12:33 -0500 Received: from ip56.pittsburgh5.pa.pub-ip.psi.net by ux1.sp.cs.cmu.edu id aa13157; 10 Mar 2000 8:13 EST Message-ID: <38C8F3CD.38E7415E@cs.cmu.edu> Date: Fri, 10 Mar 2000 08:08:29 -0500 From: Kevin Lenzo Organization: School of Computer Science, Carnegie Mellon University X-Mailer: Mozilla 4.61 [en] (X11; U; Linux 2.2.14 i686) X-Accept-Language: en MIME-Version: 1.0 To: "Peter A. Peterson II" CC: infobot-dev@infobot.org Subject: Re: Debian Package: perl upgrades References: <20000306163229.A317@flynn.zork.net> Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Sender: infobot-dev@metronomicon.com Precedence: bulk Status: RO "Peter A. Peterson II" wrote: > > I recently upgraded my Debian box, and it mentions that perl updates > will force you to convert your now obsolete databases. > > What it does not mention (obviously) is that infobots don't understand > the populated database and they blithely hose it with their own new-style > db. > > This is obviously not a bug, per se, but will be disastrous if an > infobot user isn't backing up their databases. > > Yours, > pedro True. This is a limitation of the DBM implementation. The 'good' news is that if you can find a version with the old DBM implementation, you can dump out the db to a flat ascii file using scripts/dump_db and then move the ascii file over and re-create the dbs with update_db. I hope you didn't lose much data. kevin From infobot-dev@metronomicon.com Tue Mar 14 18:33:04 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id SAA18184 for infobot-dev-list; Tue, 14 Mar 2000 18:31:52 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from LucidX.com (root@[63.199.194.66]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id SAA18181 for ; Tue, 14 Mar 2000 18:31:51 -0500 Received: from LucidX.com (cp5@localhost.LucidX.com [127.0.0.1]) by LucidX.com (8.9.3/8.9.3) with ESMTP id PAA10552 for ; Tue, 14 Mar 2000 15:33:34 -0800 (PST) (envelope-from CommPort5@LucidX.com) Message-ID: <38CECC4D.CE987AC6@LucidX.com> Date: Tue, 14 Mar 2000 15:33:34 -0800 From: "Samy Kamkar (CommPort5)" Organization: LucidX X-Mailer: Mozilla 4.7 [en] (X11; I; FreeBSD 3.4-RELEASE i386) X-Accept-Language: en MIME-Version: 1.0 To: infobot-dev@infobot.org Subject: Infobot server 'jump' patch Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O Here is a patch I did so you can make your infobot 'jump' to another IRC server through a private message, and you assign the server through the message. This also only allows the owner(s) of the bot to use this function. Usage is '/msg infobot jump irc.server. Here is the first part in src/User.pl, add the +'s and the lines without the +'s should already be there. Here it is: sleep 2; status("Dying by $who\'s request"); exit(0); } + if ($message =~ /^\s*jump\s+(.*)\s*$/) { + if (!exists $verified{$VerifWho}) { + &status("unverified <$who> $message"); + &msg($who, $unverified_message); + return 'NOREPLY'; + } + &rawout("QUIT :Reconnection requested by $who"); + status("Connecting to $1 by $who\'s request"); + &irc($1); + } if ($message =~ /^reload$/i) { if (!exists $verified{$VerifWho}) { &status("unverified <$who> $message"); Next, you will have to add something to src/Irc.pl (Note: This is in 'sub irc { }'). IF you are using the random server patch I made, use the next few lines, if you never added my random server patch look further down. People using the random server patch: while ($connected) { @serv = split(/, /,$param{server}); $servr = "$serv[int(rand(@serv))]"; + $servr = "$_[0]" if (@_); srvConnect($servr, $param{port}); People NOT using the patch must do this to src/Irc.pl: while ($connected) { + $servr = $param{server}; + $servr = "$_[0]" if (@_); - srvConnect($param{server}, $param{port}); + srvConnect($servr, $param{port}); (few lines down) - rawout("USER $param{ircuser} $param{ident} $param{server} :$param{realname}"); + rawout("USER $param{ircuser} $param{ident} $servr :$param{realname}"); (about one hundred lines UP, not down) sub serverNotice { ($type, $msg) = @_; if ($type=~/AUTH/) { - &status("!$param{server}! $msg"); + &status("!$servr! $msg"); } else { $msg =~ s/\*\*\* Notice -- //; - &status("-!$param{server}!- $msg"); + &status("-!$servr!- $msg"); } } --------------- that's it ---------------- Hope this can be useful to some people. Over and out. Infobot - Smarter than the average Eggdrop - Sam (CommPort5) From infobot-dev@metronomicon.com Tue Mar 14 19:58:29 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id TAA18888 for infobot-dev-list; Tue, 14 Mar 2000 19:58:12 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from proxy.mailbank.com (proxy.mailbank.com [208.49.167.126]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id TAA18885 for ; Tue, 14 Mar 2000 19:58:11 -0500 Received: from scottslaptop (host2.900capital.com [207.135.104.2]) by proxy.mailbank.com (8.9.3/8.9.1) with SMTP id QAA23081 for ; Tue, 14 Mar 2000 16:58:20 -0800 Reply-To: From: "Scott R. Hardy" To: Subject: infobot help :) Date: Tue, 14 Mar 2000 16:54:55 -0700 Message-ID: MIME-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit X-Priority: 3 (Normal) X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook IMO, Build 9.0.2416 (9.0.2910.0) Importance: Normal X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600 Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O hello, I am running Freebsd and infobot ver infobot-0.44.3 I am havening trouble back grounding my Infobot I keep getting [ircgeek@shell2 infobot]$ nohup infobot > /dev/null & [1] 81669 [ircgeek@shell2 infobot]$ nice: --: No such file or directory [1]+ Exit 1 nohup infobot >/dev/null [ircgeek@shell2 infobot]$ .nohup infobot > /dev/null & [1] 81672 [ircgeek@shell2 infobot]$ bash: .nohup: command not found [1]+ Exit 127 .nohup infobot >/dev/null [ircgeek@shell2 infobot]$ ./nohup infobot > /dev/null & bash: ./nohup: No such file or directory [1] 81695 [1]+ Exit 126 ./nohup infobot >/dev/null it runs fine in console with just a ./infobot is it the location of my nohup? or my perl? nohup: /usr/bin/nohup /usr/share/man/man1/nohup.1.gz perl: /usr/bin/perl /usr/share/man/man1/perl.1.gz any help would be great I have not run a infobot in a wile. thanks Antipas newnet #ircgeeks Antipas@ircgeeks.com infobot "Calvin" [ircgeek@shell2 infobot]$ From infobot-dev@metronomicon.com Tue Mar 14 21:22:47 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id VAA19534 for infobot-dev-list; Tue, 14 Mar 2000 21:22:37 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from mail.in-con.com (bell.in-con.com [205.162.249.10]) by token.metronomicon.com (8.9.3/8.8.7) with SMTP id VAA19530 for ; Tue, 14 Mar 2000 21:22:36 -0500 Received: from cedar (druk.imperma.net[205.162.249.195])by BELL(MailMax 2.040) with ESMTP id 0 for mpoole@in-con.com; Tue, 14 Mar 2000 18:23:01 -0800 PST Message-ID: <00f301bf8e25$8d8f34d0$c3f9a2cd@cedar> From: "mapoole" To: Subject: patches and add-ons Date: Tue, 14 Mar 2000 18:24:11 -0800 MIME-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit X-Priority: 3 X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook Express 4.72.3110.5 X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3 Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O /me puts on a brave face. OK, so, now.. I see occasionally there are super basic questions and sometimes really sophisticated answers... Is there anyway we can get these two extremes working together? The FAQs are probably a good idea but that means someone has adopted the "interested but not quite coding yet" user and can see from their point of view. For instance.... How do you add a patch or an add-on, like the dictionary to infobot (old style) when you don't even know which file or where in that file to put it? The server hop feature had the kind of instructions where the uniformed may be able to get far enough down the road to actually make it work but other parts that are available to use with infobot are heavily reliant upon intuition or experience. Can someone do the fill in the gap tutorial for basic users FAQ? The how did we find ourselves suddenly programming in Perl FAQ? The just a bit more indepth help file for basic infobot use and reuse FAQ? I know its a lot to ask and I am willing to be used as the spring board even writing the whole thing down and keeping it updated if there is someone to work with me on the *know how* side of it. Thanks, urgen, efnet #Tibet From infobot-dev@metronomicon.com Thu Mar 16 06:27:18 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id GAA28368 for infobot-dev-list; Thu, 16 Mar 2000 06:25:16 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from hotmail.com (f24.law8.hotmail.com [216.33.241.24]) by token.metronomicon.com (8.9.3/8.8.7) with SMTP id GAA28365 for ; Thu, 16 Mar 2000 06:25:15 -0500 Received: (qmail 531 invoked by uid 0); 16 Mar 2000 11:25:23 -0000 Message-ID: <20000316112523.530.qmail@hotmail.com> Received: from 194.238.50.9 by www.hotmail.com with HTTP; Thu, 16 Mar 2000 03:25:23 PST X-Originating-IP: [194.238.50.9] From: "Pete Sergeant" To: infobot-dev@infobot.org Subject: Re: patches and add-ons Date: Thu, 16 Mar 2000 11:25:23 GMT Mime-Version: 1.0 Content-Type: text/plain; format=flowed Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O Dear Everyone, Actually, if we're talking about useful documentation files, what would be exceedingly useful is a text file saying which file each subroutine is in. If this has been mentioned before and I was sleeping, please ignore me... Peter Sergeant >How do you add a patch or an add-on, like the dictionary to infobot (old >style) when you don't even know which file or where in that file to put it? ______________________________________________________ Get Your Private, Free Email at http://www.hotmail.com From infobot-dev@metronomicon.com Fri Mar 17 17:03:20 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id RAA04172 for infobot-dev-list; Fri, 17 Mar 2000 17:02:31 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from ux1.sp.cs.cmu.edu (UX1.SP.CS.CMU.EDU [128.2.198.101]) by token.metronomicon.com (8.9.3/8.8.7) with SMTP id RAA04169 for ; Fri, 17 Mar 2000 17:02:31 -0500 Received: from PROTECTED.SPEECH.CS.CMU.EDU by ux1.sp.cs.cmu.edu id aa00972; 17 Mar 2000 17:01 EST Message-ID: <38D2AC3E.D6B66FAC@cs.cmu.edu> Date: Fri, 17 Mar 2000 17:05:50 -0500 From: Kevin Lenzo Organization: School of Computer Science, Carnegie Mellon University X-Mailer: Mozilla 4.61 [en] (X11; I; Linux 2.2.14 i686) X-Accept-Language: en MIME-Version: 1.0 To: Scott@hardy.com CC: infobot-dev@infobot.org Subject: Re: infobot help :) References: Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O Hi, run it as perl ./infobot or nohup perl ./infobot > /dev/null & to put it in the background. What's happening is that it can't find perl where the script is telling it to look (the bang path at the top of the file 'infobot'). kevin "Scott R. Hardy" wrote: > > hello, > > I am running Freebsd and infobot ver infobot-0.44.3 I am havening trouble > back grounding my Infobot I keep getting > > [ircgeek@shell2 infobot]$ nohup infobot > /dev/null & > [1] 81669 > [ircgeek@shell2 infobot]$ nice: --: No such file or directory > > [1]+ Exit 1 nohup infobot >/dev/null > [ircgeek@shell2 infobot]$ .nohup infobot > /dev/null & > [1] 81672 > [ircgeek@shell2 infobot]$ bash: .nohup: command not found > > [1]+ Exit 127 .nohup infobot >/dev/null > [ircgeek@shell2 infobot]$ ./nohup infobot > /dev/null & > bash: ./nohup: No such file or directory > [1] 81695 > [1]+ Exit 126 ./nohup infobot >/dev/null > > it runs fine in console with just a ./infobot > > is it the location of my nohup? or my perl? > nohup: /usr/bin/nohup /usr/share/man/man1/nohup.1.gz > perl: /usr/bin/perl /usr/share/man/man1/perl.1.gz > > any help would be great I have not run a infobot in a wile. > > thanks > Antipas > newnet #ircgeeks > Antipas@ircgeeks.com > infobot "Calvin" > [ircgeek@shell2 infobot]$ From infobot-dev@metronomicon.com Sat Mar 18 06:27:26 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id GAA07633 for infobot-dev-list; Sat, 18 Mar 2000 06:26:20 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from othersideofthe.earth.li (IDENT:qmailr@othersideofthe.earth.li [210.145.136.209]) by token.metronomicon.com (8.9.3/8.8.7) with SMTP id GAA07630 for ; Sat, 18 Mar 2000 06:26:18 -0500 Received: (qmail 19522 invoked by uid 500); 18 Mar 2000 11:26:56 -0000 Date: Sat, 18 Mar 2000 20:26:56 +0900 From: Simon Cozens To: Pete Sergeant Cc: infobot-dev@infobot.org Subject: Re: patches and add-ons Message-ID: <20000318202656.A19510@othersideofthe.earth.li> Reply-To: Simon Cozens References: <20000316112523.530.qmail@hotmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Mailer: Mutt 0.95.4us In-Reply-To: <20000316112523.530.qmail@hotmail.com>; from Pete Sergeant on Thu, Mar 16, 2000 at 11:25:23AM +0000 X-Operating-System: Linux othersideofthe.earth.li 2.2.14 Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O On Thu, Mar 16, 2000 at 11:25:23AM +0000, Pete Sergeant wrote: > Dear Everyone, > Actually, if we're talking about useful documentation files, what would be > exceedingly useful is a text file saying which file each subroutine is in. > If this has been mentioned before and I was sleeping, please ignore me... grep sub *.pl -- Don't worry over what other people are thinking about you. They're too busy worrying over what you are thinking about them. From infobot-dev@metronomicon.com Sat Mar 18 06:28:34 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id GAA07665 for infobot-dev-list; Sat, 18 Mar 2000 06:27:44 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from othersideofthe.earth.li (IDENT:qmailr@othersideofthe.earth.li [210.145.136.209]) by token.metronomicon.com (8.9.3/8.8.7) with SMTP id GAA07662 for ; Sat, 18 Mar 2000 06:27:42 -0500 Received: (qmail 19534 invoked by uid 500); 18 Mar 2000 11:28:26 -0000 Date: Sat, 18 Mar 2000 20:28:26 +0900 From: Simon Cozens To: "Samy Kamkar \(CommPort5\)" Cc: infobot-dev@infobot.org Subject: Re: Infobot server 'jump' patch Message-ID: <20000318202826.B19510@othersideofthe.earth.li> Reply-To: Simon Cozens References: <38CECC4D.CE987AC6@LucidX.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Mailer: Mutt 0.95.4us In-Reply-To: <38CECC4D.CE987AC6@LucidX.com>; from Samy Kamkar (CommPort5) on Tue, Mar 14, 2000 at 03:33:34PM -0800 X-Operating-System: Linux othersideofthe.earth.li 2.2.14 Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O On Tue, Mar 14, 2000 at 03:33:34PM -0800, Samy Kamkar (CommPort5) wrote: > Here is a patch No, it isn't. I've explained how to make patches twice now. > I did so you can make your infobot 'jump' to another > IRC server through a private message, and you assign the server through > the message. This also only allows the owner(s) of the bot to use this > function. Usage is '/msg infobot jump irc.server. Cool. -- COBOL is for morons. -- E.W. Dijkstra From infobot-dev@metronomicon.com Sun Mar 19 21:50:52 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id VAA18879 for infobot-dev-list; Sun, 19 Mar 2000 21:49:35 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from tirad.internal.iphil.net (IDENT:root@tirad.internal.iphil.net [203.176.9.125]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id VAA18876 for ; Sun, 19 Mar 2000 21:49:31 -0500 Received: from localhost (jan@localhost) by tirad.internal.iphil.net (8.9.3/8.9.3) with ESMTP id KAA08927 for ; Mon, 20 Mar 2000 10:50:07 +0800 Date: Mon, 20 Mar 2000 10:50:07 +0800 (PHT) From: "Janethe T. Co" To: infobot-dev@infobot.org Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Sender: infobot-dev@metronomicon.com Precedence: bulk Status: RO Hello, How can i make my bot kick users when it says obscene languages? Thanks in advance, JAn " No one can make you feel inferior without your consent. " ~ Eleanor Roosevelt From infobot-dev@metronomicon.com Mon Mar 20 05:18:02 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id FAA20878 for infobot-dev-list; Mon, 20 Mar 2000 05:16:53 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from mail.imaginet.co.uk (mail@mail.imaginet.co.uk [194.168.150.4]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id FAA20875 for ; Mon, 20 Mar 2000 05:16:51 -0500 Received: from wildcat.imaginet.co.uk ([194.168.150.34] ident=mail) by mail.imaginet.co.uk with esmtp (Exim 2.05 #1) id 12WzFM-0005jt-00; Mon, 20 Mar 2000 10:17:16 +0000 Received: from mstevens by wildcat.imaginet.co.uk with local (Exim 2.05 #1 (Debian)) id 12WzFM-0005ln-00; Mon, 20 Mar 2000 10:17:16 +0000 Date: Mon, 20 Mar 2000 10:17:16 +0000 From: Michael Stevens To: "Janethe T. Co" Cc: infobot-dev@infobot.org Subject: Re: your mail Message-ID: <20000320101716.A21987@imaginet.co.uk> References: Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Mailer: Mutt 1.0.1i In-Reply-To: ; from jan@iphil.net on Mon, Mar 20, 2000 at 10:50:07AM +0800 Sender: infobot-dev@metronomicon.com Precedence: bulk Status: RO On Mon, Mar 20, 2000 at 10:50:07AM +0800, Janethe T. Co wrote: > Hello, > How can i make my bot kick users when it says obscene languages? > Thanks in advance, >purl< matt [purl] matt is Matt is a coding cretin who created a festering cesspool of embarrassingly broken code written by a blindman -- avoid it like the plague that it is. or a seventeen year old, uncle-fucking cockma ter or probably doing something for the sol people *+* J.Random.Luser has been kicked off #perl by purl Possibly not what you want... From infobot-dev@metronomicon.com Mon Mar 20 19:09:01 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id TAA24668 for infobot-dev-list; Mon, 20 Mar 2000 19:08:45 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from LucidX.com (root@[63.199.194.66]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id TAA24665 for ; Mon, 20 Mar 2000 19:08:44 -0500 Received: from LucidX.com (cp5@localhost.LucidX.com [127.0.0.1]) by LucidX.com (8.9.3/8.9.3) with ESMTP id QAA12977 for ; Mon, 20 Mar 2000 16:10:28 -0800 (PST) (envelope-from CommPort5@LucidX.com) Message-ID: <38D6BDF4.BCD8821B@LucidX.com> Date: Mon, 20 Mar 2000 16:10:28 -0800 From: "Samy Kamkar (CommPort5)" Organization: LucidX X-Mailer: Mozilla 4.7 [en] (X11; I; FreeBSD 3.4-RELEASE i386) X-Accept-Language: en MIME-Version: 1.0 To: infobot-dev@infobot.org Subject: Re: 'kick users on obscene language' References: Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O "Janethe T. Co" wrote: > Hello, > > How can i make my bot kick users when it says obscene languages? > > Thanks in advance, > JAn > > " No one can make you feel inferior without your consent. " > ~ Eleanor Roosevelt In your src/Process.pl you can stick something like this in there: $_ = $message; if (/shit/i or / ass/i) { rawout ("KICK $chan $nick :no naughty language."); return ''; } Make sure for certain words you add a space where they belong, such as ' ass' instead of 'ass', since you wouldn't want to kick anyone saying 'i am going to get a glass of water'. And of course add whatever words you wish in the if statement using 'or' and //i, for no case sensitivity of course. Hope that can help you. -Sam (CommPort5) From infobot-dev@metronomicon.com Mon Mar 20 21:50:25 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id VAA25605 for infobot-dev-list; Mon, 20 Mar 2000 21:50:06 -0500 Received: from godzilla.phydeaux.org (IDENT:root@beast.phydeaux.org [216.231.45.154]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id VAA25602 for ; Mon, 20 Mar 2000 21:50:01 -0500 Received: (from fletch@localhost) by godzilla.phydeaux.org (8.9.3/8.9.3) id VAA22372; Mon, 20 Mar 2000 21:49:48 -0500 X-Authentication-Warning: godzilla.phydeaux.org: fletch set sender to fletch@phydeaux.org using -f To: "Samy Kamkar (CommPort5)" Cc: infobot-dev@infobot.org Subject: Re: 'kick users on obscene language' References: <38D6BDF4.BCD8821B@LucidX.com> From: Mike Fletcher Organization: Very Little Date: 20 Mar 2000 21:49:46 -0500 In-Reply-To: "Samy Kamkar's message of "Mon, 20 Mar 2000 16:10:28 -0800" Message-ID: Lines: 21 User-Agent: Gnus/5.0802 (Gnus v5.8.2) XEmacs/20.4 (Emerald) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O >>>>> "CommPort5" == CommPort5 writes: [...] CommPort5> Make sure for certain words you add a space where they CommPort5> belong, such as ' ass' instead of 'ass', since you CommPort5> wouldn't want to kick anyone saying 'i am going to get CommPort5> a glass of water'. And of course add whatever words Of course one could use the '\b' metacharacter to match only on a word boundary to kick smart-asses using tabs or hyphens to circumvent the regex . . . :) Then again you'll miss those $mart@$$es who use punctuation instead of actual `a's and `s's . . . -- Fletch | "If you find my answers frightening, __`'/| fletch@phydeaux.org | Vincent, you should cease askin' \ o.O' 678 443-6239(w) | scary questions." -- Jules =(___)= | U From infobot-dev@metronomicon.com Tue Mar 21 21:22:56 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id VAA06067 for infobot-dev-list; Tue, 21 Mar 2000 21:22:36 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from tirad.internal.iphil.net (IDENT:root@tirad.internal.iphil.net [203.176.9.125]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id VAA06064 for ; Tue, 21 Mar 2000 21:22:33 -0500 Received: from localhost (jan@localhost) by tirad.internal.iphil.net (8.9.3/8.9.3) with ESMTP id KAA09261; Wed, 22 Mar 2000 10:21:53 +0800 Date: Wed, 22 Mar 2000 10:21:52 +0800 (PHT) From: "Janethe T. Co" To: "Samy Kamkar (CommPort5)" cc: infobot-dev@infobot.org Subject: Re: 'kick users on obscene language' In-Reply-To: <38D6BDF4.BCD8821B@LucidX.com> Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O Does it mean that all the program in src/ directory are being used by infobot? or do i need to re-activate them somewhere? Thanks for the help ! JAn " No one can make you feel inferior without your consent. " ~ Eleanor Roosevelt From dark3lf@home.com Wed Mar 22 08:06:33 2000 Return-Path: Received: from mail.rdc1.nj.home.com (imail@ha1.rdc1.nj.home.com [24.3.128.66]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id IAA09004 for ; Wed, 22 Mar 2000 08:06:33 -0500 Received: from cc184371b ([24.6.93.31]) by mail.rdc1.nj.home.com (InterMail v4.01.01.00 201-229-111) with SMTP id <20000322130659.JDFA20681.mail.rdc1.nj.home.com@cc184371b> for ; Wed, 22 Mar 2000 05:06:59 -0800 From: "dark3lf" To: Subject: dictionary Date: Wed, 22 Mar 2000 08:07:06 -0500 Message-ID: MIME-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit X-Priority: 3 (Normal) X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook IMO, Build 9.0.2416 (9.0.2910.0) Importance: Normal X-MimeOLE: Produced By Microsoft MimeOLE V5.50.3825.400 Status: O Is there a ready-made dictionary module for infobot? I already hade Dict.pm installed. thanks in advance From infobot-dev@metronomicon.com Wed Mar 22 12:11:56 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id MAA10421 for infobot-dev-list; Wed, 22 Mar 2000 12:11:21 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from pixie.securenets.com (what.securetty.org [63.225.132.243]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id MAA10418 for ; Wed, 22 Mar 2000 12:11:13 -0500 Received: from localhost (jjacobs@localhost) by pixie.securenets.com (8.9.1/8.9.1) with SMTP id LAA27263 for ; Wed, 22 Mar 2000 11:11:24 -0600 Date: Wed, 22 Mar 2000 11:11:24 -0600 (CST) From: Jay Jacobs X-Sender: jjacobs@pixie.securenets.com To: infobot-dev@infobot.org Subject: status? Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O I've noticed that things have gotten quiet around infobot, maybe it's becuase I've been busy and not paying attention, but what's the status? How's the latest version coming? Has anything been concretely decided about modules for the new version? Jay (teckle) From infobot-dev@metronomicon.com Wed Mar 22 13:59:28 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id NAA11703 for infobot-dev-list; Wed, 22 Mar 2000 13:59:18 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from ux1.sp.cs.cmu.edu (UX1.SP.CS.CMU.EDU [128.2.198.101]) by token.metronomicon.com (8.9.3/8.8.7) with SMTP id NAA11700 for ; Wed, 22 Mar 2000 13:59:17 -0500 Received: from PROTECTED.SPEECH.CS.CMU.EDU by ux1.sp.cs.cmu.edu id aa21036; 22 Mar 2000 13:59 EST Message-ID: <38D918FD.A2D13F79@cs.cmu.edu> Date: Wed, 22 Mar 2000 14:03:25 -0500 From: Kevin Lenzo Organization: School of Computer Science, Carnegie Mellon University X-Mailer: Mozilla 4.61 [en] (X11; I; Linux 2.2.14 i686) X-Accept-Language: en MIME-Version: 1.0 To: Jay Jacobs CC: infobot-dev@infobot.org Subject: Re: status? References: Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O Jay Jacobs wrote: > > I've noticed that things have gotten quiet around infobot, maybe it's > becuase I've been busy and not paying attention, but what's the status? > How's the latest version coming? Has anything been concretely decided > about modules for the new version? > > Jay (teckle) hi, I'm just finishing up a long paper for TPC on the Infobot and Geckobot that gets out a lot of the ideas of the new design. I'll post it when I send in the final submission. It's gotten me back on track on the bot development; my slack variables were taken up by other projects recently. I'm ready to code, though. kevin From infobot-dev@metronomicon.com Sat Mar 25 06:22:38 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id GAA02936 for infobot-dev-list; Sat, 25 Mar 2000 06:20:34 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from tirad.internal.iphil.net (IDENT:root@tirad.internal.iphil.net [203.176.9.125]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id GAA02933 for ; Sat, 25 Mar 2000 06:20:30 -0500 Received: from localhost (jan@localhost) by tirad.internal.iphil.net (8.9.3/8.9.3) with ESMTP id TAA20605 for ; Sat, 25 Mar 2000 19:20:40 +0800 Date: Sat, 25 Mar 2000 19:20:40 +0800 (PHT) From: "Janethe T. Co" To: infobot-dev@infobot.org Subject: users list In-Reply-To: <20000320101716.A21987@imaginet.co.uk> Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O Why is it that '/msg op' won't work? Please shed some light on this. JAn " No one can make you feel inferior without your consent. " ~ Eleanor Roosevelt From infobot-dev@metronomicon.com Sun Mar 26 21:36:27 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id VAA12137 for infobot-dev-list; Sun, 26 Mar 2000 21:34:43 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from goose.prod.itd.earthlink.net (goose.prod.itd.earthlink.net [207.217.120.18]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id VAA12134 for ; Sun, 26 Mar 2000 21:34:42 -0500 Received: from [38.30.237.134] (ip134.laurel3.md.pub-ip.psi.net [38.30.237.134]) by goose.prod.itd.earthlink.net (8.9.3/8.9.3) with ESMTP id SAA12653 for ; Sun, 26 Mar 2000 18:34:54 -0800 (PST) Mime-Version: 1.0 X-Sender: gmortensen@mail.earthlink.net Message-Id: Date: Sun, 26 Mar 2000 21:31:14 -0500 To: infobot-dev@metronomicon.com From: "Geren W. Mortensen, Jr." Content-Type: text/plain; charset="us-ascii" ; format="flowed" Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O auth c255a14a subscribe infobot-dev reaktor-list@native-instruments.com From infobot-dev@metronomicon.com Thu Mar 30 01:15:04 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id BAA31477 for infobot-dev-list; Thu, 30 Mar 2000 01:14:22 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from mail.austin.rr.com (sm1.texas.rr.com [24.93.35.54]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id BAA31474 for ; Thu, 30 Mar 2000 01:14:21 -0500 Received: from [10.1.0.2] ([24.93.63.248]) by mail.austin.rr.com with Microsoft SMTPSVC(5.5.1877.357.35); Thu, 30 Mar 2000 00:15:29 -0600 User-Agent: Microsoft Outlook Express Macintosh Edition - 5.0 (1513) Date: Thu, 30 Mar 2000 00:14:33 -0600 Subject: x is also y From: David Blache To: Infobot development list Message-ID: In-Reply-To: <38D918FD.A2D13F79@cs.cmu.edu> Mime-version: 1.0 Content-type: text/plain; charset="US-ASCII" Content-transfer-encoding: 7bit Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O I've changed something in Update.pl that you may want to change in infobot. Before the change, if you had this definition: now is blah ...and you said: now is also foo ...you would end up with: now is blah or foo Yuck. I've never liked that. So in Update.pl I changed the 3 occurrences of: $rhs = $exists . 'or'.$rhs; ...to this: $rhs = $exists . '|'.$rhs; ...and now when you do a: now is also foo ...you end up with: now is now | foo Ahhhh...much better. From infobot-dev@metronomicon.com Thu Mar 30 08:45:11 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id IAA01480 for infobot-dev-list; Thu, 30 Mar 2000 08:44:57 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from hvmta01-stg.us.psimail.psi.net (hvmta01-smtp.us.psimail.psi.net [38.202.36.29]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id IAA01477 for ; Thu, 30 Mar 2000 08:44:57 -0500 Received: from [38.149.92.29] by hvmta01-stg.us.psimail.psi.net (InterMail v4.01.01.00 201-229-111) with ESMTP id <20000330134436.FIFN20160.hvmta01-stg@[38.149.92.29]> for ; Thu, 30 Mar 2000 08:44:36 -0500 User-Agent: Microsoft-Outlook-Express-Macintosh-Edition/5.02.2022 Date: Thu, 30 Mar 2000 08:44:39 -0500 Subject: ERROR!! From: Johnny Wonder To: Message-ID: In-Reply-To: Mime-version: 1.0 Content-type: text/plain; charset="US-ASCII" Content-transfer-encoding: 7bit Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O on 3/30/00 1:14 AM, David Blache at alterego@austin.rr.com wrote: > I've changed something in Update.pl that you may want to change in infobot. > Before the change, if you had this definition: > > now is blah > > ...and you said: > > now is also foo > > ...you would end up with: > > now is blah or foo > > Yuck. I've never liked that. > So in Update.pl I changed the 3 occurrences of: > > $rhs = $exists . 'or'.$rhs; > can someone please help me and tell me why I am getting this error all of a sudden. thanks [bounty@mm2 themole]$ Missing braces on \N{} at ./src/Irc.pl line 131, near ">>> $b" Missing braces on \N{} at ./src/Irc.pl line 133, near ">>> $b" Missing braces on \N{} at ./src/Irc.pl line 152, within string Compilation failed in require at ./themole line 45. BEGIN failed--compilation aborted at ./themole line 48. From infobot-dev@metronomicon.com Thu Mar 30 09:02:00 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id JAA01777 for infobot-dev-list; Thu, 30 Mar 2000 09:02:00 -0500 Received: from godzilla.phydeaux.org (IDENT:root@beast.phydeaux.org [216.231.45.154]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id JAA01774 for ; Thu, 30 Mar 2000 09:01:58 -0500 Received: (from fletch@localhost) by godzilla.phydeaux.org (8.9.3/8.9.3) id JAA26909; Thu, 30 Mar 2000 09:02:00 -0500 X-Authentication-Warning: godzilla.phydeaux.org: fletch set sender to fletch@phydeaux.org using -f To: Johnny Wonder Cc: Subject: Re: ERROR!! References: From: Mike Fletcher Organization: Very Little Date: 30 Mar 2000 09:01:59 -0500 In-Reply-To: Johnny Wonder's message of "Thu, 30 Mar 2000 08:44:39 -0500" Message-ID: Lines: 24 User-Agent: Gnus/5.0802 (Gnus v5.8.2) XEmacs/20.4 (Emerald) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O >>>>> "Johnny" == Johnny Wonder writes: Johnny> can someone please help me and tell me why I am getting Johnny> this error all of a sudden. Johnny> thanks Johnny> [bounty@mm2 themole]$ Missing braces on \N{} at Johnny> ./src/Irc.pl line 131, near ">>> $b" Missing braces on Johnny> \N{} at ./src/Irc.pl line 133, near ">>> $b" Missing Johnny> braces on \N{} at ./src/Irc.pl line 152, within string Johnny> Compilation failed in require at ./themole line 45. BEGIN Johnny> failed--compilation aborted at ./themole line 48. You've probably upgraded to 5.6 and there's a `\N' rather than a `\n' somewhere in Irc.pl around line 130. \N is a new feature to allow named Unicode characters in strings (\N{foo} interpolates as the unicode character named `foo'). -- Fletch | "If you find my answers frightening, __`'/| fletch@phydeaux.org | Vincent, you should cease askin' \ o.O' 678 443-6239(w) | scary questions." -- Jules =(___)= | U From infobot-dev@metronomicon.com Thu Mar 30 09:31:14 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id JAA02269 for infobot-dev-list; Thu, 30 Mar 2000 09:31:12 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from hvmta03-stg.us.psimail.psi.net (hvmta03-smtp.us.psimail.psi.net [38.202.36.27]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id JAA02266 for ; Thu, 30 Mar 2000 09:31:11 -0500 Received: from [38.149.92.29] by hvmta03-stg.us.psimail.psi.net (InterMail v4.01.01.00 201-229-111) with ESMTP id <20000330143053.JEWX24415.hvmta03-stg@[38.149.92.29]> for ; Thu, 30 Mar 2000 09:30:53 -0500 User-Agent: Microsoft-Outlook-Express-Macintosh-Edition/5.02.2022 Date: Thu, 30 Mar 2000 09:30:56 -0500 Subject: more problems From: Johnny Wonder To: Message-ID: Mime-version: 1.0 Content-type: text/plain; charset="US-ASCII" Content-transfer-encoding: 7bit Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O fletch your right I did upgrade and now I have problems.. ok my bot will not respond when you address him. like themole perl? nothing but will respond with just perl? how do I fix that? and where can I read up on installing cpan mods locally? thanks again all for all your help. From infobot-dev@metronomicon.com Thu Mar 30 17:05:12 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id RAA04852 for infobot-dev-list; Thu, 30 Mar 2000 17:04:55 -0500 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from hvmta01-stg.us.psimail.psi.net (hvmta01-smtp.us.psimail.psi.net [38.202.36.29]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id RAA04849 for ; Thu, 30 Mar 2000 17:04:55 -0500 Received: from [38.149.92.29] by hvmta01-stg.us.psimail.psi.net (InterMail v4.01.01.00 201-229-111) with ESMTP id <20000330220436.PCBI20160.hvmta01-stg@[38.149.92.29]> for ; Thu, 30 Mar 2000 17:04:36 -0500 User-Agent: Microsoft-Outlook-Express-Macintosh-Edition/5.02.2022 Date: Thu, 30 Mar 2000 17:04:39 -0500 Subject: help please From: Johnny Wonder To: Message-ID: Mime-version: 1.0 Content-type: text/plain; charset="US-ASCII" Content-transfer-encoding: 7bit Sender: infobot-dev@metronomicon.com Precedence: bulk Status: RO fletch your right I did upgrade and now I have problems.. ok my bot will not respond when you address him. like themole perl? nothing but will respond with just perl? how do I fix that? and where can I read up on installing cpan mods locally? thanks again all for all your help. From infobot-dev@metronomicon.com Mon Apr 3 12:58:05 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id MAA31363 for infobot-dev-list; Mon, 3 Apr 2000 12:56:00 -0400 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from www1.babel.dk (www1.babel.dk [194.255.106.19]) by token.metronomicon.com (8.9.3/8.8.7) with SMTP id MAA31360 for ; Mon, 3 Apr 2000 12:55:58 -0400 Received: from [194.255.106.79] (194.255.106.79) by www1.babel.dk (EMWAC SMTPRS 0.81) with SMTP id ; Mon, 03 Apr 2000 18:50:49 +0200 Mime-Version: 1.0 X-Sender: www@www.god-emil.dk Message-Id: Date: Mon, 3 Apr 2000 16:53:22 +0000 To: infobot-dev@infobot.org From: h3o Subject: core dumping Content-Type: text/plain; charset="us-ascii" ; format="flowed" Sender: infobot-dev@metronomicon.com Precedence: bulk Status: RO I have an infobot that is causing a core dump (error 10 - Bus error) when loading up to 6] loading sane defines ./files/sane-is.txt I cannot see which file is next in the sequence. none of the files in ./files/ have been changed for a long time. anyone point me in the right direction for the answer to this? ' best a mckenzie From infobot-dev@metronomicon.com Wed Apr 5 13:39:08 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id NAA20162 for infobot-dev-list; Wed, 5 Apr 2000 13:37:35 -0400 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from fwnau040.usco.com (fwnau040.usco.com [63.77.10.79]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id NAA20159 for ; Wed, 5 Apr 2000 13:37:34 -0400 Received: from ntnau210.usco.com (ntnau210.usco.com [172.16.66.43]) by fwnau040.usco.com (8.9.1/8.8.5) with ESMTP id NAA13925 for ; Wed, 5 Apr 2000 13:37:31 -0400 (EDT) Received: by ntnau210.usco.com with Internet Mail Service (5.5.2650.21) id <2HJPNK68>; Wed, 5 Apr 2000 13:37:29 -0400 Message-ID: From: "Meltzer, Kevin" To: "'infobot-dev@infobot.org'" Subject: Next release? Date: Wed, 5 Apr 2000 13:37:28 -0400 MIME-Version: 1.0 X-Mailer: Internet Mail Service (5.5.2650.21) Content-Type: text/plain; charset="iso-8859-1" Sender: infobot-dev@metronomicon.com Precedence: bulk Status: RO Any status on the 0.49 tree being able to connect to IRC (unless I missed that it could)? Just asking because if it is possible, I would like to get this into the next FreeBSD release (which will be in about a month) as a package. Cheers, KM From infobot-dev@metronomicon.com Wed Apr 5 15:04:28 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id PAA21319 for infobot-dev-list; Wed, 5 Apr 2000 15:04:24 -0400 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from LucidX.com (root@[63.199.194.66]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id PAA21316 for ; Wed, 5 Apr 2000 15:04:22 -0400 Received: from LucidX.com (cp5@localhost.LucidX.com [127.0.0.1]) by LucidX.com (8.9.3/8.9.3) with ESMTP id MAA07802 for ; Wed, 5 Apr 2000 12:04:06 -0700 (PDT) (envelope-from CommPort5@LucidX.com) Message-ID: <38EB8E1E.8E0897CC@LucidX.com> Date: Wed, 05 Apr 2000 12:03:59 -0700 From: "Samy Kamkar (CommPort5)" Organization: LucidX X-Mailer: Mozilla 4.7 [en] (X11; I; FreeBSD 3.4-RELEASE i386) X-Accept-Language: en MIME-Version: 1.0 To: infobot-dev@infobot.org Subject: Rev It Up #3 Content-Type: multipart/mixed; boundary="------------BA102E94C79FA86A8C0EAC89" Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O This is a multi-part message in MIME format. --------------BA102E94C79FA86A8C0EAC89 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Hello there, it's been a while since I've done a 'Rev It Up' so here it is. In this one I added a 'new' insult.pl and excuse.pl, both part of infobot..except these ones use IO::Socket (which COMES with most perl distributions) instead of Net::Telnet (which DOESN'T come with most distributions, [if any at all.]) The main reason I did this was because many people ask why their infobot starts up with that Net-Telnet.pm error, usually these people are unfamiliar with perl so it's better to make it easier on everyone, eh? I am also including my Freshmeat Search Util, the Server Jump addition, and the Current OS Versions which I have already posted, but rather put it in here also. And I'm including a simple Locate from IP/Hostname thing that really goes trough a CGI and 'attempts' to find the location of the specified IP/Hostname (of course this isn't always accurate, if it can find out at all.) The Current OS Versions finds out the...current versions of a few UNIX based OS's such as FreeBSD++ and Red Hat. The Server Jump just allows the owner to message the bot with his/her pass and make the bot 'jump' to a different IRC server if needed. And the Freshmeat Search Utility is self-explanitory, it will return the full name, a one line description and exact download address of whatever you searched for, and if more than one matches appear it will go to the first match and do what it has to from there. Using Current OS Versions: Take the attachment 'osvers.pl' and put it in your infobot/src dir. In Extras.pl, add this: ################################# if ($message =~ /^\s*(cur|current|)( |)(os|unix|operating( |)system(s|))( |)ver/) { my $os = &vers(); return $os; } ################################# By default, it will go through a CGI on a different computer and find the OS versions from there, to save bandwidth. If you wish to use the CGI yourself and do such things as adding OS's or changing them, then put 'unix.pl' in your cgi-bin/ dir and chmod 755 it, of course. Then you're all set and you can modify unix.pl in anyway you wish. Using the Freshmeat Search Util: Take the attachment 'fsapps.pl' and put it in your infobot/src dir. In Extras.pl, add this: ################################# if ($message =~ /^\s*freshmeat(?:\s*for\s*|\s*)(.*?)$/) { my $app = &fnd($1); return $app; } ################################# Using that Location Util: Take the attachment 'locat.pl' and put it in your infobot/src dir. In Extras.pl, add this: ################################# if ($message =~ /^\s*locate\s*(.*?)$/) { my $host = &locate($1); return $host; } ################################# Adding the new excuse and insult programs: Make sure you make a backup of infobot/src/excuse.pl and infobot/src/insult.pl somewhere. Then take the excuse.pl and insult.pl from the attachments and replace them in your infobot/src dir. Adding the Server Jump addition: Open your infobot/src/User.pl and add this IN BETWEEN [ if (IsFlag("o")) { # this is around line 300 ] and [ } return 'NOREPLY'; } } # which is around the late 300's or early 400 lines which takes up about 4 lines] This is what to add: #################################### if ($message =~ /^\s*jump\s+(.*)\s*$/) { if (!exists $verified{$VerifWho}) { &status("unverified <$who> $message"); &msg($who, $unverified_message); return 'NOREPLY'; } &rawout("QUIT :Reconnection requested by $who"); status("Connecting to $servr by $who\'s request"); &irc($1); } ################################### That is all. I hope this stuff helps someone or another sometime...please return to your IRC clients. -Sam (CommPort5 on #perl / #infobot on EFnet) --------------BA102E94C79FA86A8C0EAC89 Content-Type: application/x-perl; name="fsapps.pl" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="fsapps.pl" # Here is a little addon for infobot to let a user # search for something on freshmeat and it will return # the address to download it and the full name. # Also if there is more than one match it will take the # first match and then give you the information from # that one. Any updates or anything, please send to # infobot-dev@infobot.org and commport5@lucidx.com. # -Sam (CommPort5) sub fnd { $add = "@_"; my $url = "http://www.freshmeat.net/search.php3?query=$add"; &con($url); sub con { my $url = "@_"; use LWP::UserAgent; my $ua = new LWP::UserAgent; $ua->timeout(500); my $html = new HTTP::Request('GET',$url); my $response = $ua->request($html); if($response->is_success) { my $res = $response->content; $res =~ s/\n//g; if ($res =~ /appindex match/) { $res =~ /01:<\/B>\s*score\s*.+?\s*<\/SMALL><\/TD>/i; $tot = "http://www.freshmeat.net" . "$1"; $new++; &con($tot); } # # This right here screws up when the infobot trys to go # from the appindex match to somewhere else. A fix # would be good to have! # # if ($res =~ /no matches/i) { # return "Returned no matches for $add"; # } else { $res =~ /(.*?)<\/FONT>/; $name = $1; $res =~ /

$name (.*?\.)/; $data = $1; $res =~ /Download.*?http:\/\/(.*?)<\/A>/; return "http://$1 \cb$name\cb $data"; } } else { return "Unable to connect"; } } } 1; --------------BA102E94C79FA86A8C0EAC89 Content-Type: application/x-perl; name="locat.pl" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="locat.pl" # Now here's an addon for Infobot where # you specify a hostname or IP address # and it will go to a CGI (ip2ll) and # find the latitude and longitude and # some other information on where that # computer is althought it isn't 100% # accurate and can't always find it. # But it works on many hosts through # whois so I hope you all like it. # -Sam (CommPort5) sub locate { $host = "@_"; $url = "http://cello.cs.uiuc.edu/cgi-bin/slamm/ip2ll/?name=$host"; use LWP::UserAgent; $ua = new LWP::UserAgent; $ua->timeout(60); $html = new HTTP::Request('GET',$url); $response = $ua->request($html); if($response->is_success) { my $res = $response->content; $res =~ s/\n//g; $res =~ /

Lat, Lon:\s*(.*?), (.*?)<\/pre>(.*?), (.*?)
(.*?)
\s*Lat, Lon:    40.437, -80.000
#
PITTSBURGH, PA
USA
--------------BA102E94C79FA86A8C0EAC89 Content-Type: application/x-perl; name="osvers.pl" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="osvers.pl" # Yes, I know, I must have spent hours on this. # Here's a little program I did to go through a CGI # that I wrote to go to a bunch of official OS sites # and get the current version of that OS. # I made it go through the CGI since it would be very # slow if the infobot user had a slow connection, # although it's not exactly the speed of light yet. # www.LucidX.com/cgi-bin/unix.pl is the program # www.LucidX.com/other/unix.txt is the program in text # I'm also looking for people who want to just add one # or two OSs to the CGI. I've check out other sites # but it's difficult to regex the version since the HTML # on those pages are bound to change the way they are. # www.LucidX.com/lame/unix.html is a list of OSs, unix # based as you can see, which I'm doing for a lame # school project. The CGI doesn't read off of all of # those yet and I hope it will soon. Ten four. # -CommPort5 sub vers { use LWP::UserAgent; my $ua = new LWP::UserAgent; $ua->timeout(60); my $url = "http://www.LucidX.com/cgi-bin/unix.pl"; my $html = new HTTP::Request('GET',$url); my $response = $ua->request($html); if($response->is_success) { my $res = $response->content; $res =~ s/\n//g; $res =~ /

(.*?)<\/P>/; return "$1"; } else { return "Can't get versions"; } } 1; --------------BA102E94C79FA86A8C0EAC89 Content-Type: application/x-perl; name="insult.pl" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="insult.pl" #!/usr/bin/perl my $no_insult; BEGIN { eval "use IO::Socket ();"; $no_insult++ if ($@) ; } sub insult { my $t = IO::Socket::INET->new(PeerAddr => "insulthost.colorado.edu", PeerPort => 1695) or my $insult = "Unable to connect."; while (defined ($line = <$t>)) { unless ($insult) { $insult = $line; } chomp($line); return $line; } } 1; --------------BA102E94C79FA86A8C0EAC89 Content-Type: application/x-perl; name="unix.pl" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="unix.pl" #!/usr/bin/perl use CGI qw(:standard); use LWP::UserAgent; my ($x, $ua, $url, $html, $response, $res, $name, $num); $num = "0"; sub add { $x .= "$name $1/"; } do { if ($num eq "0") { &con("FreeBSD", "http://www.freebsd.org/releases/"); } if ($num eq "1") { &con("Red Hat", "http://www.redhat.com/"); } if ($num eq "2") { &con("Slackware", "http://www.slackware.com/"); } if ($num eq "3") { &con("Caldera", "http://www.caldera.com/"); } if ($num eq "4") { &con("Mandrake", "http://www.linux-mandrake.com/en/"); } if ($num eq "5") { &con("OpenBSD", "http://www.openbsd.org/"); } if ($num eq "6") { &con("NetBSD", "http://www.netbsd.org/"); } if ($num eq "7") { &con("SuSE", "http://www.suse.com/"); } sub con { $name = $_[0]; $ua = new LWP::UserAgent; $ua->timeout(12); $url = $_[1]; $html = new HTTP::Request('GET',$url); $response = $ua->request($html); if($response->is_success) { $res = $response->content; $res =~ s/\n/ /g; ##### FreeBSD ##### if($name eq "FreeBSD") { $res =~ /Release (.*?)<\/B>/; &add; } ##### Red Hat ##### if($name eq "Red Hat") { $res =~ /Red Hat Linux (.*?)<\/A>/; &add; } ##### Slackware ##### if($name eq "Slackware") { $res =~ /
Get (.*?)!<\/A>/; &add; } ##### Caldera ##### if($name eq "Caldera") { $res =~ /OpenLinux (.*?)<\/a>
/; &add; } ##### Mandrake old ##### # if($name eq "Mandrake") { # $res =~ /Linux Mandrake (\d\.\d)/; # &add; # } ##### Mandrake ##### if($name eq "Mandrake") { $res =~ /<\/b> - Mandrake (\d\.\d) /; &add; } ##### OpenBSD ##### if($name eq "OpenBSD") { $res =~ /The current release is OpenBSD (.*?)<\/a>/; &add; } ##### NetBSD ##### if($name eq "NetBSD") { $res =~ /Latest release - (.*?)<\/a>/; &add; } ##### SuSE ##### if($name eq "SuSE") { $res =~ /SuSE Linux (.*?) Imagenew(PeerAddr => "bofh.engr.wisc.edu", PeerPort => 666) or my $excuse = "Unable to connect."; while (defined ($line = <$t>)) { unless ($excuse) { $line =~ /Your excuse is: (.*?)\n/; $excuse = $1; } return $excuse; } } 1; --------------BA102E94C79FA86A8C0EAC89-- From infobot-dev@metronomicon.com Thu Apr 6 20:28:46 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id UAA03503 for infobot-dev-list; Thu, 6 Apr 2000 20:28:12 -0400 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from LucidX.com (root@[63.199.194.66]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id UAA03500 for ; Thu, 6 Apr 2000 20:28:11 -0400 Received: from LucidX.com (cp5@localhost.LucidX.com [127.0.0.1]) by LucidX.com (8.9.3/8.9.3) with ESMTP id RAA13897 for ; Thu, 6 Apr 2000 17:27:51 -0700 (PDT) (envelope-from CommPort5@LucidX.com) Message-ID: <38ED2B85.7B06EF45@LucidX.com> Date: Thu, 06 Apr 2000 17:27:50 -0700 From: "Samy Kamkar (CommPort5)" Organization: LucidX X-Mailer: Mozilla 4.7 [en] (X11; I; FreeBSD 3.4-RELEASE i386) X-Accept-Language: en MIME-Version: 1.0 To: infobot-dev@infobot.org Subject: On-Join (bah!) stuff with infobot Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O A lot of people that go on #infobot ask how to to on-join stuff, for who knows what reason. Here I'll just explain a simple way to do it and give a small example. Of course, always make a backup of the original file you're editing, no matter what you're changing. The only thing you really need to modify is src/Irc.pl (although you may want to make a new.pl in conjunction with Irc.pl [just to be used as a subroutine] and you may want to add some stuff in files/infobot.config.) Using things with the infobot.config is also very simple. Let's say you add this line in your infobot.config: meterchan #channel Now, in any of the .pl files in your src/ dir, you can always refer to that channel as $param{meterchan} since you won't always know what is in that arguement. The same goes for anything, just $param{whatever}. Now for onjoin's, you find THE FIRST &status(">>> $nick ($user\@$host) has joined $chan"); Under this is where you can place everything. Now as an examples, let's say we want the infobot to nickometer everyone that joins the specified chan, which we specified in files/infobot.config ($param{meterchan} if you forgot already.) Also you wouldn't want the bot to do this to itself, because it will unless you tell it not to. So under that line (&status(blablabla)) here is how I added it: ############### if ($param{meterchan}) { # to see if meterchan even exists, otherwise it won't use this unless ($nick eq $ident) { # $nick is the nick of the person that joined, $ident is the bot's nick $nomchan = $param{meterchan}; # using $param{meterchan} gets tiring. if ($chan eq $nomchan) { # make sure it's the right chan to check ######## Here is the nickometer stuff, of course this is where you would put the 'core' in ##### my $term = $nick; $term =~ s/\?+\s*//; my $percentage = &nickometer($term); if ($percentage =~ /NaN/) { $percentage = "off the scale"; } else { $percentage = sprintf("%0.4f", $percentage); $percentage =~ s/\.?0+$//; $percentage .= '%'; } ######## And finally it ends.... ######## &msg($nomch, "the 'lame nick-o-meter' reading for $term is $percentage"); # messages the chan #the nickometer stuff return 'NOREPLY'; } } } # better end the stuff That's about it, EXCEPT you have to add that two lines down where you see the } else { &status(blablabla); So you could just make a subroutine in a src/.pl file and call that subroutine from src/Irc.pl...that's all...that is all, please return to your IRC clients. -Sam (CommPort5) From infobot-dev@metronomicon.com Thu Apr 6 22:06:21 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id WAA04544 for infobot-dev-list; Thu, 6 Apr 2000 22:06:05 -0400 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from dragon.cbi.tamucc.edu (IDENT:postfix@dragon.cbi.tamucc.edu [165.95.1.149]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id WAA04541 for ; Thu, 6 Apr 2000 22:06:04 -0400 Received: by dragon.cbi.tamucc.edu (Postfix, from userid 101) id B9DB61297E; Thu, 6 Apr 2000 21:10:27 -0500 (CDT) Date: Thu, 6 Apr 2000 21:10:27 -0500 From: Jonathan Scott Duff To: "Samy Kamkar (CommPort5)" Cc: infobot-dev@infobot.org Subject: Re: On-Join (bah!) stuff with infobot Message-ID: <20000406211027.A7044@cbi.tamucc.edu> References: <38ED2B85.7B06EF45@LucidX.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii User-Agent: Mutt/1.1.2i In-Reply-To: <38ED2B85.7B06EF45@LucidX.com>; from CommPort5@lucidx.com on Thu, Apr 06, 2000 at 05:27:50PM -0700 Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O On Thu, Apr 06, 2000 at 05:27:50PM -0700, Samy Kamkar (CommPort5) wrote: > Of course, always make a backup of the original > file you're editing, no matter what you're changing. Gosh, if only everybody used CVS . Are infobot and friends on sourceforge.net? -Scott -- Jonathan Scott Duff duff@cbi.tamucc.edu From infobot-dev@metronomicon.com Wed Apr 12 17:33:28 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id RAA02790 for infobot-dev-list; Wed, 12 Apr 2000 17:30:36 -0400 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from chaos.wustl.edu (masque@chaos.wustl.edu [128.252.133.13]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id RAA02787 for ; Wed, 12 Apr 2000 17:30:35 -0400 Received: (from masque@localhost) by chaos.wustl.edu (8.10.0/8.10.0/HappyFunMail) id e3CLSUh12541 for infobot-dev@metronomicon.com; Wed, 12 Apr 2000 16:28:30 -0500 (CDT) Date: Wed, 12 Apr 2000 16:28:30 -0500 From: Masque To: infobot-dev@metronomicon.com Subject: I've been meaning to do this for months. Message-ID: <20000412162830.D7586@pound.perl.org> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Mailer: Mutt 1.0i Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O Two patches, the first should be self-explanatory. The second, however, requires a brief blurb: Symptom: beeer++ $term is beeer, $inc is ++ Okay, good bot. beeer++; $term is beeer;, $inc is ++ Uhoh. Even more fun was the 'foo++foo++ becomes foofoo++++' issue. Should be all better with the second patch down below, however. Should be self-explanatory from here. I have tested these and found no harmful side-effects. Your results may vary. Masque. --- stock/infobot-0.44.4/src/Process.pl Tue Jan 4 20:48:06 2000 +++ Process.pl Wed Apr 12 13:26:34 2000 @@ -15,6 +15,7 @@ $message =~ s/[\cA-\c_]//ig; # strip control characters $addressed = 0; + $karma = 0; # 12Apr2k - Masque return 'ANTIHELP' if $instance =~ /antihelp/; @@ -326,8 +327,12 @@ if (($result eq 'NOREPLY') or ($who eq 'NOREPLY')) { return ''; } + # This fixes the problem of short karma strings (masque++ for + # example) being ignored. -- Masque, 12Apr2K + if ($message =~ /(?:\+\+|--)/) { $karma = 1; } if (!$finalQMark and !$addressed and !$tell_obj and + !$karma and ($input_message_length < getparam('minVolunteerLength'))) { $in = ''; return 'NOREPLY'; --- stock/infobot-0.44.4/src/Statement.pl Tue Jan 4 20:30:31 2000 +++ Statement.pl Wed Apr 12 14:24:56 2000 @@ -32,9 +32,12 @@ if (getparam('plusplus')) { - $in =~ s/(--|\+\+)(\(.*?\)|\S+)/$2$1/; + $in =~ s/\W(--|\+\+)(\(.*?\)|\S+)/$2$1/; - if ($in =~ /(\(.*?\)|\S+)(\+\+|--)/) { + # Hacked to allow multiple karma per line and to fix + # related issues. foo++foo++ no longer becomes + # foofoo++++. - Masque, 12Apr2K + while ($in =~ s/(\(.*?\)|[^(++)(--)\s]+)(\+\+|--)//) { my($term,$inc) = ($1,$2); $term = lc($term); @@ -58,8 +61,8 @@ } elsif ($inc eq '--') { $plusplus{$term}--; } - return 'NOREPLY'; } + return 'NOREPLY' if $karma; } my($theType); From infobot-dev@metronomicon.com Wed Apr 12 19:19:47 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id TAA04195 for infobot-dev-list; Wed, 12 Apr 2000 19:18:23 -0400 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from chaos.wustl.edu (masque@chaos.wustl.edu [128.252.133.13]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id TAA04192 for ; Wed, 12 Apr 2000 19:18:22 -0400 Received: (from masque@localhost) by chaos.wustl.edu (8.10.0/8.10.0/HappyFunMail) id e3CNGN414725 for infobot-dev@metronomicon.com; Wed, 12 Apr 2000 18:16:23 -0500 (CDT) Date: Wed, 12 Apr 2000 18:16:23 -0500 From: Masque To: infobot-dev@metronomicon.com Subject: There is likely a better way to do this, but... Message-ID: <20000412181623.E12675@pound.perl.org> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Mailer: Mutt 1.0i Sender: infobot-dev@metronomicon.com Precedence: bulk Status: O --- stock/infobot-0.44.4/src/Extras.pl Tue Feb 29 09:28:04 2000 +++ Extras.pl Wed Apr 12 16:16:22 2000 @@ -712,7 +712,8 @@ if (getparam('plusplus')) { my $message2 = $message; - if ($message2 =~ s/^(karma|score)\s+(for\s+)?//) { + # Fixed the "so-and-so? has neutral karma" bug. - Masque, 12Apr2k + if ($message2 =~ s/^(?:karma|score)\s+(?:for\s+)?(.*?)\??$/$1/) { $message2 = lc($message2); $message2 =~ s/\s+/ /g; if ($message2 eq "me") { From infobot-dev@metronomicon.com Thu Apr 13 14:29:37 2000 Return-Path: Received: (from mail@localhost) by token.metronomicon.com (8.9.3/8.8.7) id OAA13731 for infobot-dev-list; Thu, 13 Apr 2000 14:29:15 -0400 X-Authentication-Warning: token.metronomicon.com: mail set sender to infobot-dev@metronomicon.com using -f Received: from chaos.wustl.edu (masque@chaos.wustl.edu [128.252.133.13]) by token.metronomicon.com (8.9.3/8.8.7) with ESMTP id OAA13728 for ; Thu, 13 Apr 2000 14:29:14 -0400 Received: (from masque@localhost) by chaos.wustl.edu (8.10.0/8.10.0/HappyFunMail) id e3DIR9P09951 for infobot-dev@metronomicon.com; Thu, 13 Apr 2000 13:27:09 -0500 (CDT) Date: Thu, 13 Apr 2000 13:27:09 -0500 From: Masque To: infobot-dev@metronomicon.com Subject: REVISED PATCH Message-ID: <20000413132709.F12675@pound.perl.org> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Mailer: Mutt 1.0i Sender: infobot-dev@metronomicon.com Precedence: bulk Status: RO This replaces the multi-line karma patch from yesterday. This limits karma to +/- 1 per line per item. This avoids people giving each other 55 karma in one line. (Thanks for being my test subject, dha. ;) --- stock/infobot-0.44.4/src/Statement.pl Tue Jan 4 20:30:31 2000 +++ Statement.pl Thu Apr 13 11:26:21 2000 @@ -32,12 +32,21 @@ if (getparam('plusplus')) { - $in =~ s/(--|\+\+)(\(.*?\)|\S+)/$2$1/; + $in =~ s/\W(--|\+\+)(\(.*?\)|[^(++)(--)\s]+)/$2$1/; - if ($in =~ /(\(.*?\)|\S+)(\+\+|--)/) { - my($term,$inc) = ($1,$2); + # Hacked to allow multiple karma per line and to fix + # related issues. foo++foo++ no longer becomes + # foofoo++++. - Masque, 12Apr2K + # ...and to allow only one karma point per item + # per line. - Masque, 13Apr2K + + my %k_limit; + while ($in =~ s/(\(.*?\)|[^(++)(--)\s]+)(\+\+|--)//) { + my($term,$inc) = ($1,$2); $term = lc($term); + next if exists $k_limit{$term}; + $k_limit{$term} = 1; # try to normalize phrases $term =~ s/^\((.*)\)$/$1/; @@ -58,8 +67,8 @@ } elsif ($inc eq '--') { $plusplus{$term}--; } - return 'NOREPLY'; } + return 'NOREPLY' if $karma; } my($theType);