Subversion Repositories HomeAutomation

Rev

Rev 564 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | SVN | RSS feed

Rev 564 Rev 1398
Line 62... Line 62...
62 
print "---------------------------------\n";
 62 
print "---------------------------------\n";
63 
 
 63 
 
64 
print "Initiating sockets to canDaemon...";
 64 
print "Initiating sockets to canDaemon...";
65 
$remote = IO::Socket::INET->new(
 65 
$remote = IO::Socket::INET->new(
66 
                    Proto    => "tcp",
 66 
                    Proto    => "tcp",
67 
                    PeerAddr => "localhost",
 67 
                    PeerAddr => "deep.arune.se",
68 
                    PeerPort => "1200",
 68 
                    PeerPort => "1200",
69 
                )
 69 
                )
70 
               or die " FAIL: cannot connect to port 1200 at localhost";
 70 
               or die " FAIL: cannot connect to port 1200 at localhost";
71 
 
 71 
 
72 
print "Success!\n";
 72 
print "Success!\n";