Bug #121409 for Net-PJLink: Multiple Hosts

Thu Apr 27 00:27:57 2017 todd.witten [...] gmail.com - Ticket created

Subject:	Multiple Hosts
Date:	Wed, 26 Apr 2017 23:27:40 -0500
To:	bug-Net-PJLink [...] rt.cpan.org
From:	Todd Witten <todd.witten [...] gmail.com>

When connecting to 3 Epson G7500U projectors simultaneously, I get an error from the module: Wed Apr 26 23:13:49 2017 - pjlink: aud - SENDING COMMAND: PJLink 0 (Off) [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value $cmd in regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line 529, <FH> chunk 29. [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value $cmd in hash element at /usr/local/share/perl5/Net/PJLink.pm line 528, <FH> chunk 29. [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value $cmd in regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line 529, <FH> chunk 29. Here's my code snippet: my $AUD_PROJ_L = '192.168.104.81'; my $AUD_PROJ_R = '192.168.104.82'; my $AUD_PROJ_RR = '192.168.104.83'; $prj = Net::PJLink->new(host=>[$AUD_PROJ_L,$AUD_PROJ_R,$AUD_PROJ_RR],auth_password=>$PASS,keep_alive=>1); print STDERR (localtime) . " - pjlink: $host - SENDING COMMAND: PJLink 0 (Off)\n" if $debug; $prj->set_power(0); Todd Witten todd.witten@gmail.com

Mon May 01 00:24:14 2017 KEMMONS [...] cpan.org - Correspondence added

On Thu Apr 27 00:27:57 2017, todd.witten@gmail.com wrote: Show quoted text

> When connecting to 3 Epson G7500U projectors simultaneously, I get an > error > from the module: > > Wed Apr 26 23:13:49 2017 - pjlink: aud - SENDING COMMAND: PJLink 0 > (Off) > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value > $cmd in > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line 529, > <FH> > chunk 29. > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value > $cmd in > hash element at /usr/local/share/perl5/Net/PJLink.pm line 528, <FH> > chunk > 29. > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value > $cmd in > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line 529, > <FH> > chunk 29. > > > Here's my code snippet: > my $AUD_PROJ_L = '192.168.104.81'; > my $AUD_PROJ_R = '192.168.104.82'; > my $AUD_PROJ_RR = '192.168.104.83'; > > $prj = > Net::PJLink-

> >new(host=>[$AUD_PROJ_L,$AUD_PROJ_R,$AUD_PROJ_RR],auth_password=>$PASS,keep_alive=>1);

> print STDERR (localtime) . " - pjlink: $host - SENDING COMMAND: PJLink > 0 > (Off)\n" if $debug; > $prj->set_power(0); > > > > Todd Witten > todd.witten@gmail.com

I think I've found the problem, but I no longer have access to projectors to test against. Would you be able to test this change and let me know if it fixes your issue? (attached patch file) If you're on Linux, I'd recommend doing this to test: - make directories "test_lib/Net" in the same directory as your script - copy the installed module on your system (/usr/local/share/perl5/Net/PJLink.pm) into that new directory (so you have test_lib/Net/PJLink.pm) - apply the attached patch file with this command: "patch test_lib/Net/PJLink.pm path/to/net_pjlink_test_fix.patch" - add the line "use lib "test_lib";" to your script before the "use Net::PJLink" line

Subject:

net_pjlink_test_fix.patch

528,529c528,529 < $cmd = $COMMAND{$cmd}; < if (defined $resp && $resp =~ /^%1$cmd=(.*)\x0d$/) { --- > $cmd_symbol = $COMMAND{$cmd}; > if (defined $resp && $resp =~ /^%1$cmd_symbol=(.*)\x0d$/) {

Mon May 01 00:24:14 2017 The RT System itself - Status changed from 'new' to 'open'

Mon May 01 00:24:20 2017 KEMMONS [...] cpan.org - Taken

Mon May 01 09:47:48 2017 todd.witten [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #121409] Multiple Hosts
Date:	Mon, 1 May 2017 08:47:31 -0500
To:	bug-Net-PJLink [...] rt.cpan.org
From:	Todd Witten <todd.witten [...] gmail.com>

Here's the response. $cmd_symbol requires explicit package name. Line 23 is the use Net::PJLink line. [Mon May 1 08:45:55 2017] automate.cgi: Global symbol "$cmd_symbol" requires explicit package name (did you forget to declare "my $cmd_symbol"?) at test_lib/Net/PJLink.pm line 528. [Mon May 1 08:45:55 2017] automate.cgi: Global symbol "$cmd_symbol" requires explicit package name (did you forget to declare "my $cmd_symbol"?) at test_lib/Net/PJLink.pm line 529. [Mon May 1 08:45:55 2017] automate.cgi: Compilation failed in require at ./automate.cgi line 23. [Mon May 1 08:45:55 2017] automate.cgi: BEGIN failed--compilation aborted at ./automate.cgi line 23. Todd Witten todd.witten@gmail.com On Sun, Apr 30, 2017 at 11:24 PM, Kyle Emmons via RT < bug-Net-PJLink@rt.cpan.org> wrote: Show quoted text

> <URL: https://rt.cpan.org/Ticket/Display.html?id=121409 > > > On Thu Apr 27 00:27:57 2017, todd.witten@gmail.com wrote:

> > When connecting to 3 Epson G7500U projectors simultaneously, I get an > > error > > from the module: > > > > Wed Apr 26 23:13:49 2017 - pjlink: aud - SENDING COMMAND: PJLink 0 > > (Off) > > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value > > $cmd in > > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line 529, > > <FH> > > chunk 29. > > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value > > $cmd in > > hash element at /usr/local/share/perl5/Net/PJLink.pm line 528, <FH> > > chunk > > 29. > > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value > > $cmd in > > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line 529, > > <FH> > > chunk 29. > > > > > > Here's my code snippet: > > my $AUD_PROJ_L = '192.168.104.81'; > > my $AUD_PROJ_R = '192.168.104.82'; > > my $AUD_PROJ_RR = '192.168.104.83'; > > > > $prj = > > Net::PJLink-

> > >new(host=>[$AUD_PROJ_L,$AUD_PROJ_R,$AUD_PROJ_RR],auth_

> password=>$PASS,keep_alive=>1);

> > print STDERR (localtime) . " - pjlink: $host - SENDING COMMAND: PJLink > > 0 > > (Off)\n" if $debug; > > $prj->set_power(0); > > > > > > > > Todd Witten > > todd.witten@gmail.com

> > > I think I've found the problem, but I no longer have access to projectors > to test against. Would you be able to test this change and let me know if > it fixes your issue? (attached patch file) > > If you're on Linux, I'd recommend doing this to test: > - make directories "test_lib/Net" in the same directory as your script > - copy the installed module on your system (/usr/local/share/perl5/Net/PJLink.pm) > into that new directory (so you have test_lib/Net/PJLink.pm) > - apply the attached patch file with this command: "patch > test_lib/Net/PJLink.pm path/to/net_pjlink_test_fix.patch" > - add the line "use lib "test_lib";" to your script before the "use > Net::PJLink" line > >

Mon May 01 09:55:49 2017 todd.witten [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #121409] Multiple Hosts
Date:	Mon, 1 May 2017 08:55:04 -0500
To:	bug-Net-PJLink [...] rt.cpan.org
From:	Todd Witten <todd.witten [...] gmail.com>

Sorry, that was my bad. I had a typo. Still getting the same uninitialized value $cmd in regexp on line 529 as before. Todd Witten todd.witten@gmail.com On Mon, May 1, 2017 at 8:47 AM, Todd Witten <todd.witten@gmail.com> wrote: Show quoted text

> Here's the response. $cmd_symbol requires explicit package name. Line 23 > is the use Net::PJLink line. > > [Mon May 1 08:45:55 2017] automate.cgi: Global symbol "$cmd_symbol" > requires explicit package name (did you forget to declare "my > $cmd_symbol"?) at test_lib/Net/PJLink.pm line 528. > [Mon May 1 08:45:55 2017] automate.cgi: Global symbol "$cmd_symbol" > requires explicit package name (did you forget to declare "my > $cmd_symbol"?) at test_lib/Net/PJLink.pm line 529. > [Mon May 1 08:45:55 2017] automate.cgi: Compilation failed in require at > ./automate.cgi line 23. > [Mon May 1 08:45:55 2017] automate.cgi: BEGIN failed--compilation aborted > at ./automate.cgi line 23. > > Todd Witten > todd.witten@gmail.com > > On Sun, Apr 30, 2017 at 11:24 PM, Kyle Emmons via RT < > bug-Net-PJLink@rt.cpan.org> wrote: >

>> <URL: https://rt.cpan.org/Ticket/Display.html?id=121409 > >> >> On Thu Apr 27 00:27:57 2017, todd.witten@gmail.com wrote:

>> > When connecting to 3 Epson G7500U projectors simultaneously, I get an >> > error >> > from the module: >> > >> > Wed Apr 26 23:13:49 2017 - pjlink: aud - SENDING COMMAND: PJLink 0 >> > (Off) >> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value >> > $cmd in >> > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line 529, >> > <FH> >> > chunk 29. >> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value >> > $cmd in >> > hash element at /usr/local/share/perl5/Net/PJLink.pm line 528, <FH> >> > chunk >> > 29. >> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value >> > $cmd in >> > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line 529, >> > <FH> >> > chunk 29. >> > >> > >> > Here's my code snippet: >> > my $AUD_PROJ_L = '192.168.104.81'; >> > my $AUD_PROJ_R = '192.168.104.82'; >> > my $AUD_PROJ_RR = '192.168.104.83'; >> > >> > $prj = >> > Net::PJLink-

>> > >new(host=>[$AUD_PROJ_L,$AUD_PROJ_R,$AUD_PROJ_RR],auth_passw

>> ord=>$PASS,keep_alive=>1);

>> > print STDERR (localtime) . " - pjlink: $host - SENDING COMMAND: PJLink >> > 0 >> > (Off)\n" if $debug; >> > $prj->set_power(0); >> > >> > >> > >> > Todd Witten >> > todd.witten@gmail.com

>> >> >> I think I've found the problem, but I no longer have access to projectors >> to test against. Would you be able to test this change and let me know if >> it fixes your issue? (attached patch file) >> >> If you're on Linux, I'd recommend doing this to test: >> - make directories "test_lib/Net" in the same directory as your script >> - copy the installed module on your system (/usr/local/share/perl5/Net/PJLink.pm) >> into that new directory (so you have test_lib/Net/PJLink.pm) >> - apply the attached patch file with this command: "patch >> test_lib/Net/PJLink.pm path/to/net_pjlink_test_fix.patch" >> - add the line "use lib "test_lib";" to your script before the "use >> Net::PJLink" line >> >>

Mon May 01 09:56:53 2017 todd.witten [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #121409] Multiple Hosts
Date:	Mon, 1 May 2017 08:56:41 -0500
To:	bug-Net-PJLink [...] rt.cpan.org
From:	Todd Witten <todd.witten [...] gmail.com>

Crap! Sorry... I am going between test and production code. The $cmd_symbol package name is the correct error. I'm going to make a simplified test script now instead of editing production code so that I can consistently test for you. Sorry for the back and forth... Todd Witten todd.witten@gmail.com On Mon, May 1, 2017 at 8:55 AM, Todd Witten <todd.witten@gmail.com> wrote: Show quoted text

> Sorry, that was my bad. I had a typo. Still getting the same uninitialized > value $cmd in regexp on line 529 as before. > > Todd Witten > todd.witten@gmail.com > > On Mon, May 1, 2017 at 8:47 AM, Todd Witten <todd.witten@gmail.com> wrote: >

>> Here's the response. $cmd_symbol requires explicit package name. Line 23 >> is the use Net::PJLink line. >> >> [Mon May 1 08:45:55 2017] automate.cgi: Global symbol "$cmd_symbol" >> requires explicit package name (did you forget to declare "my >> $cmd_symbol"?) at test_lib/Net/PJLink.pm line 528. >> [Mon May 1 08:45:55 2017] automate.cgi: Global symbol "$cmd_symbol" >> requires explicit package name (did you forget to declare "my >> $cmd_symbol"?) at test_lib/Net/PJLink.pm line 529. >> [Mon May 1 08:45:55 2017] automate.cgi: Compilation failed in require at >> ./automate.cgi line 23. >> [Mon May 1 08:45:55 2017] automate.cgi: BEGIN failed--compilation >> aborted at ./automate.cgi line 23. >> >> Todd Witten >> todd.witten@gmail.com >> >> On Sun, Apr 30, 2017 at 11:24 PM, Kyle Emmons via RT < >> bug-Net-PJLink@rt.cpan.org> wrote: >>

>>> <URL: https://rt.cpan.org/Ticket/Display.html?id=121409 > >>> >>> On Thu Apr 27 00:27:57 2017, todd.witten@gmail.com wrote:

>>> > When connecting to 3 Epson G7500U projectors simultaneously, I get an >>> > error >>> > from the module: >>> > >>> > Wed Apr 26 23:13:49 2017 - pjlink: aud - SENDING COMMAND: PJLink 0 >>> > (Off) >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value >>> > $cmd in >>> > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line 529, >>> > <FH> >>> > chunk 29. >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value >>> > $cmd in >>> > hash element at /usr/local/share/perl5/Net/PJLink.pm line 528, <FH> >>> > chunk >>> > 29. >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized value >>> > $cmd in >>> > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line 529, >>> > <FH> >>> > chunk 29. >>> > >>> > >>> > Here's my code snippet: >>> > my $AUD_PROJ_L = '192.168.104.81'; >>> > my $AUD_PROJ_R = '192.168.104.82'; >>> > my $AUD_PROJ_RR = '192.168.104.83'; >>> > >>> > $prj = >>> > Net::PJLink-

>>> > >new(host=>[$AUD_PROJ_L,$AUD_PROJ_R,$AUD_PROJ_RR],auth_passw

>>> ord=>$PASS,keep_alive=>1);

>>> > print STDERR (localtime) . " - pjlink: $host - SENDING COMMAND: PJLink >>> > 0 >>> > (Off)\n" if $debug; >>> > $prj->set_power(0); >>> > >>> > >>> > >>> > Todd Witten >>> > todd.witten@gmail.com

>>> >>> >>> I think I've found the problem, but I no longer have access to >>> projectors to test against. Would you be able to test this change and let >>> me know if it fixes your issue? (attached patch file) >>> >>> If you're on Linux, I'd recommend doing this to test: >>> - make directories "test_lib/Net" in the same directory as your script >>> - copy the installed module on your system >>> (/usr/local/share/perl5/Net/PJLink.pm) into that new directory (so you >>> have test_lib/Net/PJLink.pm) >>> - apply the attached patch file with this command: "patch >>> test_lib/Net/PJLink.pm path/to/net_pjlink_test_fix.patch" >>> - add the line "use lib "test_lib";" to your script before the "use >>> Net::PJLink" line >>> >>>

Mon May 01 19:56:40 2017 KEMMONS [...] cpan.org - Correspondence added

On Mon May 01 09:56:53 2017, todd.witten@gmail.com wrote: Show quoted text

> Crap! Sorry... I am going between test and production code. The > $cmd_symbol > package name is the correct error. I'm going to make a simplified test > script now instead of editing production code so that I can > consistently > test for you. > > Sorry for the back and forth... > > Todd Witten > todd.witten@gmail.com > > On Mon, May 1, 2017 at 8:55 AM, Todd Witten <todd.witten@gmail.com> > wrote: >

> > Sorry, that was my bad. I had a typo. Still getting the same > > uninitialized > > value $cmd in regexp on line 529 as before. > > > > Todd Witten > > todd.witten@gmail.com > > > > On Mon, May 1, 2017 at 8:47 AM, Todd Witten <todd.witten@gmail.com> > > wrote: > >

> >> Here's the response. $cmd_symbol requires explicit package name. > >> Line 23 > >> is the use Net::PJLink line. > >> > >> [Mon May 1 08:45:55 2017] automate.cgi: Global symbol "$cmd_symbol" > >> requires explicit package name (did you forget to declare "my > >> $cmd_symbol"?) at test_lib/Net/PJLink.pm line 528. > >> [Mon May 1 08:45:55 2017] automate.cgi: Global symbol "$cmd_symbol" > >> requires explicit package name (did you forget to declare "my > >> $cmd_symbol"?) at test_lib/Net/PJLink.pm line 529. > >> [Mon May 1 08:45:55 2017] automate.cgi: Compilation failed in > >> require at > >> ./automate.cgi line 23. > >> [Mon May 1 08:45:55 2017] automate.cgi: BEGIN failed--compilation > >> aborted at ./automate.cgi line 23. > >> > >> Todd Witten > >> todd.witten@gmail.com > >> > >> On Sun, Apr 30, 2017 at 11:24 PM, Kyle Emmons via RT < > >> bug-Net-PJLink@rt.cpan.org> wrote: > >>

> >>> <URL: https://rt.cpan.org/Ticket/Display.html?id=121409 > > >>> > >>> On Thu Apr 27 00:27:57 2017, todd.witten@gmail.com wrote:

> >>> > When connecting to 3 Epson G7500U projectors simultaneously, I > >>> > get an > >>> > error > >>> > from the module: > >>> > > >>> > Wed Apr 26 23:13:49 2017 - pjlink: aud - SENDING COMMAND: PJLink > >>> > 0 > >>> > (Off) > >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized > >>> > value > >>> > $cmd in > >>> > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line > >>> > 529, > >>> > <FH> > >>> > chunk 29. > >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized > >>> > value > >>> > $cmd in > >>> > hash element at /usr/local/share/perl5/Net/PJLink.pm line 528, > >>> > <FH> > >>> > chunk > >>> > 29. > >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized > >>> > value > >>> > $cmd in > >>> > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line > >>> > 529, > >>> > <FH> > >>> > chunk 29. > >>> > > >>> > > >>> > Here's my code snippet: > >>> > my $AUD_PROJ_L = '192.168.104.81'; > >>> > my $AUD_PROJ_R = '192.168.104.82'; > >>> > my $AUD_PROJ_RR = '192.168.104.83'; > >>> > > >>> > $prj = > >>> > Net::PJLink-

> >>> > > new(host=>[$AUD_PROJ_L,$AUD_PROJ_R,$AUD_PROJ_RR],auth_passw

> >>> ord=>$PASS,keep_alive=>1);

> >>> > print STDERR (localtime) . " - pjlink: $host - SENDING COMMAND: > >>> > PJLink > >>> > 0 > >>> > (Off)\n" if $debug; > >>> > $prj->set_power(0); > >>> > > >>> > > >>> > > >>> > Todd Witten > >>> > todd.witten@gmail.com

> >>> > >>> > >>> I think I've found the problem, but I no longer have access to > >>> projectors to test against. Would you be able to test this change > >>> and let > >>> me know if it fixes your issue? (attached patch file) > >>> > >>> If you're on Linux, I'd recommend doing this to test: > >>> - make directories "test_lib/Net" in the same directory as your > >>> script > >>> - copy the installed module on your system > >>> (/usr/local/share/perl5/Net/PJLink.pm) into that new directory (so > >>> you > >>> have test_lib/Net/PJLink.pm) > >>> - apply the attached patch file with this command: "patch > >>> test_lib/Net/PJLink.pm path/to/net_pjlink_test_fix.patch" > >>> - add the line "use lib "test_lib";" to your script before the > >>> "use > >>> Net::PJLink" line > >>> > >>>

> >>

> >

Thanks for testing! Here's a revised patch. (Remember to apply the patch to a fresh copy of the module.)

Subject:

net_pjlink_test_fix_v2.patch

528,529c528,529 < $cmd = $COMMAND{$cmd}; < if (defined $resp && $resp =~ /^%1$cmd=(.*)\x0d$/) { --- > my $cmd_symbol = $COMMAND{$cmd}; > if (defined $resp && $resp =~ /^%1$cmd_symbol=(.*)\x0d$/) {

Tue May 02 00:20:48 2017 todd.witten [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #121409] Multiple Hosts
Date:	Mon, 1 May 2017 23:20:33 -0500
To:	bug-Net-PJLink [...] rt.cpan.org
From:	Todd Witten <todd.witten [...] gmail.com>

Works like a champ! I tested power on, power off, and get power. I don't switch inputs on the projectors, but I can test it if you'd like, just let me know. Please let me know if there's anything else I can do. Thanks! Todd Witten todd.witten@gmail.com On Mon, May 1, 2017 at 6:56 PM, Kyle Emmons via RT < bug-Net-PJLink@rt.cpan.org> wrote: Show quoted text

> <URL: https://rt.cpan.org/Ticket/Display.html?id=121409 > > > On Mon May 01 09:56:53 2017, todd.witten@gmail.com wrote:

> > Crap! Sorry... I am going between test and production code. The > > $cmd_symbol > > package name is the correct error. I'm going to make a simplified test > > script now instead of editing production code so that I can > > consistently > > test for you. > > > > Sorry for the back and forth... > > > > Todd Witten > > todd.witten@gmail.com > > > > On Mon, May 1, 2017 at 8:55 AM, Todd Witten <todd.witten@gmail.com> > > wrote: > >

> > > Sorry, that was my bad. I had a typo. Still getting the same > > > uninitialized > > > value $cmd in regexp on line 529 as before. > > > > > > Todd Witten > > > todd.witten@gmail.com > > > > > > On Mon, May 1, 2017 at 8:47 AM, Todd Witten <todd.witten@gmail.com> > > > wrote: > > >

> > >> Here's the response. $cmd_symbol requires explicit package name. > > >> Line 23 > > >> is the use Net::PJLink line. > > >> > > >> [Mon May 1 08:45:55 2017] automate.cgi: Global symbol "$cmd_symbol" > > >> requires explicit package name (did you forget to declare "my > > >> $cmd_symbol"?) at test_lib/Net/PJLink.pm line 528. > > >> [Mon May 1 08:45:55 2017] automate.cgi: Global symbol "$cmd_symbol" > > >> requires explicit package name (did you forget to declare "my > > >> $cmd_symbol"?) at test_lib/Net/PJLink.pm line 529. > > >> [Mon May 1 08:45:55 2017] automate.cgi: Compilation failed in > > >> require at > > >> ./automate.cgi line 23. > > >> [Mon May 1 08:45:55 2017] automate.cgi: BEGIN failed--compilation > > >> aborted at ./automate.cgi line 23. > > >> > > >> Todd Witten > > >> todd.witten@gmail.com > > >> > > >> On Sun, Apr 30, 2017 at 11:24 PM, Kyle Emmons via RT < > > >> bug-Net-PJLink@rt.cpan.org> wrote: > > >>

> > >>> <URL: https://rt.cpan.org/Ticket/Display.html?id=121409 > > > >>> > > >>> On Thu Apr 27 00:27:57 2017, todd.witten@gmail.com wrote:

> > >>> > When connecting to 3 Epson G7500U projectors simultaneously, I > > >>> > get an > > >>> > error > > >>> > from the module: > > >>> > > > >>> > Wed Apr 26 23:13:49 2017 - pjlink: aud - SENDING COMMAND: PJLink > > >>> > 0 > > >>> > (Off) > > >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized > > >>> > value > > >>> > $cmd in > > >>> > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line > > >>> > 529, > > >>> > <FH> > > >>> > chunk 29. > > >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized > > >>> > value > > >>> > $cmd in > > >>> > hash element at /usr/local/share/perl5/Net/PJLink.pm line 528, > > >>> > <FH> > > >>> > chunk > > >>> > 29. > > >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized > > >>> > value > > >>> > $cmd in > > >>> > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line > > >>> > 529, > > >>> > <FH> > > >>> > chunk 29. > > >>> > > > >>> > > > >>> > Here's my code snippet: > > >>> > my $AUD_PROJ_L = '192.168.104.81'; > > >>> > my $AUD_PROJ_R = '192.168.104.82'; > > >>> > my $AUD_PROJ_RR = '192.168.104.83'; > > >>> > > > >>> > $prj = > > >>> > Net::PJLink-

> > >>> > > new(host=>[$AUD_PROJ_L,$AUD_PROJ_R,$AUD_PROJ_RR],auth_passw

> > >>> ord=>$PASS,keep_alive=>1);

> > >>> > print STDERR (localtime) . " - pjlink: $host - SENDING COMMAND: > > >>> > PJLink > > >>> > 0 > > >>> > (Off)\n" if $debug; > > >>> > $prj->set_power(0); > > >>> > > > >>> > > > >>> > > > >>> > Todd Witten > > >>> > todd.witten@gmail.com

> > >>> > > >>> > > >>> I think I've found the problem, but I no longer have access to > > >>> projectors to test against. Would you be able to test this change > > >>> and let > > >>> me know if it fixes your issue? (attached patch file) > > >>> > > >>> If you're on Linux, I'd recommend doing this to test: > > >>> - make directories "test_lib/Net" in the same directory as your > > >>> script > > >>> - copy the installed module on your system > > >>> (/usr/local/share/perl5/Net/PJLink.pm) into that new directory (so > > >>> you > > >>> have test_lib/Net/PJLink.pm) > > >>> - apply the attached patch file with this command: "patch > > >>> test_lib/Net/PJLink.pm path/to/net_pjlink_test_fix.patch" > > >>> - add the line "use lib "test_lib";" to your script before the > > >>> "use > > >>> Net::PJLink" line > > >>> > > >>>

> > >>

> > >

> > Thanks for testing! Here's a revised patch. > > (Remember to apply the patch to a fresh copy of the module.) > >

Tue May 02 16:37:29 2017 KEMMONS [...] cpan.org - Correspondence added

On Tue May 02 00:20:48 2017, todd.witten@gmail.com wrote: Show quoted text

> Works like a champ! I tested power on, power off, and get power. I don't > switch inputs on the projectors, but I can test it if you'd like, just let > me know. > > Please let me know if there's anything else I can do. > > Thanks! > > Todd Witten > todd.witten@gmail.com > > On Mon, May 1, 2017 at 6:56 PM, Kyle Emmons via RT < > bug-Net-PJLink@rt.cpan.org> wrote: >

> > <URL: https://rt.cpan.org/Ticket/Display.html?id=121409 > > > > > On Mon May 01 09:56:53 2017, todd.witten@gmail.com wrote:

> > > Crap! Sorry... I am going between test and production code. The > > > $cmd_symbol > > > package name is the correct error. I'm going to make a simplified test > > > script now instead of editing production code so that I can > > > consistently > > > test for you. > > > > > > Sorry for the back and forth... > > > > > > Todd Witten > > > todd.witten@gmail.com > > > > > > On Mon, May 1, 2017 at 8:55 AM, Todd Witten <todd.witten@gmail.com> > > > wrote: > > >

> > > > Sorry, that was my bad. I had a typo. Still getting the same > > > > uninitialized > > > > value $cmd in regexp on line 529 as before. > > > > > > > > Todd Witten > > > > todd.witten@gmail.com > > > > > > > > On Mon, May 1, 2017 at 8:47 AM, Todd Witten <todd.witten@gmail.com> > > > > wrote: > > > >

> > > >> Here's the response. $cmd_symbol requires explicit package name. > > > >> Line 23 > > > >> is the use Net::PJLink line. > > > >> > > > >> [Mon May 1 08:45:55 2017] automate.cgi: Global symbol "$cmd_symbol" > > > >> requires explicit package name (did you forget to declare "my > > > >> $cmd_symbol"?) at test_lib/Net/PJLink.pm line 528. > > > >> [Mon May 1 08:45:55 2017] automate.cgi: Global symbol "$cmd_symbol" > > > >> requires explicit package name (did you forget to declare "my > > > >> $cmd_symbol"?) at test_lib/Net/PJLink.pm line 529. > > > >> [Mon May 1 08:45:55 2017] automate.cgi: Compilation failed in > > > >> require at > > > >> ./automate.cgi line 23. > > > >> [Mon May 1 08:45:55 2017] automate.cgi: BEGIN failed--compilation > > > >> aborted at ./automate.cgi line 23. > > > >> > > > >> Todd Witten > > > >> todd.witten@gmail.com > > > >> > > > >> On Sun, Apr 30, 2017 at 11:24 PM, Kyle Emmons via RT < > > > >> bug-Net-PJLink@rt.cpan.org> wrote: > > > >>

> > > >>> <URL: https://rt.cpan.org/Ticket/Display.html?id=121409 > > > > >>> > > > >>> On Thu Apr 27 00:27:57 2017, todd.witten@gmail.com wrote:

> > > >>> > When connecting to 3 Epson G7500U projectors simultaneously, I > > > >>> > get an > > > >>> > error > > > >>> > from the module: > > > >>> > > > > >>> > Wed Apr 26 23:13:49 2017 - pjlink: aud - SENDING COMMAND: PJLink > > > >>> > 0 > > > >>> > (Off) > > > >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized > > > >>> > value > > > >>> > $cmd in > > > >>> > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line > > > >>> > 529, > > > >>> > <FH> > > > >>> > chunk 29. > > > >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized > > > >>> > value > > > >>> > $cmd in > > > >>> > hash element at /usr/local/share/perl5/Net/PJLink.pm line 528, > > > >>> > <FH> > > > >>> > chunk > > > >>> > 29. > > > >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized > > > >>> > value > > > >>> > $cmd in > > > >>> > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm line > > > >>> > 529, > > > >>> > <FH> > > > >>> > chunk 29. > > > >>> > > > > >>> > > > > >>> > Here's my code snippet: > > > >>> > my $AUD_PROJ_L = '192.168.104.81'; > > > >>> > my $AUD_PROJ_R = '192.168.104.82'; > > > >>> > my $AUD_PROJ_RR = '192.168.104.83'; > > > >>> > > > > >>> > $prj = > > > >>> > Net::PJLink-

> > > >>> > > new(host=>[$AUD_PROJ_L,$AUD_PROJ_R,$AUD_PROJ_RR],auth_passw

> > > >>> ord=>$PASS,keep_alive=>1);

> > > >>> > print STDERR (localtime) . " - pjlink: $host - SENDING COMMAND: > > > >>> > PJLink > > > >>> > 0 > > > >>> > (Off)\n" if $debug; > > > >>> > $prj->set_power(0); > > > >>> > > > > >>> > > > > >>> > > > > >>> > Todd Witten > > > >>> > todd.witten@gmail.com

> > > >>> > > > >>> > > > >>> I think I've found the problem, but I no longer have access to > > > >>> projectors to test against. Would you be able to test this change > > > >>> and let > > > >>> me know if it fixes your issue? (attached patch file) > > > >>> > > > >>> If you're on Linux, I'd recommend doing this to test: > > > >>> - make directories "test_lib/Net" in the same directory as your > > > >>> script > > > >>> - copy the installed module on your system > > > >>> (/usr/local/share/perl5/Net/PJLink.pm) into that new directory (so > > > >>> you > > > >>> have test_lib/Net/PJLink.pm) > > > >>> - apply the attached patch file with this command: "patch > > > >>> test_lib/Net/PJLink.pm path/to/net_pjlink_test_fix.patch" > > > >>> - add the line "use lib "test_lib";" to your script before the > > > >>> "use > > > >>> Net::PJLink" line > > > >>> > > > >>>

> > > >>

> > > >

> > > > Thanks for testing! Here's a revised patch. > > > > (Remember to apply the patch to a fresh copy of the module.) > > > >

Great! All of the commands use this common code, so we shouldn't need to test all of the other methods. I'll get this fix published as version 1.03 within a few days.

Tue May 02 16:48:53 2017 todd.witten [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #121409] Multiple Hosts
Date:	Tue, 2 May 2017 15:48:40 -0500
To:	bug-Net-PJLink [...] rt.cpan.org
From:	Todd Witten <todd.witten [...] gmail.com>

Awesome, thanks again! Todd Witten todd.witten@gmail.com On Tue, May 2, 2017 at 3:37 PM, Kyle Emmons via RT < bug-Net-PJLink@rt.cpan.org> wrote: Show quoted text

> <URL: https://rt.cpan.org/Ticket/Display.html?id=121409 > > > On Tue May 02 00:20:48 2017, todd.witten@gmail.com wrote:

> > Works like a champ! I tested power on, power off, and get power. I don't > > switch inputs on the projectors, but I can test it if you'd like, just

> let

> > me know. > > > > Please let me know if there's anything else I can do. > > > > Thanks! > > > > Todd Witten > > todd.witten@gmail.com > > > > On Mon, May 1, 2017 at 6:56 PM, Kyle Emmons via RT < > > bug-Net-PJLink@rt.cpan.org> wrote: > >

> > > <URL: https://rt.cpan.org/Ticket/Display.html?id=121409 > > > > > > > On Mon May 01 09:56:53 2017, todd.witten@gmail.com wrote:

> > > > Crap! Sorry... I am going between test and production code. The > > > > $cmd_symbol > > > > package name is the correct error. I'm going to make a simplified

> test

> > > > script now instead of editing production code so that I can > > > > consistently > > > > test for you. > > > > > > > > Sorry for the back and forth... > > > > > > > > Todd Witten > > > > todd.witten@gmail.com > > > > > > > > On Mon, May 1, 2017 at 8:55 AM, Todd Witten <todd.witten@gmail.com> > > > > wrote: > > > >

> > > > > Sorry, that was my bad. I had a typo. Still getting the same > > > > > uninitialized > > > > > value $cmd in regexp on line 529 as before. > > > > > > > > > > Todd Witten > > > > > todd.witten@gmail.com > > > > > > > > > > On Mon, May 1, 2017 at 8:47 AM, Todd Witten <todd.witten@gmail.com

> >

> > > > > wrote: > > > > >

> > > > >> Here's the response. $cmd_symbol requires explicit package name. > > > > >> Line 23 > > > > >> is the use Net::PJLink line. > > > > >> > > > > >> [Mon May 1 08:45:55 2017] automate.cgi: Global symbol

> "$cmd_symbol"

> > > > >> requires explicit package name (did you forget to declare "my > > > > >> $cmd_symbol"?) at test_lib/Net/PJLink.pm line 528. > > > > >> [Mon May 1 08:45:55 2017] automate.cgi: Global symbol

> "$cmd_symbol"

> > > > >> requires explicit package name (did you forget to declare "my > > > > >> $cmd_symbol"?) at test_lib/Net/PJLink.pm line 529. > > > > >> [Mon May 1 08:45:55 2017] automate.cgi: Compilation failed in > > > > >> require at > > > > >> ./automate.cgi line 23. > > > > >> [Mon May 1 08:45:55 2017] automate.cgi: BEGIN failed--compilation > > > > >> aborted at ./automate.cgi line 23. > > > > >> > > > > >> Todd Witten > > > > >> todd.witten@gmail.com > > > > >> > > > > >> On Sun, Apr 30, 2017 at 11:24 PM, Kyle Emmons via RT < > > > > >> bug-Net-PJLink@rt.cpan.org> wrote: > > > > >>

> > > > >>> <URL: https://rt.cpan.org/Ticket/Display.html?id=121409 > > > > > >>> > > > > >>> On Thu Apr 27 00:27:57 2017, todd.witten@gmail.com wrote:

> > > > >>> > When connecting to 3 Epson G7500U projectors simultaneously, I > > > > >>> > get an > > > > >>> > error > > > > >>> > from the module: > > > > >>> > > > > > >>> > Wed Apr 26 23:13:49 2017 - pjlink: aud - SENDING COMMAND:

> PJLink

> > > > >>> > 0 > > > > >>> > (Off) > > > > >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized > > > > >>> > value > > > > >>> > $cmd in > > > > >>> > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm

> line

> > > > >>> > 529, > > > > >>> > <FH> > > > > >>> > chunk 29. > > > > >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized > > > > >>> > value > > > > >>> > $cmd in > > > > >>> > hash element at /usr/local/share/perl5/Net/PJLink.pm line 528, > > > > >>> > <FH> > > > > >>> > chunk > > > > >>> > 29. > > > > >>> > [Wed Apr 26 23:13:49 2017] automate.cgi: Use of uninitialized > > > > >>> > value > > > > >>> > $cmd in > > > > >>> > regexp compilation at /usr/local/share/perl5/Net/PJLink.pm

> line

> > > > >>> > 529, > > > > >>> > <FH> > > > > >>> > chunk 29. > > > > >>> > > > > > >>> > > > > > >>> > Here's my code snippet: > > > > >>> > my $AUD_PROJ_L = '192.168.104.81'; > > > > >>> > my $AUD_PROJ_R = '192.168.104.82'; > > > > >>> > my $AUD_PROJ_RR = '192.168.104.83'; > > > > >>> > > > > > >>> > $prj = > > > > >>> > Net::PJLink-

> > > > >>> > > new(host=>[$AUD_PROJ_L,$AUD_PROJ_R,$AUD_PROJ_RR],auth_passw

> > > > >>> ord=>$PASS,keep_alive=>1);

> > > > >>> > print STDERR (localtime) . " - pjlink: $host - SENDING COMMAND: > > > > >>> > PJLink > > > > >>> > 0 > > > > >>> > (Off)\n" if $debug; > > > > >>> > $prj->set_power(0); > > > > >>> > > > > > >>> > > > > > >>> > > > > > >>> > Todd Witten > > > > >>> > todd.witten@gmail.com

> > > > >>> > > > > >>> > > > > >>> I think I've found the problem, but I no longer have access to > > > > >>> projectors to test against. Would you be able to test this change > > > > >>> and let > > > > >>> me know if it fixes your issue? (attached patch file) > > > > >>> > > > > >>> If you're on Linux, I'd recommend doing this to test: > > > > >>> - make directories "test_lib/Net" in the same directory as your > > > > >>> script > > > > >>> - copy the installed module on your system > > > > >>> (/usr/local/share/perl5/Net/PJLink.pm) into that new directory

> (so

> > > > >>> you > > > > >>> have test_lib/Net/PJLink.pm) > > > > >>> - apply the attached patch file with this command: "patch > > > > >>> test_lib/Net/PJLink.pm path/to/net_pjlink_test_fix.patch" > > > > >>> - add the line "use lib "test_lib";" to your script before the > > > > >>> "use > > > > >>> Net::PJLink" line > > > > >>> > > > > >>>

> > > > >>

> > > > >

> > > > > > Thanks for testing! Here's a revised patch. > > > > > > (Remember to apply the patch to a fresh copy of the module.) > > > > > >

> > > Great! All of the commands use this common code, so we shouldn't need to > test all of the other methods. > > I'll get this fix published as version 1.03 within a few days. >

Tue May 02 23:15:43 2017 KEMMONS [...] cpan.org - Status changed from 'open' to 'resolved'

Tue May 02 23:15:43 2017 KEMMONS [...] cpan.org - Fixed in 1.03 added