Subversion Repositories HomeAutomation

#!/usr/bin/perl

# Written by Mattias Runge 2008-2010

use Cwd 'abs_path';
use File::Basename;
use Time::HiRes qw( usleep );

$| = 1;

$numArgs = $#ARGV + 1;

my $hostname = "localhost";
my $port = 1201;
my $filename = "";
my $hwid = "";
my $bios = 0;
my $reset = "false";

foreach $argnum (0 .. $#ARGV)
{
    if ($ARGV[$argnum] eq "-h")
    {
        $hostname = $ARGV[$argnum+1];
        next;

    }
    elsif ($ARGV[$argnum] eq "-p")
    {
        $port = $ARGV[$argnum+1];
        next;

    }
    elsif ($ARGV[$argnum] eq "-i")
    {
        $hwid = $ARGV[$argnum+1];
        next;

    }
    elsif ($ARGV[$argnum] eq "-f")
    {
        $filename = abs_path($ARGV[$argnum+1]);
        next;

    }
    elsif ($ARGV[$argnum] eq "-b")
    {
        $bios = 1;
    }
    elsif ($ARGV[$argnum] eq "-r")
    {
        $reset = "true";
    }
}

if ($hwid eq "")
{
    die "You must specify a hardware id!\n";
    exit 1;
}

my $path = dirname(abs_path($0));

# Read atom functions from separate file
if (-e $path."/setConfig/AtomLib.pl") {
    require $path."/setConfig/AtomLib.pl";
} else {
    print "Error: No AtomLib.pl was found in ".$path.". \n\n";
    exit 1;
}

#0x14f90d1f to 0x1f0df914
@hwidChars = split(//, $hwid);
$hwid = $hwidChars[0]. $hwidChars[1]. uc($hwidChars[8]. $hwidChars[9]. $hwidChars[6]. $hwidChars[7]. $hwidChars[4]. $hwidChars[5]. $hwidChars[2]. $hwidChars[3]);

print "atomDude settings:\n";
print "Hardware id: " . $hwid . "\n";
print "Atom address: " . $hostname . ":" . $port . "\n";
print "Hexfile: " . $filename . "\n";
print "Parameters: " . "\n";

if ($reset eq "true" && $filename eq "")
{
    if ($port == 1203)
    {
        $socket = atomd_initialize($hostname, $port);
        atomjs_write($socket, "Node_ResetNative('".$hwid."');\n");
        print atomjs_read_line($socket);
        for ($count = 0; $count < 15; $count++)
        {
            atomjs_write($socket, "Node_ResetPollNative();\n");
            if (atomjs_read_line($socket) =~ m/true/)
            {
                print "\033[32m" . $hwid . " started okay.\033[0m\n";
                last;
            }
            usleep(200000);
        }
    }
    else
    {
        $socket = atomd_initialize($hostname, $port);

        usleep(100000);
        atomd_kill_promt($socket);
        atomd_send_command($socket, "Node_Reset $hwid");
        print atomd_read_command_response($socket);
        #my $result = system("atomic -s $hostname -p $port -c \"Node_Reset $hwid\"");
        #exit($result);
    }
}
else
{
    if ($port == 1203)
    {
        open (FP, "+<".$filename) or die "Error: Cannot open file $filename\n";
        @filecontents = <FP>;
        close FP;
        $socket = atomd_initialize($hostname, $port);

        atomjs_write($socket, "Node_ProgramNative('".$hwid."', '".$bios."'");
#       print "Node_ProgramNative('".$hwid."', '".$bios."'";
        foreach $filerow (@filecontents) {
            $filerow =~ s/^\s+//;
            $filerow =~ s/\s+$//;
            atomjs_write($socket, ", '" . $filerow . "'");
            print ", '".$filerow."'";
        }
        atomjs_write($socket, ");\n");
#       print ");\n";
    }
    else
    {
        open (FP, "+<".$filename) or die "Error: Cannot open file $filename\n";
        @filecontents = <FP>;
        close FP;
        $socket = atomd_initialize($hostname, $port);
        usleep(100000);
        atomd_kill_promt($socket);
    
        #print "Sending Node_ClearHex\n";
        atomd_send_command($socket, "Node_ClearHex");
        atomd_kill_promt($socket);
    
        my $linenums = 0;
        foreach $filerow (@filecontents) {
            #print "Sending Node_AppendHex $filerow \n";
            #$filerow =~ s/^\s+//;
            #$filerow =~ s/\s+$//;
            atomd_send_command($socket, "Node_AppendHex $filerow");
            atomd_kill_promt($socket);
            $linenums += 1;
        }
        #print "Sending Node_ProgramHex $hwid $bios $linenums \n";
        atomd_send_command($socket, "Node_ProgramHex $hwid $bios $linenums");

        print atomd_read_command_response($socket);

#       my $result = system("atomic -s $hostname -p $port -c \"Node_Program $hwid $bios $filename\"");
#       exit($result);
}

exit(0);