Subversion Repositories HomeAutomation

Rev

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

Rev 1892 Rev 2156
Line 8... Line 8...
8 
use integer;
 8 
use integer;
9 
use threads;
 9 
use threads;
10 
use Cwd qw(abs_path);
 10 
use Cwd qw(abs_path);
11 
use File::Basename;
 11 
use File::Basename;
12 
use Getopt::Long;
 12 
use Getopt::Long;
- 
 
 13 
use Time::HiRes qw(usleep nanosleep);
13 
 
 14 
 
14 
$host = "localhost";
 15 
$host = "localhost";
15 
$port = 1201;
 16 
$port = 1201;
16 
 
 17 
 
17 
# Get hostname and port from command line arguments
 18 
# Get hostname and port from command line arguments
Line 104... Line 105...
104 
#print "/usr/bin/atomic -s $host -p $port -c \"Node_WaitForInformation\"\n";
 105 
#print "/usr/bin/atomic -s $host -p $port -c \"Node_WaitForInformation\"\n";
105 
#my @lines = qx{/usr/bin/atomic -s $host -p $port -c \"Node_GetInformation 0xB23F54EA\"};
 106 
#my @lines = qx{/usr/bin/atomic -s $host -p $port -c \"Node_GetInformation 0xB23F54EA\"};
106 
#my @lines = qx{/usr/bin/atomic -s $host -p $port -c \"Node_WaitForInformation\"};
 107 
#my @lines = qx{/usr/bin/atomic -s $host -p $port -c \"Node_WaitForInformation\"};
107 
 
 108 
 
108 
$socket = atomd_initialize($host, $port);
 109 
$socket = atomd_initialize($host, $port);
- 
 
 110 
usleep(100000);
- 
 
 111 
atomd_kill_promt($socket);
109 
atomd_send_command($socket, "Node_WaitForInformation");
 112 
atomd_send_command($socket, "Node_WaitForInformation");
110 
#atomd_send_command($socket, "Node_GetInformation 0x7DD44E0A");
 113 
#atomd_send_command($socket, "Node_GetInformation 0x7DD44E0A");
111 
$return = atomd_read_command_response($socket);
 114 
$return = atomd_read_command_response($socket);
112 
 
 115 
 
113 
my @lines = split(/\n/, $return);
 116 
my @lines = split(/\n/, $return);