Subversion Repositories HomeAutomation

Rev

Rev 1885 | Rev 1913 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | SVN | RSS feed

Rev Author Line No. Line
1666 runge 1 
#!/usr/bin/perl
2 
 
3 
# Written by Mattias Runge 2008-2010
4 
 
5 
use Cwd 'abs_path';
1885 arune 6 
use File::Basename;
1890 arune 7 
use Time::HiRes qw( usleep );
1666 runge 8 
 
9 
$| = 1;
10 
 
11 
$numArgs = $#ARGV + 1;
12 
 
13 
my $hostname = "localhost";
14 
my $port = 1201;
15 
my $filename = "";
16 
my $hwid = "";
17 
my $bios = 0;
18 
my $reset = "false";
19 
 
20 
foreach $argnum (0 .. $#ARGV)
21 
{
22 
    if ($ARGV[$argnum] eq "-h")
23 
    {
24 
        $hostname = $ARGV[$argnum+1];
25 
        next;
26 
 
27 
    }
28 
    elsif ($ARGV[$argnum] eq "-p")
29 
    {
30 
        $port = $ARGV[$argnum+1];
31 
        next;
32 
 
33 
    }
34 
    elsif ($ARGV[$argnum] eq "-i")
35 
    {
36 
        $hwid = $ARGV[$argnum+1];
37 
        next;
38 
 
39 
    }
40 
    elsif ($ARGV[$argnum] eq "-f")
41 
    {
42 
        $filename = abs_path($ARGV[$argnum+1]);
43 
        next;
44 
 
45 
    }
46 
    elsif ($ARGV[$argnum] eq "-b")
47 
    {
48 
        $bios = 1;
49 
    }
50 
    elsif ($ARGV[$argnum] eq "-r")
51 
    {
52 
        $reset = "true";
53 
    }
54 
}
55 
 
56 
if ($hwid eq "")
57 
{
58 
    die "You must specify a hardware id!\n";
59 
    exit 1;
60 
}
61 
 
1885 arune 62 
my $path = dirname(abs_path($0));
63 
 
64 
# Read atom functions from separate file
65 
if (-e $path."/setConfig/AtomLib.pl") {
66 
    require $path."/setConfig/AtomLib.pl";
67 
} else {
68 
    print "Error: No AtomLib.pl was found in ".$path.". \n\n";
69 
    exit 1;
70 
}
71 
 
1666 runge 72 
#0x14f90d1f to 0x1f0df914
73 
@hwidChars = split(//, $hwid);
1877 arune 74 
$hwid = $hwidChars[0]. $hwidChars[1]. uc($hwidChars[8]. $hwidChars[9]. $hwidChars[6]. $hwidChars[7]. $hwidChars[4]. $hwidChars[5]. $hwidChars[2]. $hwidChars[3]);
1666 runge 75 
 
76 
print "atomDude settings:\n";
77 
print "Hardware id: " . $hwid . "\n";
78 
print "Atom address: " . $hostname . ":" . $port . "\n";
79 
print "Hexfile: " . $filename . "\n";
80 
print "Parameters: " . "\n";
81 
 
82 
if ($reset eq "true" && $filename eq "")
83 
{
1885 arune 84 
    $socket = atomd_initialize($hostname, $port);
85 
    atomd_send_command($socket, "Node_Reset $hwid");
86 
    print atomd_read_command_response($socket);
1890 arune 87 
    exit(0);
1885 arune 88 
    #my $result = system("atomic -s $hostname -p $port -c \"Node_Reset $hwid\"");
89 
    #exit($result);
1666 runge 90 
}
91 
else
92 
{
1890 arune 93 
    open (FP, "+<".$filename) or die "Error: Cannot open file $filename\n";
94 
    @filecontents = <FP>;
95 
    close FP;
96 
 
1885 arune 97 
    $socket = atomd_initialize($hostname, $port);
1890 arune 98 
 
99 
    #print "Sending Node_ClearHex\n";
100 
    atomd_send_command($socket, "Node_ClearHex");
101 
    atomd_kill_promt($socket);
102 
 
103 
    foreach $filerow (@filecontents) {
104 
        #print "Sending Node_AppendHex $filerow \n";
105 
        atomd_send_command($socket, "Node_AppendHex $filerow");
106 
        atomd_kill_promt($socket);
107 
    }
108 
    #print "Sending Node_ProgramHex $hwid $bios \n";
109 
    atomd_send_command($socket, "Node_ProgramHex $hwid $bios");
110 
    atomd_kill_promt($socket);
111 
 
112 
 
113 
    #atomd_send_command($socket, "Node_Program $hwid $bios $filename");
1885 arune 114 
    print atomd_read_command_response($socket);
1890 arune 115 
    exit(0);
1885 arune 116 
    #my $result = system("atomic -s $hostname -p $port -c \"Node_Program $hwid $bios $filename\"");
117 
    #    exit($result);
1666 runge 118 
}
119 
 
120 
exit(0);