Dear Perl Experts,
I'm trying to write something that would send an email if there was an error
message.
But the below script is not working when I do a test run.
Can you please advise on what I could be doing wrong?
#!/usr/bin/perl -w
use Net::SMTP;
use Socket;
use Strict;
sendmail();
sub sendmail {
my $smtpserver = 'jerryqa';
my $smtpuser = 'liza';
my $fromemail = '[EMAIL PROTECTED]';
my $smtp = Net::SMTP-> new($smtpserver, Timeout => 10);
$smtp-> mail($smtpuser);
$smtp-> to('[EMAIL PROTECTED]');
$smtp-> data();
$smtp-> datasend("To: [EMAIL PROTECTED]");
$smtp-> datasend("From: [EMAIL PROTECTED]");
$smtp-> datasend("\n");
$smtp-> datasend("test\n");
$smtp-> dataend();
$smtp-> quit;
};
Thanks,
Liza
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
[EMAIL PROTECTED]
Sent: Monday, July 04, 2005 3:05 PM
To: [email protected]
Subject: Perl-Win32-Users Digest, Vol 18, Issue 4
Send Perl-Win32-Users mailing list submissions to
[email protected]
To subscribe or unsubscribe via the World Wide Web, visit
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
or, via email, send a message with subject or body 'help' to
[EMAIL PROTECTED]
You can reach the person managing the list at
[EMAIL PROTECTED]
When replying, please edit your Subject line so it is more specific
than "Re: Contents of Perl-Win32-Users digest..."
Today's Topics:
1. RE: Notify me when upload complete.???? (Charles Maier)
----------------------------------------------------------------------
Message: 1
Date: Sun, 3 Jul 2005 20:51:32 -0400
From: "Charles Maier" <[EMAIL PROTECTED]>
Subject: RE: Notify me when upload complete.????
To: "'Chris Wagner'" <[EMAIL PROTECTED]>, "'Perl-Win32-Users
Mailing List'" <[email protected]>
Message-ID: <[EMAIL PROTECTED]>
Content-Type: text/plain; charset="us-ascii"
Yes.... I would like to do that!! However...Remember when a webserver
script runs... I don't think it has the rights of the logged-in user. I
tried a few things and don't know how to get by this..... Which is why I
posed this question ;o))
I am using httpd (from www.omnichron.ca) ... But I don't think this is
important to the problem. I run AIM messenger and I don't want to load
yet another annoying TSR.
Thanks
Chuck
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Chris Wagner
Sent: Sunday, July 03, 2005 2:20 AM
To: Perl-Win32-Users Mailing List
Subject: Re: Notify me when upload complete.????
..
You can have the script popup a Windows messaging message on ur
computer. Of course depends on if you have that enabled and what the
webserver is. Another possibility is to send an email to something like
Yahoo messenger that instantly notifies u of new mail. If the webserver
is also ur XP computer then u can just have the script itself open a Tk
dialog with some message in it.
At 05:53 PM 7/2/05 -0400, Charles Maier wrote:
>have some sort of "instant notification" that they have sent me
>something. The obvious thing is to send an email... But I am hoping I
>can get something more 'instant' fired from the upload script.
--
REMEMBER THE WORLD TRADE CENTER ---=< WTC 911 >=--
"...ne cede males"
00000100
_______________________________________________
Perl-Win32-Users mailing list [email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
------------------------------
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
End of Perl-Win32-Users Digest, Vol 18, Issue 4
***********************************************
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
