Subversion Repositories HomeAutomation

Rev

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

Rev 1890 Rev 1912
Line 79... Line 79...
79 
print "Hexfile: " . $filename . "\n";
 79 
print "Hexfile: " . $filename . "\n";
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 
    atomd_send_command($socket, "Node_Reset $hwid");
 85 
    #atomd_send_command($socket, "Node_Reset $hwid");
86 
    print atomd_read_command_response($socket);
 86 
    #print atomd_read_command_response($socket);
87 
    exit(0);
 87 
    #exit(0);
88 
    #my $result = system("atomic -s $hostname -p $port -c \"Node_Reset $hwid\"");
 88 
    my $result = system("atomic -s $hostname -p $port -c \"Node_Reset $hwid\"");
89 
    #exit($result);
 89 
    exit($result);
90 
}
 90 
}
91 
else
 91 
else
92 
{
 92 
{
93 
    open (FP, "+<".$filename) or die "Error: Cannot open file $filename\n";
 93 
    open (FP, "+<".$filename) or die "Error: Cannot open file $filename\n";
94 
    @filecontents = <FP>;
 94 
    @filecontents = <FP>;