Subversion Repositories HomeAutomation

Rev

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

Rev 1668 Rev 1878
Line 93... Line 93...
93 
 
 93 
 
94 
my $hwid = "";
 94 
my $hwid = "";
95 
my @device = ();
 95 
my @device = ();
96 
 
 96 
 
97 
print "/usr/bin/atomic -s $host -p $port -c \"Node_WaitForInformation\"\n";
 97 
print "/usr/bin/atomic -s $host -p $port -c \"Node_WaitForInformation\"\n";
98 
my @lines = qx{/usr/bin/atomic -s $host -p $port -c \"Node_GetInformation 0xB23F54EA\"};
 98 
#my @lines = qx{/usr/bin/atomic -s $host -p $port -c \"Node_GetInformation 0xB23F54EA\"};
- 
 
 99 
my @lines = qx{/usr/bin/atomic -s $host -p $port -c \"Node_WaitForInformation\"};
99 
 
 100 
 
100 
foreach (@lines)
 101 
foreach (@lines)
101 
{
 102 
{
102 
    my $line = $_;
 103 
    my $line = $_;
103 
    print($_);
 104 
    print($_);