Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re^3: Sending Email to a list of people using Mail::Sender

by wfsp (Abbot)
on Aug 14, 2011 at 15:45 UTC ( #920231=note: print w/replies, xml ) Need Help??

in reply to Re^2: Sending Email to a list of people using Mail::Sender
in thread Sending Email to a list of people using Mail::Sender

I think what I would do is first write a small test script to see if the config file was being read correctly. Something like (using your config file)
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $cnf_file = q{config.txt}; my %cnf = read_config($cnf_file); print Dumper \%cnf; sub read_config { my $file = shift; open my $fh, q{<}, $file or die qq{cant open *$file* to read: $!}; my %cnf; while (my $line = <$fh>){ chomp $line; next unless $line; next if $line =~ /^#/; my ($key, $value) = split /\s+=\s+/, $line; if ($key eq q{To}){ push @{$cnf{$key}}, $value; } else{ $cnf{$key} = $value; } } return %cnf; }
$VAR1 = { 'MediumAlarmThreshold' => '2', 'SMTP_Server' => '', 'LowAlarmThreshold' => '3', 'LogRotateHour' => '0', 'To' => [ '', '' ], 'HighAlarmThreshold' => '1', 'From' => '' };
As you can see, the To key holds an array ref. Which is, apparently, what Mail::Sender requires.

If the output is indeed as you expect I would consider a second test script which just sends a dummy email to those email addresses.

This approach has many advantages. You take on one problem at a time (which is my top limit :-) and you end up with a collection of subs you are confident with. Also, if you hit a particular snag with one of the subs you have a simple script that you can post here and which monks can download and run. This approach, in my experience, will result in a lot more help and solutions.

Try the script above. If it appears ok, write your test_send_email and see if that's ok.

If there are still snags, you know where we live. :-)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://920231]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (7)
As of 2018-06-19 16:58 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (114 votes). Check out past polls.