From joel at fentin.com Mon May 9 11:24:10 2011 From: joel at fentin.com (Joel Fentin) Date: Mon, 09 May 2011 11:24:10 -0700 Subject: [San-Diego-pm] help Message-ID: <4DC8314A.5070601@fentin.com> Had to install Image::Size in cgi-bin. networksolutions won't install perl modules. error message: Can't locate auto/Image/Size/jpegsize.al in @INC (@INC contains: ../ ../Image ../auto/Image/ ./auto/Image/Size/ auto/Image/Size/jpegsize.al auto/Image/Size/ ../auto/Image/Size/ /usr/lib/perl5/5.8.7/i686-linux /usr/lib/perl5/5.8.7 /usr/lib/perl5/site_perl/5.8.7/i686-linux /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.7/i686-linux /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl .) at ..//Image/Size.pm line 213 Addional notes: + I have dropped jpegsize.al all over the place and have changed permissions to 755. + I have added everything I can think of to @INC. + current directory is /public_html/cgi-bin/Admin as is the application program. + Where the files are: /public_html/cgi-bin/auto/Image/Size/jpegsize.al (& elsewhere) /public_html/cgi-bin/Image/Size.pm I'm going in circles and don't know what it wants. -- Joel Fentin tel: 760-749-8863 Biz Website: http://fentin.com Personal Website: http://fentin.com/me From christopher.p.hart at gmail.com Mon May 9 13:39:42 2011 From: christopher.p.hart at gmail.com (Christopher Hart) Date: Mon, 9 May 2011 13:39:42 -0700 Subject: [San-Diego-pm] help In-Reply-To: <4DC8314A.5070601@fentin.com> References: <4DC8314A.5070601@fentin.com> Message-ID: Hi Joel, I've seen browsers behave poorly over the . (cwd) in @INC. Have you tried doing 'use lib qw(.);' or 'use lib qw( /path/to/public_html/cgi-bin );' ? On Mon, May 9, 2011 at 11:24 AM, Joel Fentin wrote: > Had to install Image::Size in cgi-bin. networksolutions won't install perl > modules. > > error message: > > Can't locate auto/Image/Size/jpegsize.al in @INC > (@INC contains: ../ > ../Image > ../auto/Image/ > ./auto/Image/Size/ > auto/Image/Size/jpegsize.al > auto/Image/Size/ > ../auto/Image/Size/ > /usr/lib/perl5/5.8.7/i686-linux > /usr/lib/perl5/5.8.7 > /usr/lib/perl5/site_perl/5.8.7/i686-linux > /usr/lib/perl5/site_perl/5.8.7 > /usr/lib/perl5/site_perl > /usr/lib/perl5/vendor_perl/5.8.7/i686-linux > /usr/lib/perl5/vendor_perl/5.8.7 > /usr/lib/perl5/vendor_perl .) > at ..//Image/Size.pm line 213 > > Addional notes: > > + I have dropped jpegsize.al all over the place and have changed > permissions to 755. > > + I have added everything I can think of to @INC. > > + current directory is /public_html/cgi-bin/Admin as is the application > program. > > + Where the files are: > /public_html/cgi-bin/auto/Image/Size/jpegsize.al (& elsewhere) > /public_html/cgi-bin/Image/Size.pm > > I'm going in circles and don't know what it wants. > > -- > Joel Fentin tel: 760-749-8863 > Biz Website: http://fentin.com > Personal Website: http://fentin.com/me > _______________________________________________ > San-Diego-pm mailing list > San-Diego-pm at pm.org > http://mail.pm.org/mailman/listinfo/san-diego-pm > -- Respectfully, Chris Hart Senior Internet Engineer, ZeroLag Communications, Inc. http://www.zerolag.com -------------- next part -------------- An HTML attachment was scrubbed... URL: From ruberad at gmail.com Tue May 10 14:47:43 2011 From: ruberad at gmail.com (Reuben Settergren) Date: Tue, 10 May 2011 14:47:43 -0700 Subject: [San-Diego-pm] Wrangle module version? Message-ID: Hello Mongers, I have what seems like it should be a simple problem (and it probably is!), but I'm not finding the simple solution, so I'm hoping somebody can give me the right answer off the top of their head. So the group I work with shares a perl script to run multi-hour builds (of C++, on windows boxes, with visual studio 9). Usually we try to rebuild the whole shebang overnight, and then work on it all day. But sometimes we have to build during the day, and the computer can bog down. So yesterday I added this bitchin little tweak to allow the script to demote its own windows priority to "Below Normal", which in turn governs the priority of all the build tasks it spawns. Suddenly, it's a lot easier to get work done while the computer is building. Yay. But, I discovered today that not all of us developers have the same install of ActiveState (and it's not possible to mandate them to all upgrade to 5.10), and older versions of Win32::Process do not offer the symbols BELOW_NORMAL_PRIORITY_CLASS and ABOVE_NORMAL_PRIORITY_CLASS (presumably because win2K or pre-win2K did not have those priorities), so they cannot use Win32::Process qw[ BELOW_NORMAL_PRIORITY_CLASS ABOVE_NORMAL_PRIORITY_CLASS ]; and the perl script borks. What I could do is modify the script so that the only possible priority-switching option is to change to LOW. What I'd rather do is allow every user access to every priority that their Win32::Process makes available to them. Is there a perl statement that will tell me whether Win32::Process is able to export the symbols I want, without actually trying to import them and killing the script? For reference, the trivial script below works for me, but not for the outdated. If this could be made to detect whether the symbols are available, and switch to low/high if they are not, that would solve my problem. use Win32::Process; use Win32::Process qw[ BELOW_NORMAL_PRIORITY_CLASS ABOVE_NORMAL_PRIORITY_CLASS ]; my $pid = Win32::Process::GetCurrentProcessID(); print "PID is $pid\n"; $i = 100; $dt = 5; while ($i) { print "Sleeping for $dt seconds; $i\n"; sleep $dt; $i--; my $proc; if (Win32::Process::Open($proc, $pid, 0)) { my $class; $proc->GetPriorityClass($class); print "Priority class is $class\n"; if ($i%2) { print "Changing class to BELOW NORMAL\n"; $proc->SetPriorityClass(BELOW_NORMAL_PRIORITY_CLASS); } else { print "Changing class to ABOVE NORMAL\n"; $proc->SetPriorityClass(ABOVE_NORMAL_PRIORITY_CLASS); } } else { print "Can't find myself as PID=$pid\n"; } } -------------- next part -------------- An HTML attachment was scrubbed... URL: From rkleeman at energoncube.net Tue May 10 21:01:36 2011 From: rkleeman at energoncube.net (Bob Kleemann) Date: Tue, 10 May 2011 21:01:36 -0700 Subject: [San-Diego-pm] Wrangle module version? In-Reply-To: References: Message-ID: Since I don't have a Windows box to test this on, I'm not sure, but you could try something like our $LOW_PRIORITY; BEGIN { require Win32::Process; eval { Win32::Process->import(qw[ BELOW_NORMAL_PRIORITY_CLASS ABOVE_NORMAL_PRIORITY_CLASS ]); $LOW_PRIORITY = BELOW_NORMAL_PRIORITY_CLASS; } || eval { Win32::Process->import(qw[ LOW ]) $LOW_PRIORITY = LOW; }; } Then proceed to use $LOW_PRIORITY where you would normally use BELOW_NORMAL_PRIORITY_CLASS. 2011/5/10 Reuben Settergren : > Hello Mongers, > > I have what seems like it should be a simple problem (and it probably is!), > but I'm not finding the simple solution, so I'm hoping somebody can give me > the right answer off the top of their head. > > So the group I work with shares a perl script to run multi-hour builds (of > C++, on windows boxes, with visual studio 9). Usually we try to rebuild the > whole shebang overnight, and then work on it all day. But sometimes we have > to build during the day, and the computer can bog down. > > So yesterday I added this bitchin little tweak to allow the script to demote > its own windows priority to "Below Normal", which in turn governs the > priority of all the build tasks it spawns. Suddenly, it's a lot easier to > get work done while the computer is building. Yay. > > But, I discovered today that not all of us developers have the same install > of ActiveState (and it's not possible to mandate them to all upgrade to > 5.10), and older versions of Win32::Process do not offer the symbols > BELOW_NORMAL_PRIORITY_CLASS and ABOVE_NORMAL_PRIORITY_CLASS (presumably > because win2K or pre-win2K did not have those priorities), so they cannot > > ??? use Win32::Process qw[ BELOW_NORMAL_PRIORITY_CLASS > ABOVE_NORMAL_PRIORITY_CLASS ]; > > and the perl script borks. > > What I could do is modify the script so that the only possible > priority-switching option is to change to LOW. > > What I'd rather do is allow every user access to every priority that their > Win32::Process makes available to them. Is there a perl statement that will > tell me whether Win32::Process is able to export the symbols I want, without > actually trying to import them and killing the script? > > For reference, the trivial script below works for me, but not for the > outdated. If this could be made to detect whether the symbols are available, > and switch to low/high if they are not, that would solve my problem. > > > > use Win32::Process; > use Win32::Process qw[ BELOW_NORMAL_PRIORITY_CLASS > ABOVE_NORMAL_PRIORITY_CLASS ]; > > my $pid = Win32::Process::GetCurrentProcessID(); > print "PID is $pid\n"; > > $i = 100; > $dt = 5; > while ($i) { > ? print "Sleeping for $dt seconds; $i\n"; > ? sleep $dt; > ? $i--; > > ? my $proc; > ? if (Win32::Process::Open($proc, $pid, 0)) { > ??? my $class; > ??? $proc->GetPriorityClass($class); > ??? print "Priority class is $class\n"; > ??? if ($i%2) { > ????? print "Changing class to BELOW NORMAL\n"; > ????? $proc->SetPriorityClass(BELOW_NORMAL_PRIORITY_CLASS); > ??? } else { > ????? print "Changing class to ABOVE NORMAL\n"; > ????? $proc->SetPriorityClass(ABOVE_NORMAL_PRIORITY_CLASS); > ??? } > > ? } else { > ??? print "Can't find myself as PID=$pid\n"; > ? } > > } > > > > > > > _______________________________________________ > San-Diego-pm mailing list > San-Diego-pm at pm.org > http://mail.pm.org/mailman/listinfo/san-diego-pm > From joel at fentin.com Wed May 11 10:08:52 2011 From: joel at fentin.com (Joel Fentin) Date: Wed, 11 May 2011 10:08:52 -0700 Subject: [San-Diego-pm] help In-Reply-To: References: <4DC8314A.5070601@fentin.com> Message-ID: <4DCAC2A4.3040703@fentin.com> On 5/9/2011 1:39 PM, Christopher Hart wrote: > Hi Joel, > > I've seen browsers behave poorly over the . (cwd) in @INC. > Have you tried doing 'use lib qw(.);' or 'use lib qw( > /path/to/public_html/cgi-bin );' ? Chris, Thank you for getting back to me. To the extent that I understand (which ain't much), you think the problem is tied to the browser. If so, I would expect different results with Chrome, IE, & FF. I get identical results. I once dropped this same module into cgi-bin in Hurricane Electric and didn't have these problems. My own suspicion is that networksolutions has set up security such that I have to present the path in a certain format. I called them and they have various levels of experts. The guy at the third level is taking his sweet time getting back to me. More later if I learn anything. > On Mon, May 9, 2011 at 11:24 AM, Joel Fentin > wrote: > > Had to install Image::Size in cgi-bin. networksolutions won't > install perl modules. > > error message: > > Can't locate auto/Image/Size/jpegsize.al > in @INC > (@INC contains: ../ > ../Image > ../auto/Image/ > ./auto/Image/Size/ > auto/Image/Size/jpegsize.al > auto/Image/Size/ > ../auto/Image/Size/ > /usr/lib/perl5/5.8.7/i686-linux > /usr/lib/perl5/5.8.7 > /usr/lib/perl5/site_perl/5.8.7/i686-linux > /usr/lib/perl5/site_perl/5.8.7 > /usr/lib/perl5/site_perl > /usr/lib/perl5/vendor_perl/5.8.7/i686-linux > /usr/lib/perl5/vendor_perl/5.8.7 > /usr/lib/perl5/vendor_perl .) > at ..//Image/Size.pm line 213 > > Addional notes: > > + I have dropped jpegsize.al all over the > place and have changed permissions to 755. > > + I have added everything I can think of to @INC. > > + current directory is /public_html/cgi-bin/Admin as is the > application program. > > + Where the files are: > /public_html/cgi-bin/auto/Image/Size/jpegsize.al > (& elsewhere) > /public_html/cgi-bin/Image/Size.pm > > I'm going in circles and don't know what it wants. > > -- > Joel Fentin tel: 760-749-8863 > Biz Website: http://fentin.com > Personal Website: http://fentin.com/me > _______________________________________________ > San-Diego-pm mailing list > San-Diego-pm at pm.org > http://mail.pm.org/mailman/listinfo/san-diego-pm > > > > > -- > Respectfully, > > Chris Hart > Senior Internet Engineer, > ZeroLag Communications, Inc. > http://www.zerolag.com > -- Joel Fentin tel: 760-749-8863 Biz Website: http://fentin.com Personal Website: http://fentin.com/me From chris at chrisgrau.com Wed May 11 11:08:23 2011 From: chris at chrisgrau.com (Chris Grau) Date: Wed, 11 May 2011 11:08:23 -0700 Subject: [San-Diego-pm] help In-Reply-To: <4DC8314A.5070601@fentin.com> References: <4DC8314A.5070601@fentin.com> Message-ID: Your paths appear correct, according to the @INC listed in the error. The only oddity is the file itself appearing in @INC, but I assume it's because you were trying everything, including adding the file to the list. What's the file type of your jpegsize.al file (output of 'file jpegsize.al')? What's the system type of the host (output of 'uname -a')? On Mon, May 9, 2011 at 11:24 AM, Joel Fentin wrote: > Had to install Image::Size in cgi-bin. networksolutions won't install perl > modules. > > error message: > > Can't locate auto/Image/Size/jpegsize.al in @INC > (@INC contains: ../ > ../Image > ../auto/Image/ > ./auto/Image/Size/ > auto/Image/Size/jpegsize.al > auto/Image/Size/ > ../auto/Image/Size/ > /usr/lib/perl5/5.8.7/i686-linux > /usr/lib/perl5/5.8.7 > /usr/lib/perl5/site_perl/5.8.7/i686-linux > /usr/lib/perl5/site_perl/5.8.7 > /usr/lib/perl5/site_perl > /usr/lib/perl5/vendor_perl/5.8.7/i686-linux > /usr/lib/perl5/vendor_perl/5.8.7 > /usr/lib/perl5/vendor_perl .) > at ..//Image/Size.pm line 213 > > Addional notes: > > + I have dropped jpegsize.al all over the place and have changed permissions > to 755. > > + I have added everything I can think of to @INC. > > + current directory is /public_html/cgi-bin/Admin as is the application > program. > > + Where the files are: > /public_html/cgi-bin/auto/Image/Size/jpegsize.al (& elsewhere) > /public_html/cgi-bin/Image/Size.pm > > I'm going in circles and don't know what it wants. From ruberad at gmail.com Wed May 11 12:21:14 2011 From: ruberad at gmail.com (Reuben Settergren) Date: Wed, 11 May 2011 12:21:14 -0700 Subject: [San-Diego-pm] San-Diego-pm Digest, Vol 85, Issue 3 In-Reply-To: References: Message-ID: Thanks Bob for your help. It didn't quite work as-is, but it got me where I needed to go. Your BEGIN { eval{} || eval{} } construct went into the right path, but setting the scalar variables did not work. Instead they just took advantage of a syntax aid I didn't know about, where perl apparently helps out by assuming you meant to put quotes around barewords (i.e. $LOW_PRIORITY eq 'BELOW_NORMAL_PRIORITY_CLASS') What are those $-less symbols from Win32::Process anyways? But I was able to declare a $capable scalar, and have it set to 1 or 0 depending on the success of the import, which allowed me to take appropriate action later in the script. AND (purists avert your eyes!) I discovered I don't even need the labels after all. I can simply use Win32::Process; $below_normal = 16384; $above_normal = 32768; #... $proc->SetPriorityClass($below_normal); # OR $proc->SetPriorityClass($above_normal); TIMTOWDI thanks again! r On Wed, May 11, 2011 at 12:00 PM, wrote: > Send San-Diego-pm mailing list submissions to > san-diego-pm at pm.org > > To subscribe or unsubscribe via the World Wide Web, visit > http://mail.pm.org/mailman/listinfo/san-diego-pm > or, via email, send a message with subject or body 'help' to > san-diego-pm-request at pm.org > > You can reach the person managing the list at > san-diego-pm-owner at pm.org > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of San-Diego-pm digest..." > > > Today's Topics: > > 1. Wrangle module version? (Reuben Settergren) > 2. Re: Wrangle module version? (Bob Kleemann) > 3. Re: help (Joel Fentin) > 4. Re: help (Chris Grau) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Tue, 10 May 2011 14:47:43 -0700 > From: Reuben Settergren > To: san-diego-pm at pm.org > Subject: [San-Diego-pm] Wrangle module version? > Message-ID: > Content-Type: text/plain; charset="iso-8859-1" > > Hello Mongers, > > I have what seems like it should be a simple problem (and it probably is!), > but I'm not finding the simple solution, so I'm hoping somebody can give me > the right answer off the top of their head. > > So the group I work with shares a perl script to run multi-hour builds (of > C++, on windows boxes, with visual studio 9). Usually we try to rebuild the > whole shebang overnight, and then work on it all day. But sometimes we have > to build during the day, and the computer can bog down. > > So yesterday I added this bitchin little tweak to allow the script to > demote > its own windows priority to "Below Normal", which in turn governs the > priority of all the build tasks it spawns. Suddenly, it's a lot easier to > get work done while the computer is building. Yay. > > But, I discovered today that not all of us developers have the same install > of ActiveState (and it's not possible to mandate them to all upgrade to > 5.10), and older versions of Win32::Process do not offer the symbols > BELOW_NORMAL_PRIORITY_CLASS and ABOVE_NORMAL_PRIORITY_CLASS (presumably > because win2K or pre-win2K did not have those priorities), so they cannot > > use Win32::Process qw[ BELOW_NORMAL_PRIORITY_CLASS > ABOVE_NORMAL_PRIORITY_CLASS ]; > > and the perl script borks. > > What I could do is modify the script so that the only possible > priority-switching option is to change to LOW. > > What I'd rather do is allow every user access to every priority that their > Win32::Process makes available to them. Is there a perl statement that will > tell me whether Win32::Process is able to export the symbols I want, > without > actually trying to import them and killing the script? > > For reference, the trivial script below works for me, but not for the > outdated. If this could be made to detect whether the symbols are > available, > and switch to low/high if they are not, that would solve my problem. > > > > use Win32::Process; > use Win32::Process qw[ BELOW_NORMAL_PRIORITY_CLASS > ABOVE_NORMAL_PRIORITY_CLASS ]; > > my $pid = Win32::Process::GetCurrentProcessID(); > print "PID is $pid\n"; > > $i = 100; > $dt = 5; > while ($i) { > print "Sleeping for $dt seconds; $i\n"; > sleep $dt; > $i--; > > my $proc; > if (Win32::Process::Open($proc, $pid, 0)) { > my $class; > $proc->GetPriorityClass($class); > print "Priority class is $class\n"; > if ($i%2) { > print "Changing class to BELOW NORMAL\n"; > $proc->SetPriorityClass(BELOW_NORMAL_PRIORITY_CLASS); > } else { > print "Changing class to ABOVE NORMAL\n"; > $proc->SetPriorityClass(ABOVE_NORMAL_PRIORITY_CLASS); > } > > } else { > print "Can't find myself as PID=$pid\n"; > } > > } > -------------- next part -------------- > An HTML attachment was scrubbed... > URL: < > http://mail.pm.org/pipermail/san-diego-pm/attachments/20110510/63e364d5/attachment-0001.html > > > > ------------------------------ > > Message: 2 > Date: Tue, 10 May 2011 21:01:36 -0700 > From: Bob Kleemann > To: Reuben Settergren > Cc: san-diego-pm at pm.org > Subject: Re: [San-Diego-pm] Wrangle module version? > Message-ID: > Content-Type: text/plain; charset=ISO-8859-1 > > Since I don't have a Windows box to test this on, I'm not sure, but > you could try something like > > our $LOW_PRIORITY; > BEGIN { > require Win32::Process; > eval { > Win32::Process->import(qw[ > BELOW_NORMAL_PRIORITY_CLASS > ABOVE_NORMAL_PRIORITY_CLASS > ]); > $LOW_PRIORITY = BELOW_NORMAL_PRIORITY_CLASS; > } > || eval { > Win32::Process->import(qw[ LOW ]) > $LOW_PRIORITY = LOW; > }; > } > > Then proceed to use $LOW_PRIORITY where you would normally use > BELOW_NORMAL_PRIORITY_CLASS. > > 2011/5/10 Reuben Settergren : > > Hello Mongers, > > > > I have what seems like it should be a simple problem (and it probably > is!), > > but I'm not finding the simple solution, so I'm hoping somebody can give > me > > the right answer off the top of their head. > > > > So the group I work with shares a perl script to run multi-hour builds > (of > > C++, on windows boxes, with visual studio 9). Usually we try to rebuild > the > > whole shebang overnight, and then work on it all day. But sometimes we > have > > to build during the day, and the computer can bog down. > > > > So yesterday I added this bitchin little tweak to allow the script to > demote > > its own windows priority to "Below Normal", which in turn governs the > > priority of all the build tasks it spawns. Suddenly, it's a lot easier to > > get work done while the computer is building. Yay. > > > > But, I discovered today that not all of us developers have the same > install > > of ActiveState (and it's not possible to mandate them to all upgrade to > > 5.10), and older versions of Win32::Process do not offer the symbols > > BELOW_NORMAL_PRIORITY_CLASS and ABOVE_NORMAL_PRIORITY_CLASS (presumably > > because win2K or pre-win2K did not have those priorities), so they cannot > > > > ??? use Win32::Process qw[ BELOW_NORMAL_PRIORITY_CLASS > > ABOVE_NORMAL_PRIORITY_CLASS ]; > > > > and the perl script borks. > > > > What I could do is modify the script so that the only possible > > priority-switching option is to change to LOW. > > > > What I'd rather do is allow every user access to every priority that > their > > Win32::Process makes available to them. Is there a perl statement that > will > > tell me whether Win32::Process is able to export the symbols I want, > without > > actually trying to import them and killing the script? > > > > For reference, the trivial script below works for me, but not for the > > outdated. If this could be made to detect whether the symbols are > available, > > and switch to low/high if they are not, that would solve my problem. > > > > > > > > use Win32::Process; > > use Win32::Process qw[ BELOW_NORMAL_PRIORITY_CLASS > > ABOVE_NORMAL_PRIORITY_CLASS ]; > > > > my $pid = Win32::Process::GetCurrentProcessID(); > > print "PID is $pid\n"; > > > > $i = 100; > > $dt = 5; > > while ($i) { > > ? print "Sleeping for $dt seconds; $i\n"; > > ? sleep $dt; > > ? $i--; > > > > ? my $proc; > > ? if (Win32::Process::Open($proc, $pid, 0)) { > > ??? my $class; > > ??? $proc->GetPriorityClass($class); > > ??? print "Priority class is $class\n"; > > ??? if ($i%2) { > > ????? print "Changing class to BELOW NORMAL\n"; > > ????? $proc->SetPriorityClass(BELOW_NORMAL_PRIORITY_CLASS); > > ??? } else { > > ????? print "Changing class to ABOVE NORMAL\n"; > > ????? $proc->SetPriorityClass(ABOVE_NORMAL_PRIORITY_CLASS); > > ??? } > > > > ? } else { > > ??? print "Can't find myself as PID=$pid\n"; > > ? } > > > > } > > > > > > > > > > > > > > _______________________________________________ > > San-Diego-pm mailing list > > San-Diego-pm at pm.org > > http://mail.pm.org/mailman/listinfo/san-diego-pm > > > > > ------------------------------ > > Message: 3 > Date: Wed, 11 May 2011 10:08:52 -0700 > From: Joel Fentin > To: Christopher Hart > Cc: San Diego Perl Mongers , lasvegas-pm at pm.org > Subject: Re: [San-Diego-pm] help > Message-ID: <4DCAC2A4.3040703 at fentin.com> > Content-Type: text/plain; charset=ISO-8859-1; format=flowed > > On 5/9/2011 1:39 PM, Christopher Hart wrote: > > Hi Joel, > > > > I've seen browsers behave poorly over the . (cwd) in @INC. > > Have you tried doing 'use lib qw(.);' or 'use lib qw( > > /path/to/public_html/cgi-bin );' ? > > Chris, > > Thank you for getting back to me. > > To the extent that I understand (which ain't much), you think the > problem is tied to the browser. If so, I would expect different > results with Chrome, IE, & FF. I get identical results. > > I once dropped this same module into cgi-bin in Hurricane Electric > and didn't have these problems. My own suspicion is that > networksolutions has set up security such that I have to present > the path in a certain format. I called them and they have various > levels of experts. The guy at the third level is taking his sweet > time getting back to me. > > More later if I learn anything. > > > On Mon, May 9, 2011 at 11:24 AM, Joel Fentin > > wrote: > > > > Had to install Image::Size in cgi-bin. networksolutions won't > > install perl modules. > > > > error message: > > > > Can't locate auto/Image/Size/jpegsize.al > > in @INC > > (@INC contains: ../ > > ../Image > > ../auto/Image/ > > ./auto/Image/Size/ > > auto/Image/Size/jpegsize.al > > auto/Image/Size/ > > ../auto/Image/Size/ > > /usr/lib/perl5/5.8.7/i686-linux > > /usr/lib/perl5/5.8.7 > > /usr/lib/perl5/site_perl/5.8.7/i686-linux > > /usr/lib/perl5/site_perl/5.8.7 > > /usr/lib/perl5/site_perl > > /usr/lib/perl5/vendor_perl/5.8.7/i686-linux > > /usr/lib/perl5/vendor_perl/5.8.7 > > /usr/lib/perl5/vendor_perl .) > > at ..//Image/Size.pm line 213 > > > > Addional notes: > > > > + I have dropped jpegsize.al all over the > > place and have changed permissions to 755. > > > > + I have added everything I can think of to @INC. > > > > + current directory is /public_html/cgi-bin/Admin as is the > > application program. > > > > + Where the files are: > > /public_html/cgi-bin/auto/Image/Size/jpegsize.al > > (& elsewhere) > > /public_html/cgi-bin/Image/Size.pm > > > > I'm going in circles and don't know what it wants. > > > > -- > > Joel Fentin tel: 760-749-8863 > > Biz Website: http://fentin.com > > Personal Website: http://fentin.com/me > > _______________________________________________ > > San-Diego-pm mailing list > > San-Diego-pm at pm.org > > http://mail.pm.org/mailman/listinfo/san-diego-pm > > > > > > > > > > -- > > Respectfully, > > > > Chris Hart > > Senior Internet Engineer, > > ZeroLag Communications, Inc. > > http://www.zerolag.com > > > > > -- > Joel Fentin tel: 760-749-8863 > Biz Website: http://fentin.com > Personal Website: http://fentin.com/me > > > ------------------------------ > > Message: 4 > Date: Wed, 11 May 2011 11:08:23 -0700 > From: Chris Grau > To: Joel Fentin > Cc: San Diego Perl Mongers > Subject: Re: [San-Diego-pm] help > Message-ID: > Content-Type: text/plain; charset=UTF-8 > > Your paths appear correct, according to the @INC listed in the error. > The only oddity is the file itself appearing in @INC, but I assume > it's because you were trying everything, including adding the file to > the list. > > What's the file type of your jpegsize.al file (output of 'file jpegsize.al > ')? > > What's the system type of the host (output of 'uname -a')? > > On Mon, May 9, 2011 at 11:24 AM, Joel Fentin wrote: > > Had to install Image::Size in cgi-bin. networksolutions won't install > perl > > modules. > > > > error message: > > > > Can't locate auto/Image/Size/jpegsize.al in @INC > > (@INC contains: ../ > > ../Image > > ../auto/Image/ > > ./auto/Image/Size/ > > auto/Image/Size/jpegsize.al > > auto/Image/Size/ > > ../auto/Image/Size/ > > /usr/lib/perl5/5.8.7/i686-linux > > /usr/lib/perl5/5.8.7 > > /usr/lib/perl5/site_perl/5.8.7/i686-linux > > /usr/lib/perl5/site_perl/5.8.7 > > /usr/lib/perl5/site_perl > > /usr/lib/perl5/vendor_perl/5.8.7/i686-linux > > /usr/lib/perl5/vendor_perl/5.8.7 > > /usr/lib/perl5/vendor_perl .) > > at ..//Image/Size.pm line 213 > > > > Addional notes: > > > > + I have dropped jpegsize.al all over the place and have changed > permissions > > to 755. > > > > + I have added everything I can think of to @INC. > > > > + current directory is /public_html/cgi-bin/Admin as is the application > > program. > > > > + Where the files are: > > /public_html/cgi-bin/auto/Image/Size/jpegsize.al (& elsewhere) > > /public_html/cgi-bin/Image/Size.pm > > > > I'm going in circles and don't know what it wants. > > > ------------------------------ > > _______________________________________________ > San-Diego-pm mailing list > San-Diego-pm at pm.org > http://mail.pm.org/mailman/listinfo/san-diego-pm > > End of San-Diego-pm Digest, Vol 85, Issue 3 > ******************************************* > -------------- next part -------------- An HTML attachment was scrubbed... URL: From joel at fentin.com Wed May 11 12:58:37 2011 From: joel at fentin.com (Joel Fentin) Date: Wed, 11 May 2011 12:58:37 -0700 Subject: [San-Diego-pm] help In-Reply-To: References: <4DC8314A.5070601@fentin.com> Message-ID: <4DCAEA6D.8070602@fentin.com> On 5/11/2011 11:08 AM, Chris Grau wrote: > Your paths appear correct, according to the @INC listed in the error. > The only oddity is the file itself appearing in @INC, but I assume > it's because you were trying everything, including adding the file to > the list. Yup! > What's the file type of your jpegsize.al file (output of 'file jpegsize.al')? The file seems to have perl code: sub jpegsize { etc........ There is one for gifs; one for pngs; etc. > What's the system type of the host (output of 'uname -a')? I simply don't understand the question. If you are asking if it's a variation of unix or a microsoft server, it's unix. shared hosting. > On Mon, May 9, 2011 at 11:24 AM, Joel Fentin wrote: >> Had to install Image::Size in cgi-bin. networksolutions won't install perl >> modules. >> >> error message: >> >> Can't locate auto/Image/Size/jpegsize.al in @INC >> (@INC contains: ../ >> ../Image >> ../auto/Image/ >> ./auto/Image/Size/ >> auto/Image/Size/jpegsize.al >> auto/Image/Size/ >> ../auto/Image/Size/ >> /usr/lib/perl5/5.8.7/i686-linux >> /usr/lib/perl5/5.8.7 >> /usr/lib/perl5/site_perl/5.8.7/i686-linux >> /usr/lib/perl5/site_perl/5.8.7 >> /usr/lib/perl5/site_perl >> /usr/lib/perl5/vendor_perl/5.8.7/i686-linux >> /usr/lib/perl5/vendor_perl/5.8.7 >> /usr/lib/perl5/vendor_perl .) >> at ..//Image/Size.pm line 213 >> >> Addional notes: >> >> + I have dropped jpegsize.al all over the place and have changed permissions >> to 755. >> >> + I have added everything I can think of to @INC. >> >> + current directory is /public_html/cgi-bin/Admin as is the application >> program. >> >> + Where the files are: >> /public_html/cgi-bin/auto/Image/Size/jpegsize.al (& elsewhere) >> /public_html/cgi-bin/Image/Size.pm >> >> I'm going in circles and don't know what it wants. > > -- Joel Fentin tel: 760-749-8863 Biz Website: http://fentin.com Personal Website: http://fentin.com/me From chris at chrisgrau.com Wed May 11 13:19:20 2011 From: chris at chrisgrau.com (Chris Grau) Date: Wed, 11 May 2011 13:19:20 -0700 Subject: [San-Diego-pm] help In-Reply-To: <4DCAEA6D.8070602@fentin.com> References: <4DC8314A.5070601@fentin.com> <4DCAEA6D.8070602@fentin.com> Message-ID: <20110511201920.GA28198@chrisgrau.com> On Wed, May 11, 2011 at 12:58:37PM -0700, Joel Fentin wrote: > On 5/11/2011 11:08 AM, Chris Grau wrote: > >Your paths appear correct, according to the @INC listed in the error. > >The only oddity is the file itself appearing in @INC, but I assume > >it's because you were trying everything, including adding the file to > >the list. > > Yup! > > >What's the file type of your jpegsize.al file (output of 'file jpegsize.al')? > > The file seems to have perl code: > sub jpegsize > { > etc........ > > There is one for gifs; one for pngs; etc. I've gone back and actually looked at the *.al files. I confused them for *.so files. They're simply the autosplit functions. In that case, one of two things is wrong. Either your @INC is incorrect, or you're missing one or more files. Please send the small test script you're using and the complete recursive file listing of your directory (I hope it's not too large, you can prune off other CGI scripts or anything that isn't Image/Size). From christopher.p.hart at gmail.com Thu May 12 02:37:15 2011 From: christopher.p.hart at gmail.com (Christopher Hart) Date: Thu, 12 May 2011 02:37:15 -0700 Subject: [San-Diego-pm] help In-Reply-To: <20110511201920.GA28198@chrisgrau.com> References: <4DC8314A.5070601@fentin.com> <4DCAEA6D.8070602@fentin.com> <20110511201920.GA28198@chrisgrau.com> Message-ID: Sorry, allow me to clarify... 1. Disregard the file extensions, its neither here nor there as far as a.) the perl interpreter is concerned (shebang!) and b.) the mime type being set to cgi/perl in the webserver. 2. I was referring to browsers period, versus perl run via command-line. And because all appears correct otherwise, I suggested using a "use lib" statement; I still stand by that assessment without seeing the calling script. hth. :) On Wed, May 11, 2011 at 1:19 PM, Chris Grau wrote: > On Wed, May 11, 2011 at 12:58:37PM -0700, Joel Fentin wrote: > > On 5/11/2011 11:08 AM, Chris Grau wrote: > > >Your paths appear correct, according to the @INC listed in the error. > > >The only oddity is the file itself appearing in @INC, but I assume > > >it's because you were trying everything, including adding the file to > > >the list. > > > > Yup! > > > > >What's the file type of your jpegsize.al file (output of 'file > jpegsize.al')? > > > > The file seems to have perl code: > > sub jpegsize > > { > > etc........ > > > > There is one for gifs; one for pngs; etc. > > I've gone back and actually looked at the *.al files. I confused them > for *.so files. They're simply the autosplit functions. > > In that case, one of two things is wrong. Either your @INC is > incorrect, or you're missing one or more files. Please send the small > test script you're using and the complete recursive file listing of your > directory (I hope it's not too large, you can prune off other CGI > scripts or anything that isn't Image/Size). > _______________________________________________ > San-Diego-pm mailing list > San-Diego-pm at pm.org > http://mail.pm.org/mailman/listinfo/san-diego-pm > -- Respectfully, Chris Hart Senior Internet Engineer, ZeroLag Communications, Inc. http://www.zerolag.com -------------- next part -------------- An HTML attachment was scrubbed... URL: From joel at fentin.com Fri May 13 10:46:08 2011 From: joel at fentin.com (Joel Fentin) Date: Fri, 13 May 2011 10:46:08 -0700 Subject: [San-Diego-pm] help In-Reply-To: References: <4DC8314A.5070601@fentin.com> <4DCAEA6D.8070602@fentin.com> <20110511201920.GA28198@chrisgrau.com> Message-ID: <4DCD6E60.7020007@fentin.com> I believe I have found the problem. I had one letter of the wrong case in the path. Thank you for your trouble. On 5/12/2011 2:37 AM, Christopher Hart wrote: > Sorry, allow me to clarify... > > 1. Disregard the file extensions, its neither here nor there as > far as a.) the perl interpreter is concerned (shebang!) and b.) > the mime type being set to cgi/perl in the webserver. > > 2. I was referring to browsers period, versus perl run via > command-line. And because all appears correct otherwise, I > suggested using a "use lib" statement; I still stand by that > assessment without seeing the calling script. > > hth. :) > > On Wed, May 11, 2011 at 1:19 PM, Chris Grau > wrote: > > On Wed, May 11, 2011 at 12:58:37PM -0700, Joel Fentin wrote: > > On 5/11/2011 11:08 AM, Chris Grau wrote: > > >Your paths appear correct, according to the @INC listed in > the error. > > >The only oddity is the file itself appearing in @INC, but > I assume > > >it's because you were trying everything, including adding > the file to > > >the list. > > > > Yup! > > > > >What's the file type of your jpegsize.al > file (output of 'file jpegsize.al > ')? > > > > The file seems to have perl code: > > sub jpegsize > > { > > etc........ > > > > There is one for gifs; one for pngs; etc. > > I've gone back and actually looked at the *.al files. I > confused them > for *.so files. They're simply the autosplit functions. > > In that case, one of two things is wrong. Either your @INC is > incorrect, or you're missing one or more files. Please send > the small > test script you're using and the complete recursive file > listing of your > directory (I hope it's not too large, you can prune off other CGI > scripts or anything that isn't Image/Size). > _______________________________________________ > San-Diego-pm mailing list > San-Diego-pm at pm.org > http://mail.pm.org/mailman/listinfo/san-diego-pm > > > -- > Respectfully, > > Chris Hart > Senior Internet Engineer, > ZeroLag Communications, Inc. > http://www.zerolag.com -- Joel Fentin tel: 760-749-8863 Biz Website: http://fentin.com Personal Website: http://fentin.com/me From rkleeman at energoncube.net Mon May 16 14:48:10 2011 From: rkleeman at energoncube.net (Bob Kleemann) Date: Mon, 16 May 2011 14:48:10 -0700 Subject: [San-Diego-pm] Meeting Thursday! Message-ID: Perl Mongers, Our monthly meeting is this Thursday, May 19, from 7 PM onwards. We're meeting at the Anonymizer offices, so come on by and bring your questions, ideas, or thoughts you would like to discuss and we'll converse about it all. Drop me a quick note so I know you're coming, and I'll look forward to seeing you then. From rkleeman at energoncube.net Thu May 19 15:22:32 2011 From: rkleeman at energoncube.net (Bob Kleemann) Date: Thu, 19 May 2011 15:22:32 -0700 Subject: [San-Diego-pm] Meeting Tonight! Message-ID: Perl Mongers, Just a quick reminder, our monthly meeting is tonight. We are gathering at the offices of Anonymizer, from about 7 PM onwards. Come and share in our conversations. Let me know if you need any help, I look forward to seeing you all tonight!