Subversion Repositories HomeAutomation

Rev

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

Rev 964 Rev 968
Line 37... Line 37...
37 
#read line from socket (blocking)
 37 
#read line from socket (blocking)
38 
while ( $line = <$remote> ) {
 38 
while ( $line = <$remote> ) {
39 
    if (length($line) > 12) {
 39 
    if (length($line) > 12) {
40 
        #$idhex = substr($line, 4, 8);
 40 
        #$idhex = substr($line, 4, 8);
41 
        $id = hex(substr($line, 4, 8));
 41 
        $id = hex(substr($line, 4, 8));
42 
        if ($id == hex("1f000001")) {
 42 
        if ($id == hex("1f000080")) {
43 
            #@data = ();
 43 
            #@data = ();
44 
            if ($newline == 1) {
 44 
            if ($newline == 1) {
45 
                if ($timestamp == 1) {
 45 
                if ($timestamp == 1) {
46 
                    print localtime()." ";
 46 
                    print localtime()." ";
47 
                }
 47 
                }