Re: Cookies

2006-09-11 Thread Jerry Kassebaum
Set-Cookie: testcookie=test; expires=Wed, 29-Dec-2010 00:00:00 GMT; Location: http://biblescramble.com/biblescramble7.html EOD exit 0; That's got it! Thanks, Bill! Funny, though, it still won't add the cookie if I leave the www. in the url. I can live with that, though. In case you

Identify if a program is running on a Laptop or Desktop system

2006-09-11 Thread StoneBeat
Hi, i want to code a program that if it is running on a laptop system do something but if the host is not a laptop, do another. Im thinking in registry keys, WMI querys ... but really I dont know where search to fingerprint the host. Thanks ___

Trapping Carp::croak

2006-09-11 Thread Bullock, Howard A.
I use MIME::Lite for sending email from my programs. If the mail server can not be contacted the following MIME::Lite code causes a fatal error aborting my process. ### Create SMTP client: require Net::SMTP; my $smtp = MIME::Lite::SMTP-new(@args) or Carp::croak(Failed to connect to mail

Re: Cookies

2006-09-11 Thread Chris Wagner
At 08:44 AM 9/11/2006 -0500, Jerry Kassebaum wrote: In case you are interested, here's what I had for my cookie-maker: $GimmeCookie = cookie(-name = 'guest', -value = $lastCookie, -expires = +16y); print header(-cookie =

MMap

2006-09-11 Thread Strain, Paul
Attempting to port a network monitoring toolset (nmis) to Windows using ActivePerl. All looks well, but I get errors about Cache :: MMap not being installed. I can't find it in a ppm repository, nor have I have any luck trying to download and load a CPAN repository by hand. The program

Re: Identify if a program is running on a Laptop or Desktop system

2006-09-11 Thread Chris Wagner
Download Scriptomatic from Microsoft. It has a good WMI browswer in it. That's what I'ld do to look for anything. At 05:33 PM 9/11/2006 +0200, StoneBeat wrote: Hi, i want to code a program that if it is running on a laptop system do something but if the host is not a laptop, do another. Im

RE: Identify if a program is running on a Laptop or Desktop syste m

2006-09-11 Thread william . hoopes
Title: RE: Identify if a program is running on a Laptop or Desktop system ...or check for battc.sys -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of [EMAIL PROTECTED] Sent: Monday, September 11, 2006 3:03 PM To:

Error using WWW-Mechanize-1.14

2006-09-11 Thread Mark Funk
Folks, I keep getting the following error when I try to access a webpage and simply uncheck a dang checkbox. Can't call method "find_input" on an undefined value at c:/Perl/site/lib/WWW/Mechanize.pm line 1328, STDIN line 1. Anyone experience this error and have a fix/suggustion? Code

RE: Error using WWW-Mechanize-1.14

2006-09-11 Thread Tobias Hoellrich
Try $mech-tick('samenet', checkbox, '0'); as opposed to $mech-tick(samenet, checkbox, '0'); Hope this helps Tobias -Original Message- From: [EMAIL PROTECTED] on behalf of Mark Funk Sent: Mon 9/11/2006 1:52 PM To: Perl-Win32-Users@listserv.ActiveState.com Subject: Error using

Problem with checkbox solved !!

2006-09-11 Thread Mark Funk
I used the following code that works... $mech-form_number('5'); $mech-tick('samenet', 'on', 0); $mech-submit_form(form_number = 5); just trying several different things and $mech-tick with a value of "on" and a set value off "0" unchecks that rascal... Thanks, David M.

LWP

2006-09-11 Thread Jerry Kassebaum
Friends, Below is code from Perl and LWP by Sean Burke. Run it from the command line with -gk It seems that it's going to be a fine day. as arguments. The goal is to translate to Greek and back. Doing so manually at the site it uses yields It appears that it is to be one thin day. Apparently

Re: Trapping Carp::croak

2006-09-11 Thread $Bill Luebkert
Bullock, Howard A. wrote: I use MIME::Lite for sending email from my programs. If the mail server can not be contacted the following MIME::Lite code causes a fatal error aborting my process. ### Create SMTP client: require Net::SMTP; my $smtp = MIME::Lite::SMTP-new(@args) or

RE: Trapping Carp::croak

2006-09-11 Thread Bullock, Howard A.
I tried to trap this issue in my code using eval, but was unsuccessful. if (eval {$msg-send}) { print message sent\n; } else { print Failed to send: [EMAIL PROTECTED]; } Did I use the eval improperly or is there a better to prevent the stopping of my process? [Bullock,

Re: Trapping Carp::croak

2006-09-11 Thread $Bill Luebkert
Bullock, Howard A. wrote: [Bullock, Howard A.] What is different about your code other than not placing the eval in an if block? Is the missing semi-colon in the eval block the issue? I added 'use MIME::Lite;' (and dropped the Net::SMTP), used code I knew to work with it and reversed your

Re: MMap

2006-09-11 Thread $Bill Luebkert
Strain, Paul wrote: Attempting to port a network monitoring toolset (nmis) to Windows using ActivePerl. All looks well, but I get errors about Cache :: MMap not being installed. I can't find it in a ppm repository, nor have I have any luck trying to download and load a CPAN repository by

RE: Trapping Carp::croak

2006-09-11 Thread Bullock, Howard A.
[Bill Wrote:] I added 'use MIME::Lite;' (and dropped the Net::SMTP), used code I knew to work with it and reversed your eval if testing $@ rather than the return code from send (although that last item may work either way). [Bullock, Howard A.] I used MIME::Lite as stated in the original post.

Re: LWP

2006-09-11 Thread $Bill Luebkert
Jerry Kassebaum wrote: Friends, Below is code from Perl and LWP by Sean Burke. Run it from the command line with -gk It seems that it's going to be a fine day. as arguments. The goal is to translate to Greek and back. Doing so manually at the site it uses yields It appears that it is to

Re: MMap

2006-09-11 Thread $Bill Luebkert
There is an IPC::Mmap for Win32 that may be useful. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Trapping Carp::croak

2006-09-11 Thread $Bill Luebkert
Bullock, Howard A. wrote: [Bill Wrote:] I added 'use MIME::Lite;' (and dropped the Net::SMTP), used code I knew to work with it and reversed your eval if testing $@ rather than the return code from send (although that last item may work either way). [Bullock, Howard A.] I used MIME::Lite

RE: Trapping Carp::croak

2006-09-11 Thread Bullock, Howard A.
[Bill Wrote:] I added 'use MIME::Lite;' (and dropped the Net::SMTP), used code I knew to work with it and reversed your eval if testing $@ rather than the return code from send (although that last item may work either way). [Bullock, Howard A.] I used MIME::Lite as stated in the