WebSVN – HomeAutomation – Diff – /trunk/PcSoftware/scripts/atomDude.pl/


#!/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 "")
{
    $socket = atomd_initialize($hostname, $port);
    atomd_send_command($socket, "Node_Reset $hwid");
    print atomd_read_command_response($socket);
    exit(0);
    #my $result = system("atomic -s $hostname -p $port -c \"Node_Reset $hwid\"");
    #exit($result);
}
else
{
    open (FP, "+<".$filename) or die "Error: Cannot open file $filename\n";
    @filecontents = <FP>;
    close FP;
 
    $socket = atomd_initialize($hostname, $port);
   
    #print "Sending Node_ClearHex\n";
    atomd_send_command($socket, "Node_ClearHex");
    atomd_kill_promt($socket);
       
    foreach $filerow (@filecontents) {
        #print "Sending Node_AppendHex $filerow \n";
        atomd_send_command($socket, "Node_AppendHex $filerow");
        atomd_kill_promt($socket);
    }
    #print "Sending Node_ProgramHex $hwid $bios \n";
    atomd_send_command($socket, "Node_ProgramHex $hwid $bios");
    atomd_kill_promt($socket);
 
 
    #atomd_send_command($socket, "Node_Program $hwid $bios $filename");
    print atomd_read_command_response($socket);
    exit(0);
    #my $result = system("atomic -s $hostname -p $port -c \"Node_Program $hwid $bios $filename\"");
    #    exit($result);
}
 
exit(0);
 

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

Subversion Repositories HomeAutomation

(root)/trunk/PcSoftware/scripts/atomDude.pl/ – Rev 1885 → 1890