Your script looks like it would send one email per ldap suffix that has a problem - and that's the issue right?
I think you are wanting one email containing a list of all the failing suffixes?
In which case, try this:
(Untested)
BTW, The linefeed between errors} and ${i}" is not accidental, you want that in there
I am hoping someone can help me with this one.
I am writing a ksh script on Solaris. I want to read in host names and some other info from a file, do an "rsh host 'shutdown'" (or any uname for now until I get it working), and then be given some options. The problem is I am using while read... (2 Replies)
Hi,
Can anyone please help me: i'm trying to read a file with directory-names , then go to that directory and read another (output) file to perform some tasks per line (second read line in the part of script below).
The problem is that after the nested while loop has finished, the first while... (7 Replies)
Hi all!
I'm really hoping you can help me out here; now i have searched and searched and have at least worked out that you can't have a nested if statement with a 'done' in it (as i have) as you're killing the parent before the child.
So here's what i have, and here's hoping someone can help... (2 Replies)
I'm trying to write case statements with 'if statements' embedded inside of them. I'm using the korn shell but it's not functioning.
If I want to see if a string exists in a file and then perform an action, what would be the best way to do this?
For file "asg51fin" to delete a line if a... (1 Reply)
I'm just having a bit of trouble running this code. It tells me that there's a syntax error on line 29. Any help appreciated.
#!/usr/bin/perl
#
# Phone Book Application
#
%phonebook = (
"Wayne", '34687368',
"Home", '378643287',
"Work", '017374637',
"School",... (2 Replies)
Hi,
Below is my script in which i am using nested while loop to read two files and move the files to a remote server.
My issue is that the 2nd while loop doesn't stop executing and it keeps on executing.
Can someone please let me know where i have gone wrong.
myFile=$ESER_TEST_FILES
... (2 Replies)
hi,
this is my script #!/bin/ksh
cat temp_file.dat | while read line
do
read test
if ]; then
break
else echo "ERROR"
fi
done
when i execute this code , the script does wait for the user input . it directly prints "ERROR" and terminates after the no. of times as there... (3 Replies)
I need to check if an entry input by the user is in a file. If so, I need to run a command, and if it does not exist then it should output entry does not exist.
So I have so far...
echo "Enter record:"
read record
//command || //command
Can I use an if statement to do this? (3 Replies)
greetings,
the following code isn't working as i expect it to. the first dbl brackets do but the second set gets ignored. ie: if i'm on t70c6n229 it echoes "Something" and i expect it not to. what am i missing?
if " ]] || " ]]; then
echo "Something"
fi
thanx! (9 Replies)
While working on awk programming, i found that it doesn't understand 'read' statement. Then what's the use of 'continue' and 'break' statement in awk.
For ex:
awk '{k=1; while (k<10) {print $0; k++}}' emp.lst
Now, please say if I want to put the logic that after priting 1 line, it will ask for... (13 Replies)
Discussion started by: ravisingh
13 Replies
LEARN ABOUT DEBIAN
email::send::test
Email::Send::Test(3pm) User Contributed Perl Documentation Email::Send::Test(3pm)NAME
Email::Send::Test - Captures emails sent via Email::Send for testing
SYNOPSIS
# Load as normal
use Email::Send;
use Email::Send::Test;
# Always clear the email trap before each test to prevent unexpected
# results, and thus spurious test results.
Email::Send::Test->clear;
### BEGIN YOUR CODE TO BE TESTED (example follows)
my $sender = Email::Send->new({ mailer => 'Test' });
$sender->send( $message );
### END YOUR CODE TO BE TESTED
# Check that the number and type (and content) of mails
# matched what you expect.
my @emails = Email::Send::Test->emails;
is( scalar(@emails), 1, 'Sent 1 email' );
isa_ok( $emails[0], 'Email::MIME' ); # Email::Simple subclasses pass through
DESCRIPTION
Email::Send::Test is a driver for use in testing applications that use Email::Send to send email.
To be able to use it in testing, you will need some sort of configuration mechanism to specify the delivery method to be used, or some
other way that in your testing scripts you can convince your code to use "Test" as the mailer, rather than "Sendmail" or another real
mailer.
How does it Work
Email::Send::Test is a trap for emails. When an email is sent, it adds the emails to an internal array without doing anything at all to
them, and returns success to the caller.
If your application sends one email, there will be one in the trap. If you send 20, there will be 20, and so on.
A typical test will involve doing running some code that should result in an email being sent, and then checking in the trap to see if the
code did actually send out the email.
If you want you can get the emails out the trap and examine them. If you only care that something got sent you can simply clear the trap
and move on to your next test.
The Email Trap
The email trap is a simple array fills with whatever is sent.
When you send an email, it is pushed onto the end of the array. You can access the array directly if you wish, or use the methods provided.
METHODS
send $message
As for every other Email::Send mailer, "send" takes the message to be sent.
However, in our case there are no arguments of any value to us, and so they are ignored.
It is worth nothing that we do NOTHING to check or alter the email. For example, if we are passed "undef" it ends up as is in the trap. In
this manner, you can see exactly what was sent without any possible tampering on the part of the testing mailer.
Of course, this doesn't prevent any tampering by Email::Send itself :)
Always returns true.
emails
The "emails" method is the preferred and recommended method of getting access to the email trap.
In list context, returns the content of the trap array as a list.
In scalar context, returns the number of items in the trap.
clear
The "clear" method resets the trap, emptying it.
It is recommended you always clear the trap before each test to ensure any existing emails are removed and don't create a spurious test
result.
Always returns true.
deliveries
This method returns a list of arrayrefs, one for each call to "send" that has been made. Each arrayref is in the form:
[ $mailer, $email, @rest ]
The first element is the invocant on which "send" was called. The second is the email that was given to "send". The third is the rest of
the arguments given to "send".
SUPPORT
All bugs should be filed via the CPAN bug tracker at
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Email-Send-Test <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Email-Send-Test>
For other issues, or commercial enhancement or support, contact the author.
AUTHORS
Current maintainer: Ricardo SIGNES, <rjbs@cpan.org>.
Original author: Adam Kennedy <cpan@ali.as>, <http://ali.as/>
COPYRIGHT
Copyright (c) 2004 - 2005 Adam Kennedy. All rights reserved. This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
perl v5.12.4 2011-08-31 Email::Send::Test(3pm)