Subversion Repositories HomeAutomation

Rev

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

Rev 633 Rev 650
Line 65... Line 65...
65 
        $thr = threads->new(\&udpServerThread);
 65 
        $thr = threads->new(\&udpServerThread);
66 
        $thr->detach;
 66 
        $thr->detach;
67 
    }
 67 
    }
68 
    ### else, the hardware is serial, check for device, this might not work in windows ###
 68 
    ### else, the hardware is serial, check for device, this might not work in windows ###
69 
#   elsif (-e $devicearg) {
 69 
#   elsif (-e $devicearg) {
- 
 
 70 
    else {
70 
        if (!$baudarg) {
 71 
        if (!$baudarg) {
71 
            print "For a serial device you need to specifiy baudrate, now using default 19200\n";
 72 
            print "For a serial device you need to specifiy baudrate, now using default 19200\n";
72 
            $baudarg = 19200;
 73 
            $baudarg = 19200;
73 
        }
 74 
        }
74 
       
 75 
       
Line 86... Line 87...
86 
        }
 87 
        }
87 
       
 88 
       
88 
        &serialConnInit;
 89 
        &serialConnInit;
89 
        $thr = threads->new(\&serialConnThread);
 90 
        $thr = threads->new(\&serialConnThread);
90 
        $thr->detach;      
 91 
        $thr->detach;      
91 
       
 92 
    }
92 
#   } else {
 93 
#   } else {
93 
#       print "Argument $devicearg is not correct\n";
 94 
#       print "Argument $devicearg is not correct\n";
94 
#       exit 0;
 95 
#       exit 0;
95 
#   }
 96 
#   }
96 
}
 97 
}