2006-02-14 16:18:27 -05:00
|
|
|
#!/usr/local/bin/perl
|
|
|
|
|
use IO::Socket::INET;
|
|
|
|
|
|
|
|
|
|
my ($ip, $port, $file) = @ARGV;
|
|
|
|
|
|
|
|
|
|
$ip and $port or die "Usage $0: <ip> <port>\n";
|
|
|
|
|
|
|
|
|
|
$socket = new IO::Socket::INET->new( PeerPort => $port,
|
|
|
|
|
Proto => 'udp',
|
|
|
|
|
PeerAddr => $ip);
|
2006-03-01 17:55:28 -05:00
|
|
|
open(I, $file);
|
|
|
|
|
$/ = undef;
|
|
|
|
|
my $buf = <I>;
|
|
|
|
|
close(I);
|
2006-02-14 16:18:27 -05:00
|
|
|
|
2006-09-29 09:00:28 -04:00
|
|
|
$socket->send("00000000$buf\n");
|
2006-02-14 16:18:27 -05:00
|
|
|
|
