I don't know whether I had a brand new idea or whether this has already been done.
I have the requirement to generate several report mails. For this I collect some data from some input files and generate mails to certain persons based on this data. The content of this mail is generated by Template::Toolkit2 data.
So what I required is some configuration information for:
- What are the input files
- What are the template files
- Which mail addresses do I have (needed to match names to mail addresses)
My first intention was to use one of the Config::XXX modules. But when I came to the mail templates, I remembered something about T::T2: First level variables are copied and can't be changed, but the structures they point to can be changed. So my T::T2 mail templates look something like this:
[%-
Mail.from= 'my.sender@ddress';
Mail.subject= 'This is your requested report';
Mail.cc= [ 'someone.in@cc',
'someoneelse@cc',
];
%]
here the body comes
So when invoking the $tt->process, I supply in my variables the "Mail" variable, pointing to an empty hash, and I will receive all the values set in the template:
my $vars= {
Mail => {},
# additionally my other variables
};
my $output= '';
$tt->process( $template, $vars, \$output) or die $tt->error();
# Here I now have:
# $vars->{'Mail'}->{'subject'} etc.
Now I use this approach additionally for my configuration file:
[%-
# (String) Name of the main report file
Files.defects= 'defect.htm';
# (Hash) additional data files and what to do with asignee
# Structure <Name of the data file> => { 'recipient' => ('to'|'no brea
+ch to'|'cc') }
Files.datafiles ={
'File1.csv' => { recipient => 'to' },
'another.csv' => { recipient => 'no breach to'},
'More.csv' => { recipient => 'cc' },
};
# (Array) List of all mailtemplate file names
Files.templates=[
'report1.tt',
'report2.tt',
];
# (Hash) List of all known e-mail adresses
# Structure: <Name as in datafile> => <e-mail @dress>
Users.list={
'Horst Porst' => 'Horst.Porst@my.do.main',
'Frank Schrank' => 'Frank.Schrank@my.do.main',
'Hans Dampf' => 'Hans.Dampf@my.do.main',
'Ijon Tichy' => 'Ijon.Tichy@my.do.main',
};
%]
The only things I do is then to invoke that template:
my $config_file= 'sendreport.conf';
my $config= {
Users => {},
Files => {},
};
$tt->process($config_file, $config) or die $tt->error();
After that I have all my data in the %$config hash.
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.