1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 17:05:43 -04:00

nightly commit

This commit is contained in:
simcop2387 2009-12-06 04:00:01 -05:00
parent 084607c197
commit c0dbfa53d2

View file

@ -10,7 +10,7 @@ while( 1 ) {
print "Code: "; print "Code: ";
my $code = <STDIN>; my $code = <STDIN>;
my $socket = IO::Socket::INET->new( PeerAddr => '127.0.0.1', PeerPort => '14400' ); my $socket = IO::Socket::INET->new( PeerAddr => 'simcop2387.info', PeerPort => '14400' );
my $refs = $filter->put( [ { code => "$code" } ] ); my $refs = $filter->put( [ { code => "$code" } ] );
print $socket $refs->[0]; print $socket $refs->[0];