Subversion Repositories HomeAutomation

Rev

Rev 905 | Rev 961 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | SVN | RSS feed

Rev 905 Rev 908
Line 25... Line 25...
25 
                    PeerAddr => $host,
 25 
                    PeerAddr => $host,
26 
                    PeerPort => $port,
 26 
                    PeerPort => $port,
27 
                )
 27 
                )
28 
               or die "cannot connect to port $port at $host";
 28 
               or die "cannot connect to port $port at $host";
29 
 
 29 
 
30 
 
 - 
 
- 
 
 30 
print "Connected to canDaemon. Printf strings on can will be printed below.\n";
- 
 
 31 
print "Don't forget to terminate your strings with '\\n'.\n";
31 
 
 32 
 
32 
$newline = 1;
 33 
$newline = 1;
33 
#read line from socket (blocking)
 34 
#read line from socket (blocking)
34 
while ( $line = <$remote> ) {
 35 
while ( $line = <$remote> ) {
35 
    if (length($line) > 12) {
 36 
    if (length($line) > 12) {