Subversion Repositories Spectranet

[/] [trunk/] [experiments/] [ethup] - Diff between revs 46 and 117

Show entire file | Details | Blame | View Log

Rev 46 Rev 117
Line 1... Line 1...
#!/usr/bin/perl
#!/usr/bin/perl
use IO::Socket::INET;
use IO::Socket::INET;
use strict;
use strict;
 
 
 
my $ip=shift;
my $file=shift;
my $file=shift;
my $addr=shift;
my $addr=shift;
 
 
if(!$addr)
if(!$addr)
{
{
Line 22... Line 23...
{
{
        print("File is an impossible size ($size)\n");
        print("File is an impossible size ($size)\n");
        exit;
        exit;
}
}
 
 
my $sock=IO::Socket::INET->new(PeerAddr => '172.16.0.200',
my $sock=IO::Socket::INET->new(PeerAddr => $ip,
                                PeerPort => '23',
                                PeerPort => '2000',
                                Proto => 'tcp')
                                Proto => 'tcp')
        or die("Opening socket: $!");
        or die("Opening socket: $!");
 
 
binmode($sock);
binmode($sock);