Subversion Repositories HomeAutomation

Rev

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

Rev 1967 Rev 2157
Line 80... Line 80...
80 
print "Parameters: " . "\n";
 80 
print "Parameters: " . "\n";
81 
 
 81 
 
82 
if ($reset eq "true" && $filename eq "")
 82 
if ($reset eq "true" && $filename eq "")
83 
{
 83 
{
84 
    $socket = atomd_initialize($hostname, $port);
 84 
    $socket = atomd_initialize($hostname, $port);
- 
 
 85 
    usleep(100000);
- 
 
 86 
    atomd_kill_promt($socket);
- 
 
 87 
#   atomjs_write("Node_Reset('".$hwid."')");
85 
    atomd_send_command($socket, "Node_Reset $hwid");
 88 
    atomd_send_command($socket, "Node_Reset $hwid");
86 
    print atomd_read_command_response($socket);
 89 
    print atomd_read_command_response($socket);
87 
    exit(0);
 90 
    exit(0);
88 
    #my $result = system("atomic -s $hostname -p $port -c \"Node_Reset $hwid\"");
 91 
    #my $result = system("atomic -s $hostname -p $port -c \"Node_Reset $hwid\"");
89 
    #exit($result);
 92 
    #exit($result);
Line 93... Line 96...
93 
    open (FP, "+<".$filename) or die "Error: Cannot open file $filename\n";
 96 
    open (FP, "+<".$filename) or die "Error: Cannot open file $filename\n";
94 
    @filecontents = <FP>;
 97 
    @filecontents = <FP>;
95 
    close FP;
 98 
    close FP;
96 
 
 99 
 
97 
    $socket = atomd_initialize($hostname, $port);
 100 
    $socket = atomd_initialize($hostname, $port);
- 
 
 101 
    usleep(100000);
- 
 
 102 
    atomd_kill_promt($socket);
98 
   
 103 
   
99 
    #print "Sending Node_ClearHex\n";
 104 
    #print "Sending Node_ClearHex\n";
100 
    atomd_send_command($socket, "Node_ClearHex");
 105 
    atomd_send_command($socket, "Node_ClearHex");
101 
    atomd_kill_promt($socket);
 106 
    atomd_kill_promt($socket);
102 
   
 107