944,112 Members | Top Members by Rank

Ad:
  • Perl Discussion Thread
  • Unsolved
  • Views: 2283
  • Perl RSS
Oct 24th, 2006
0

Automated FTP Sendmail Attempt

Expand Post »
Got a quick question.

I have created a simple automated FTP script that goes out and snags my file, then reads it and drops it into an array. Following that, I want for the script to send a mail out with the contents of array (the recipient and subject are static).

A few things I want to point out:
a) Intermediate at perl, so my code may not be the cleanest.
b) I am using postfix for MTA and it is functioning properly.

I have tried using both open(MAIL) and open(SENDMAIL) but when using these, I get a mail in my Dead Mail box on my mail server showing that the TO was not passed correctly, most likely due to my error...

Script below (MAIL section omitted, as its not working)
[code]
#!/usr/bin/perl
$dir = "autorpt";
$file = "AUTOPRT.log";

use Net::FTP;
my $host="*********";

$ftp=Net::FTP->new($host,Timeout=>340) or die "Can't connect";
$ftp->login("*****","*****") or die "Can't Login";
$ftp->cwd("$dir") or die "Can't CD";
$ftp->get("$file") or die "Can't Get";
$ftp->quit;

open(FILE, "$file") or die"Can't Open";
@msg = <FILE>;
close(FILE);
[code]

Any help or insight would be greatly appreciated.

Thanks,
William
Last edited by wdean; Oct 24th, 2006 at 2:08 pm. Reason: die("Can't Open"); to die"Can't Open";
Similar Threads
Reputation Points: 10
Solved Threads: 0
Newbie Poster
wdean is offline Offline
2 posts
since Oct 2006
Oct 24th, 2006
0

Re: Automated FTP Sendmail Attempt

Well, disregard this, got it to work.

My error was in the addressing on my print MAIL "To...

Where " should have been '.

Oh well, live and learn.
Reputation Points: 10
Solved Threads: 0
Newbie Poster
wdean is offline Offline
2 posts
since Oct 2006

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.
Message:
Previous Thread in Perl Forum Timeline: Updating a file: setting the offset
Next Thread in Perl Forum Timeline: Calling one Perl script from another - HELP!!!





About Us | Contact Us | Advertise | Acceptable Use Policy
Forum Index | Build Custom RSS Feed


Follow us on Twitter


© 2011 DaniWeb® LLC