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);

		$success = 0;

		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";

				$success = 1;

				last;

			}

			usleep(200000);

		}

		if ($success == 0)

		{

			print "\033[31mTimed out waiting for reset.\033[0m\n";

		}

	}

	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_ClearHex();\n");

		atomjs_read_line($socket);

		my $linenums = 0;

		foreach $filerow (@filecontents) 

		{

			$filerow =~ s/^\s+//;

			$filerow =~ s/\s+$//;

			$linenums += 1;

			$command = "Node_AppendHexNative('".$filerow."');\n";

			atomjs_write($socket, $command);

			atomjs_read_line($socket);

		}

		$command = "Node_ProgramNative('".$hwid."', '".$bios."', '".$linenums."');\n";

		atomjs_write($socket, $command);

		#print $command;

		print atomjs_read_line($socket);

atomd_disconnect($socket);

#		$success = 0;

#		for ($count = 0; $count < 150; $count++)

#		{

#			atomjs_write($socket, "Node_ProgramPollNative();\n");

#			if (atomjs_read_line($socket) =~ m/true/)

#			{

#				print "\033[32m" . $hwid . " started okay.\033[0m\n";

#				$success = 1;

#				last;

#			}

#			usleep(200000);

#		}

#		if ($success == 0)

#		{

#			print "\033[31mTimed out waiting for program to finish.\033[0m\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);