Re: Read file binary
May be this can help perldoc -f read c u --- Harald Wopenka [EMAIL PROTECTED] a écrit : Hi there, I was unable to read a file bytewise (or pieces - offset/length). I played around with +, binmode, seek, write, etc. but it didn't work. Please post (or send) a little howto for me. Thanks in advance, Harry ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs = Mail : mailto:[EMAIL PROTECTED] WEBSITE : http://pointer2002.free.fr/ Linux the OS to beat. Java ... 100% pure portable did you try JDK1.4 ?. ___ Do You Yahoo!? -- Une adresse @yahoo.fr gratuite et en français ! Yahoo! Mail : http://fr.mail.yahoo.com ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Win32/Unix File differences
John Drabinowicz [EMAIL PROTECTED] wrote: I just got the O'Reilly Learning Perl on Win32 Systems book and have a question about using the directory/file structure. This book says that I can walk the directory as shown is example 1, [using globbing] but I have been using example 2 [which uses the glob () function]. Now I have Cygwin installed on my computer and was wondering if example 2 works because of that, or if it just works on Win32 systems. I'm trying to keep the code as generic as possable, and would like the code to work on both platforms. Snipexamples removed/snip The glob function works regardless of Cygwin. It's part of base Perl, though it _can_ be overridden (and I think typically is, by File::Glob, though you can use File::DosGlob if you like). perldoc perlwin32 is my authority for this. I hope I'm making some sense ;- Am _I_ a judge of this? Your question makes perfect sense to me. You may be displaying a touch of paranoia, but frankly, I think The World Would Be A Better Place if more people had your particular brand of paranoia. Tom Wyant This communication is for use by the intended recipient and contains information that may be privileged, confidential or copyrighted under applicable law. If you are not the intended recipient, you are hereby formally notified that any use, copying or distribution of this e-mail, in whole or in part, is strictly prohibited. Please notify the sender by return e-mail and delete this e-mail from your system. Unless explicitly and conspicuously designated as E-Contract Intended, this e-mail does not constitute a contract offer, a contract amendment, or an acceptance of a contract offer. This e-mail does not constitute a consent to the use of sender's contact information for direct marketing purposes or for transfers of data to third parties. Francais Deutsch Italiano Espanol Portuges Japanese Chinese Korean http://www.DuPont.com/corp/email_disclaimer.html ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Win32/Unix File differences
Title: Win32/Unix File differences
Now *I* may
not be making any sense, but it seems to me that Example 1 is globbing as well,
but it's only going to get file/directory entries that start with
anything and end in "test.pl". It's certainly not code that I
would use to walk a directory tree.
-Original Message-From: John Drabinowicz
[mailto:[EMAIL PROTECTED]]Sent: Tuesday, October 08, 2002 10:37
AMTo: [EMAIL PROTECTED]Subject:
Win32/Unix File differences
Hi Gang,
I'm curious,
I just got the O'Reilly "Learning Perl on Win32
Systems" book and have a question about using the directory/file structure.
This book says that I can walk the directory as
shown is example 1, but I have been using example 2.
Now I have Cygwin installed on my computer and was
wondering if example 2 works because of that, or if it just works on Win32 systems. I'm trying to keep the code as
generic as possable, and would like the
code to work on both platforms.
I hope I'm making some sense ;-
===Example
1 foreach $file ( *test.pl ) { print
"$file\n"; }
===Example
2 foreach $file ( glob "*.*" ) { print
"$file\n"; }
Thanks,
John D.
Re: LWP discrimination?
On Tue, 8 Oct 2002, Paul Flint wrote:
Magnus Hjorleifsson Jr [EMAIL PROTECTED] wrote:
Are you just going out to the web site to see if it is up and running maybe
using an http get?
No. I'm using a HEAD request. But I admit I have no knowledge of the
http protocol or the transaction beyond the fact that it is there. I've
set some other variables as suggested in the LWP documentation, but I
don't know if they are causing this behavior. Here is what I have.
if ($q-param('offsite')){
# Create a user agent object
my $ua = LWP::UserAgent-new;
$ua-agent(Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90));
$ua-timeout($timeout);
foreach my $link (keys %off_site_links){
# Create a request
my $req = HTTP::Request-new(HEAD = $link);
$req-content_type('application/x-www-form-urlencoded');
$req-content('match=wwwerrors=0');
# Pass request to the user agent and get a response back
my $res = $ua-request($req);
# Check the outcome of the response
if ($res-is_success) {
# make the href link
$live_links .= qq[
p
a href=$link target=_blank$link/a
];
# split the tab separated page paths and join with a br / tag
$live_links .= join('br /', split(/\t/, $off_site_links{$link})) . '/p';
$live_link_count++;
} else {
# make the href link
$dead_links .= qq[
p
a href=$link target=_blank$link/a
];
# split the tab separated page paths and join with a br / tag
$dead_links .= join('br /', split(/\t/, $off_site_links{$link})) . '/p';
$dead_link_count++;
} # if success
} # end foreach
} # offsite
Exactly how much _content_ do you expect to get back with a HEAD
request? Try a GET instead.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
multicasting on win32
Has anyone written a multicast app on Win32? I am attempting to create a chat-like app to run on WinNT and Win2K. Microsoft states that WinNT can receive multicast packets as a client, http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q179982; and multicasting is supportted on Win2K. I have downloaded IO-Interface-0.97 and IO-Socket-Multicast-0.21 modules but when attempting to build them, nmake aborts complaining that ioctl.h is missing. Where can I get that file? Can anyone offer advice? James ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: multicasting on win32
Title: RE: multicasting on win32 Actually I know that someone had wriiten a IM type application that runs on WinNT and 2k it is written in VB though The name of the App is CryptIM if you do a google search you should be able to find it Magnus -Original Message- From: James McDermet [mailto:[EMAIL PROTECTED]] Sent: Tuesday, October 08, 2002 10:20 AM To: [EMAIL PROTECTED] Subject: multicasting on win32 Has anyone written a multicast app on Win32? I am attempting to create a chat-like app to run on WinNT and Win2K. Microsoft states that WinNT can receive multicast packets as a client, http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q179982& and multicasting is supportted on Win2K. I have downloaded IO-Interface-0.97 and IO-Socket-Multicast-0.21 modules but when attempting to build them, nmake aborts complaining that ioctl.h is missing. Where can I get that file? Can anyone offer advice? James ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Adding a Timer in Win32::GUI
Okay I have been attempting to add a timer to a message box and have been unsuccessful in being able to do so. I want to have it so that after the message box displays the user has 10 seconds to either click YES or NO with default as YES. If after 10 seconds the user has failed to make a selection YES will be automatically choosen. can someone help me out with this. Down below is some code that I have from the script. my $choice = GUI::MessageBox(GUI::GetForegroundWindow(), Windows could not finish a system task and needs to restart.\n\nNOTE: You MUST reboot Windows so that this task may finish.\nReboot Windows now?, Error, MB_YESNO | MB_ICONINFORMATION | MB_DEFBUTTON1); $Window-Addtimer( Timer, 1 ); #Need advice as to how to get the correct value for $Window Does anyone know what else I need to add to get this to work? Thanks for your help * Eric Hawley, Network Services Intern * Office of Information Technology * Ohio Department of Natural Resources * Phone: (614) 265-1028 * Mailto:[EMAIL PROTECTED] ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Adding a Timer in Win32::GUI
At 14:53 2002-10-08 -0400, Hawley, Eric wrote:
Okay I have been attempting to add a timer to a message box and have been
unsuccessful in being able to do so. I want to have it so that after the
message box displays the user has 10 seconds to either click YES or NO with
default as YES. If after 10 seconds the user has failed to make a selection
YES will be automatically choosen. can someone help me out with this. Down
below is some code that I have from the script.
I would be surprised it that compiled and ran. This does.
#!/usr/bin/perl -w
use strict;
use Win32::GUI;
my $winDummy = Win32::GUI::Window-new(-name = winApp); #Create, but
never Show() it
my $timTimeout = $winDummy-AddTimer( timTimeout, 1 );#10 sec
my $choise = Win32::GUI::MessageBox($winDummy, q {Windows could not finish
a system task and needs to restart.
NOTE: You MUST reboot Windows so that this task may finish.
Reboot Windows now?},
Error, MB_YESNO | MB_ICONINFORMATION | MB_DEFBUTTON1);
print choice: ($choise)\n;
shutdownWindows() if($choise == 6); #6 seems to be YES
sub timTimeout_Timer {
print Timeout...\n;
#Disable the timer, otherwise it will trigger this event
#handler again
$timTimeout-Kill();
#Never to return
shutdownWindows();
}
sub shutdownWindows {
print do your Windows reboot stuff here, then exit the app\n;
#This is the downside. You have to exit the Perl script
#for the dialog box to disappear (I think, please prove me
#wrong someone!).
exit(0);
}
__END__
Interesting note: We never call Win32::GUI::Dialog(), and the timer still
works.
An alternative would be to create the dialog box yourself. That way it's
like any Win32::GUI::Window, and you can close it the normal way. That's
what I'd do, but if this brute force solution works for you...
/J
-- --- -- -- -- -- - - -
Johan LindströmSourcerer @ Boss Casinos [EMAIL PROTECTED]
Latest bookmark: SQLite An Embeddable SQL Database Engine
http://www.hwaci.com/sw/sqlite/
dmoz (1 of 6): ...puters/Software/Configuration_Management/Tools/ 26
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Adding a Timer in Win32::GUI
Title: RE: Adding a Timer in Win32::GUI
Assuming $choice is your message box, perhaps something like this would work?
### untested
sub No_Click
{
$choice-Hide();
$Window-Timer-Kill();
### do something else
return 1;
}
sub Timer
{
if ($choice-IsVisible)
{
$choice-Hide();
$Window-Timer-Kill();
Yes();
return 1;
}
else
{
return 0;
}
}
sub Yes_Click
{
Yes();
}
sub Yes
{
### Do something... (reboot?)
return 1;
}
-Original Message-
From: Hawley, Eric [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 08, 2002 14:53
To: '[EMAIL PROTECTED]'
Subject: Adding a Timer in Win32::GUI
Okay I have been attempting to add a timer to a message box
and have been
unsuccessful in being able to do so. I want to have it so
that after the
message box displays the user has 10 seconds to either click
YES or NO with
default as YES. If after 10 seconds the user has failed to
make a selection
YES will be automatically choosen. can someone help me out
with this. Down
below is some code that I have from the script.
my $choice = GUI::MessageBox(GUI::GetForegroundWindow(),
Windows could not
finish a system task and needs to restart.\n\nNOTE: You MUST
reboot Windows
so that this task may finish.\nReboot Windows now?, Error,
MB_YESNO |
MB_ICONINFORMATION | MB_DEFBUTTON1);
$Window-Addtimer( Timer, 1 ); #Need advice as to how
to get the
correct value for $Window
Does anyone know what else I need to add to get this to work?
Thanks for your help
* Eric Hawley, Network Services Intern
* Office of Information Technology
* Ohio Department of Natural Resources
* Phone: (614) 265-1028
* Mailto:[EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Adding a Timer in Win32::GUI
Eric,
Here is another way to do This:
use Win32::OLE;
$vbOKOnly = 0;
$vbYesNo = 4;
$vbCritical = 16;
$vbWarning = 48;
$vbInformation = 64;
$WSHShell = Win32::OLE-CreateObject('Wscript.Shell');
$Return = $WSHShell-Popup(Windows could not finish a system task and needs
to restart.\n\nNOTE: You MUST reboot Windows so that this task may
finish.\nReboot Windows now?, 10, Error, $vbCritical + $vbYesNo);
print $Return;
James Krummel
-Original Message-
From: Hawley, Eric [EMAIL PROTECTED]
To: '[EMAIL PROTECTED]'
[EMAIL PROTECTED]
Subject: Adding a Timer in Win32::GUI
Date: Tue, 8 Oct 2002 14:53:02 -0400
Okay I have been attempting to add a timer to a message box and have been
unsuccessful in being able to do so. I want to have it so that after the
message box displays the user has 10 seconds to either click YES or NO with
default as YES. If after 10 seconds the user has failed to make a selection
YES will be automatically choosen. can someone help me out with this. Down
below is some code that I have from the script.
my $choice = GUI::MessageBox(GUI::GetForegroundWindow(), Windows could not
finish a system task and needs to restart.\n\nNOTE: You MUST reboot Windows
so that this task may finish.\nReboot Windows now?, Error, MB_YESNO |
MB_ICONINFORMATION | MB_DEFBUTTON1);
$Window-Addtimer( Timer, 1 ); #Need advice as to how to get the
correct value for $Window
Does anyone know what else I need to add to get this to work?
Thanks for your help
* Eric Hawley, Network Services Intern
* Office of Information Technology
* Ohio Department of Natural Resources
* Phone: (614) 265-1028
* Mailto:[EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
msvc++ and environment variables
Hi, Not strictly a perl issue but: My vcvars32.bat file (which sets the environment for compilation) contains some lines like these: set path= various folders;%path% set include= other folders;%include% set lib = different folders;%lib% I can get a listing of the folders in the path by simply entering 'path' at a command prompt. But both 'include' and 'lib' (when entered at a command prompt) are not recognized as an internal or external command, operable program or batch file. How can I obtain a listing of the folders in 'lib' and 'include' ? This has been puzzling me for some time . thought I would have stumbled over the answer by now . but I haven't :-( Cheers, Rob ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: msvc++ and environment variables
Title: RE: msvc++ and environment variables try set from a command prompt that will output every environment varible... -Original Message- From: Sisyphus [mailto:[EMAIL PROTECTED]] Sent: Tuesday, October 08, 2002 1:59 PM To: [EMAIL PROTECTED] Subject: msvc++ and environment variables Hi, Not strictly a perl issue but: My vcvars32.bat file (which sets the environment for compilation) contains some lines like these: set path= various folders;%path% set include= other folders;%include% set lib = different folders;%lib% I can get a listing of the folders in the path by simply entering 'path' at a command prompt. But both 'include' and 'lib' (when entered at a command prompt) are not recognized as an internal or external command, operable program or batch file. How can I obtain a listing of the folders in 'lib' and 'include' ? This has been puzzling me for some time . thought I would have stumbled over the answer by now . but I haven't :-( Cheers, Rob ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: msvc++ and environment variables
Hi Rob, At the command prompt type 'set' and it will include the parameters you are looking for. If you want more information, use Dave Roth's excellent Win32::AdminMisc module to access all the other parameters of the Environment. This module also gives you the ability to differentiate between the 'User' and 'System' level variables and the ability to set or delete either. Tom Gibb -Original Message- From: Sisyphus [mailto:[EMAIL PROTECTED]] Sent: Tuesday, October 08, 2002 12:59 PM To: [EMAIL PROTECTED] Subject: msvc++ and environment variables Hi, Not strictly a perl issue but: My vcvars32.bat file (which sets the environment for compilation) contains some lines like these: set path= various folders;%path% set include= other folders;%include% set lib = different folders;%lib% I can get a listing of the folders in the path by simply entering 'path' at a command prompt. But both 'include' and 'lib' (when entered at a command prompt) are not recognized as an internal or external command, operable program or batch file. How can I obtain a listing of the folders in 'lib' and 'include' ? This has been puzzling me for some time . thought I would have stumbled over the answer by now . but I haven't :-( Cheers, Rob ___ 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
Re: Win32/Unix File differences
John Drabinowicz wrote: Hi Gang, I'm curious, I just got the O'Reilly Learning Perl on Win32 Systems book and have a question about using the directory/file structure. This book says that I can walk the directory as shown is example 1, but I have been using example 2. Now I have Cygwin installed on my computer and was wondering if example 2 works because of that, or if it just works on Win32 systems. I'm trying to keep the code as generic as possable, and would like the code to work on both platforms. If you want to be generic as possible - don't use globbing. Use either File::Find or opendir/readdir/closedir and a RE or grep to pick up/ignore the files you want/don't want. -- ,-/- __ _ _ $Bill Luebkert ICQ=162126130 (_/ / )// // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /-- o // // http://dbecoll.tripod.com/ (Free site for Perl) -/-' /___/__/_/_ Castle of Medieval Myth Magic http://www.todbe.com/ ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
setting From: using Mail::Send/Mailer
Hi Everyone, I'm just mucking about with Mail::Mailer Mail::Send basically becuase I need a simple lightweight SMTP mailer. The problem I have hit is that the From field is always postmaster@machine name I would however like to set this myself. I have looked over the perldoc for Mail::Mailer/Send and Net::SMTP, I've even looked over the SMTP.pm module, and can't see where I can either set the From: or how it's setting it to postmaster. Can anyone enighten me on this? Thanks, Pete. -- Due to a lack of imagination, this signature will remain under construction indefinitely. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: setting From: using Mail::Send/Mailer
* Edgington, Jeff ([EMAIL PROTECTED]) wrote: I use Mail::SendMail and the from works fine on it. Yeah, I could also have used MIME::Lite too.. I was thinking that the MailTools package was like a default install for activestates perl.. which is why I was using Mail::Send Mail::SendMail is another module that I could use How do I find out what modules come with a release of Activestates perl The reason for this, is that it would be easier to just tell someone to install AS perl and then the script would jsut work.. rather than having to install another module... however easy it is. ;) Regards, Pete. -- Due to a lack of imagination, this signature will remain under construction indefinitely. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: msvc++ and environment variables
- Original Message - From: FARRINGTON, RYAN [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, October 09, 2002 6:06 AM Subject: RE: msvc++ and environment variables try set from a command prompt that will output every environment varible... Thanks Ryan. (I'm sure I tried that at some stage and decided *it* didn't work either .. but it does work :-) Thanks for the Admin::Misc pointer, too, Tom. Cheers, Rob Cheers, Rob ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: setting From: using Mail::Send/Mailer
Hi,
I dont know all about Net::SMTP but following snipit has always worked for
me.
I get message with From: To: and Subject:
JohnR
use Net::SMTP;
$mailserver='SMTPserver-or-IP';
$mail = Net::SMTP-new($mailserver,Timeout = 120,Debug = 1,);
#mail is authorised username most accept anonymous blank
$mail-mail();
$mail-to('[EMAIL PROTECTED]');
$mail-data();
$mail-datasend(From: Mailscript\nTo: Sys Admin\nSubject: Testmessage\n);
$mail-datasend(\n);
$mail-datasend(@message);
$mail-dataend();
-Original Message-
From: Peter Lavender [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, October 09, 2002 11:16 AM
To: Perl Win32 Users
Subject: setting From: using Mail::Send/Mailer
Hi Everyone,
I'm just mucking about with Mail::Mailer Mail::Send basically becuase
I need a simple lightweight SMTP mailer.
The problem I have hit is that the From field is always
postmaster@machine name
I would however like to set this myself. I have looked over the
perldoc for Mail::Mailer/Send and Net::SMTP, I've even looked over the
SMTP.pm module, and can't see where I can either set the From: or how
it's setting it to postmaster.
Can anyone enighten me on this?
Thanks,
Pete.
--
Due to a lack of imagination,
this signature will remain
under construction indefinitely.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
##
Disclaimer
If this e-mail has been sent to you in error, please notify
Océ-Australia Limited immediately and delete this e-mail from
your system.
Any views expressed in this e-mail are those of the individual
sender and may not necessarily reflect the views of
Océ-Australia Limited.
##
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Win32::OLE question and outlook
Hi, I have gotten *somewhat* good at using this for outlook... I can get many MailItem functions to work: reply, move, delete, etc. But Forward doesn't. This is the error I get: Usage: Win32::OLE::Forward(self, method) at test.pl line 273.\n This works my $newmsg = $origmsg-Reply(); But this doesn't (see error above) my $newmsg = $origmsg-Forward(); So I know the rest of the setup code is correct. I haven't seen any documentation that the Forward() function takes any parameters... And I have no idea how to begin debugging this... Any ideas? HERE IS A VB EXAMPLE FWIW... Private Sub myOlItems_ItemAdd(ByVal Item As Object) ' If it's currently not between 9:00 A.M. and 5:00 P.M. If Time() #9:00:00 AM# Or Time() #5:00:00 PM# Then ' Check to make sure it is an Outlook mail message, otherwise ' subsequent code will probably fail depending on what type ' of item it is. If TypeName(Item) = MailItem Then ' Forward the item just received Set myForward = Item.Forward ' Address the message myForward.Recipients.Add [EMAIL PROTECTED] ' Send it myForward.Send End If End If End Sub _ MSN Photos is the easiest way to share and print your photos: http://photos.msn.com/support/worldwide.aspx ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
'require Dynaloader;'
Hi, Can someone tell me the circumstances under which 'MyModule.pm' should 'require Dynaloader' ? I've just built a bigint/primes module that links in the bigint/primes functions from openSSL (libeay32.lib). It also needs to load libeay32.dll. Seems to me *that* would be the circumstance under which I 'require Dynaloader;' - but I neglected to do that - and yet the module still works fine - though I think 'libeay32.dll' has to be in my path. So . when should I 'require Dynaloader' and what will it do for me ? Cheers, Rob ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: setting From: using Mail::Send/Mailer
Hi
You can use Mail::Sender;
use Mail::Sender;
$sender = new Mail::Sender(
{
from ='AVupdate_HOT.mycompay.com',
smtp ='x.x.x.x'
});
Regards
SubbaRao
-Original Message-
From: Peter Lavender [SMTP:[EMAIL PROTECTED]]
Sent: Wednesday, October 09, 2002 6:46 AM
To: Perl Win32 Users
Subject: setting From: using Mail::Send/Mailer
Hi Everyone,
I'm just mucking about with Mail::Mailer Mail::Send basically becuase
I need a simple lightweight SMTP mailer.
The problem I have hit is that the From field is always
postmaster@machine name
I would however like to set this myself. I have looked over the
perldoc for Mail::Mailer/Send and Net::SMTP, I've even looked over the
SMTP.pm module, and can't see where I can either set the From: or how
it's setting it to postmaster.
Can anyone enighten me on this?
Thanks,
Pete.
--
Due to a lack of imagination,
this signature will remain
under construction indefinitely.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
**
This email (including any attachments) is intended for the sole use of the
intended recipient/s and may contain material that is CONFIDENTIAL AND
PRIVATE COMPANY INFORMATION. Any review or reliance by others or copying or
distribution or forwarding of any or all of the contents in this message is
STRICTLY PROHIBITED. If you are not the intended recipient, please contact
the sender by email and delete all copies; your cooperation in this regard
is appreciated.
**
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
