Re: Check data type?

2002-06-12 Thread Ulrich Holeschak
Hello, thanks for the long answer. Now i have already my solution coming to my by the following posting: - Start Mail Perlish datatypes Just to scratch an itch I just wrote Devel::DataType. Get it at http://www.greentechnologist.org/perl/Devel-DataType-0.01.tar.gz. I

Re: Send email in ActivePerl using SMTP

2002-06-12 Thread csaba . raduly
On 06/06/2002 22:00:09 Yi Zhang wrote: I tried the following to use SMTP to send email: use Net::SMTP; $optServer = 'luxn.com'; $optFrom = [EMAIL PROTECTED]; $optTo = [EMAIL PROTECTED]; $smtp = Net::SMTP - new (luxn.com); $smtp - mail($optFrom); [snip rest of script] What might be wrong

Session Timeout in CGI

2002-06-12 Thread parvez
Hi gurus, I am using CGI and want to timeout the session, if the user has not used the system for say abt 30 mins. I have tried the 'expire' option in cookie, but it forcibly 'undefs' my session after every 30 mins. I want the session to timeout if the system is idle for abt 30 mins. Thanx

Re: [Perl-unix-users] Session Timeout in CGI

2002-06-12 Thread Simon Oliver
parvez wrote: I am using CGI and want to timeout the session, if the user has not used the system for say abt 30 mins. I have tried the 'expire' option in cookie, but it forcibly 'undefs' my session after every 30 mins. I want the session to timeout if the system is idle for abt 30

Sorry (was RE: Regular Expression Help)

2002-06-12 Thread Lee Goddard
My fault: I'm sorry. I avoid usenet for the same reasons. I apologise. But really, such use of English makes me wonder about possible use of Perl. However, I must say that it is not the whole group, just me. Lee At 04:19 12/06/2002, Allegakoen, Justin Devanandan wrote: Lets not point fingers

Re: Parse two files for differences.

2002-06-12 Thread Troy D. Tyson, II
have you tried the 'eq' function instead of the 'cmp' function in your if statement -Original Message- From: Emerson, Robert D GS09 [mailto:[EMAIL PROTECTED]] Sent: Donnerstag, 6. Juni 2002 15:32 To: Perl-Win32-Users (E-mail) Subject: Parse two files for differences. Good

Net:::SMTP

2002-06-12 Thread Nigel
The previous thread lead me to look at Net::SMTP::Server. I just want to set up a simple relay on my PC, so thatI don't have to rely on my ISP every time I want to send some mail. I tried the example given in the POD (reproduced below). It creates a connection on port 25, and accepts mail

RE: Packages Included and not

2002-06-12 Thread Michael D. Smith
I just tried: useWin32::OLE; And I got two errors, package strict wasn't found nor was package vars. A search of C drive found neither on my computer, so they weren't just not found, they aren't here. Does this happen a lot, that packages that are included in the ActiveState distribution,

Re: Packages Included and not

2002-06-12 Thread Sisyphus
- Original Message - From: Michael D. Smith [EMAIL PROTECTED] I just tried: useWin32::OLE; And I got two errors, package strict wasn't found nor was package vars. A search of C drive found neither on my computer, so they weren't just not found, they aren't here. Does this

Re: Send email in ActivePerl using SMTP

2002-06-12 Thread Jim Hill
$Bill Luebkert in [EMAIL PROTECTED]: [EMAIL PROTECTED] wrote: I tried the following to use SMTP to send email: use Net::SMTP; $optServer = 'luxn.com'; $optTo = [EMAIL PROTECTED]; Can't call method mail on an undefined value at mailtest.pl line 8 Start by escaping

Re: Parse two files for differences.

2002-06-12 Thread Michael D. Smith
When you find it you have to break out of there. Maybe you left out some code you thought was obvious but what you are showing me needs a way out. Label1: foreach $line1 (@array1){ foreach $line2 (@array2) { if ($line1 eq $line2) {print ...; next Label1; } # actually you're

(no subject)

2002-06-12 Thread Sean Ahern
Anyone know where I can get a working ppm for Win32::Iperfmon, or a similar package? (the suppsoed repository at idnopheq.perlmonk.org doesnt appear to work.) Thanks --- Sean Ahern, Computing Support Officer, School of Television and Imaging, Duncan of

Re: Send email in ActivePerl using SMTP

2002-06-12 Thread Lee Goddard
For someone: untested should work. use Mail::Sender; sub sendmail { my ($subject,$from, $rep, $to, $cc) = (@_); my $sender = new Mail::Sender { smtp = $SMTP_SERVER_NAME, from = $MAIL_RETURN_ADDRESS, }; die $Mail::Sender::Error if not ref $sender; $_ = $sender-MailMsg({

RE: Packages Included and not

2002-06-12 Thread Lee Goddard
At 11:48 12/06/2002, Michael D. Smith wrote: I just tried: useWin32::OLE; And I got two errors, package strict wasn't found nor was package vars. A search of C drive found neither on my computer, so they weren't just not found, they aren't here. 'stirct' and 'vars' are pragma, part of the