X10 and Windows

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hello, I don't mean to sound frustrated, but as always I'm having a tough time making things work correctly with windows, Ok enough complaining, this is my problem. I have several X10 components, and I just wish (at this point to simply turn them on and off) I have added the path to the executable (x10com32.exe) to my system path environment varible so I can call the command from anywhere. Here is my code

#!perl.exe -wT

use Strict;
use CGI;
my $q = new CGI;
print $q->header("text/html");

print"<h2>Turning Lights ON</H2>";

my $command   = join ("", "x10comm.exe ", "a2 ",  "on");
system($command);
[download]

The command works fine from the cmd window, but will NOT work when I call it from my browser.....AARRRRGGGHHH!!!! Any suggestions, or I have I been staring blindly at this VERY SIMPLE code, and have overlooked something. I'm using the latest version of apache for Windows XP, and the cgi perl module. Thanks

Comment on X10 and Windows Download Code

Replies are listed 'Best First'.
Re: X10 and Windows by tstock (Curate) on Aug 06, 2002 at 01:40 UTC
is x10comm.exe in the search path for the webserver ? Try fully qualifying the path to the executable. Tiago	[reply]
Re: X10 and Windows by fokat (Deacon) on Aug 06, 2002 at 02:43 UTC
Hmmm, where you say `my $command = join ("", "x10comm.exe ", "a2 ", "on");` [download] There is actually a space in the first argument to the `join()`, isn't it? Otherwise, you would be attempting to call "x10comm.exea2on". Also, in your post you talk about `x10comm32.exe` yet in your code, you attempt to call `x10comm.exe`. Which one is the right one? Edit:Typo and name of the executable Regards,	[reply] [d/l]
Re: Re: X10 and Windows by Anonymous Monk on Aug 06, 2002 at 11:15 UTC
Either one will work, but to add more fuel to the fire, I can run the following code successfully: `#!perl.exe -w use Strict; use CGI; my $q = new CGI; print $q->header("text/html"); print"<h2>Turning Lights OFDF</H2>"; system "copy on.cgi on2.cgi"` [download] Notice I turned the flag for Taint (-T) Checking off. This isn't the same command but executes without -T. I still can't seem to execute my system call for my X10 Module, but I think I'm starting to see the light.	[reply] [d/l]
Re: X10 and Windows by mumbles (Friar) on Aug 06, 2002 at 12:14 UTC
MisterHouse Anything to do with Perl and X10 can probably be found there.	[reply]
Re: X10 and Windows by Rex(Wrecks) (Curate) on Aug 06, 2002 at 01:47 UTC
You might want to get and print the results of the `system()` command. This is relativly easy and could shed a whole lot of light on what is or is not happening. "Nothing is sure but death and taxes" I say combine the two and its death to all taxes!	[reply] [d/l]
Re: Re: X10 and Windows by Anonymous Monk on Aug 06, 2002 at 01:55 UTC
It seems to be printing the command correctly before the system call, but nothing ever appears after I call 'system($command)' I'm lost!	[reply]
Re: Re: Re: X10 and Windows by moof1138 (Curate) on Aug 06, 2002 at 02:11 UTC
You could try calling system() like this: `system($command) == 0 or warn "System call failed with error # $?";` [download] Or try using backticks: print `$command`; [download] Between the two you hopefully should get something useful for diagnostics.	[reply] [d/l] [select]
Re: Re: Re: X10 and Windows by Rex(Wrecks) (Curate) on Aug 06, 2002 at 18:18 UTC
Try this: `my @test = system($command) ; print @test ;` [download] This will give you the command output. Example: `#!/usr/bin/perl -w use strict ; my @test = system("dir") ; print @test ;` [download] Will give you: `Volume in drive E is E_Drive Volume Serial Number is XXXX-XXXX Directory of E:\TempCode\test 08/06/2002 11:05a <DIR> . 08/06/2002 11:05a <DIR> .. 08/06/2002 11:05a 1,336 systemCommand.pl 1 File(s) 1,336 bytes 2 Dir(s) 1,629,966,336 bytes free 0` [download] While: `#!/usr/bin/perl -w use strict ; my @test = system("dirt") ; print @test ;` [download] Will give you: `'dirt' is not recognized as an internal or external command, operable program or batch file. 256` [download] This should be usefull in at least telling you if the command is being executed and what the results are. "Nothing is sure but death and taxes" I say combine the two and its death to all taxes!	[reply] [d/l] [select]
Re: Re: Re: Re: X10 and Windows by Anonymous Monk on Aug 07, 2002 at 02:11 UTC
Re^5: X10 and Windows by tstock (Curate) on Feb 01, 2005 at 04:03 UTC


Come for the quick hacks, stay for the epiphanies.
	PerlMonks