fixing buttest

This commit is contained in:
long.haired.steve 2009-10-27 17:17:48 +00:00
parent a6e430f7da
commit b20673f43c
2 changed files with 13 additions and 9 deletions

View File

@ -1,16 +1,17 @@
#server = irc.synirc.org
server = irc.freenode.org
server = irc.synirc.org
#server = irc.freenode.org
#server = irc.undernet.org
meme = butt
setmeme = yes
changenick = yes
port = 6667
nick = buttbottest
ident = null
gecos = heh
channel = #buttbottest
debug = yes
nick = buttbot
ident = buttbot
gecos = buttbot
channel = #cobol
debug = no
invite = yes
pass = SOMESECRET
buttcommand = no
pass = 6ZeEzVhue14Kw
friends = floWenoL
enemies =

View File

@ -4,7 +4,10 @@ use warnings;
use Butts qw(buttify);
my $butt = shift;
$butt = $butt || "butt";
while(<>) {
chomp;
print join(" ",buttify(split(/\s+/,$_)))."\n";
print join(" ", buttify($butt,split(/\s+/, $_)))."\n";
}