perlmeditation
Skeeve
<p>
I don't know whether I had a brand new idea or whether this has already been done.
</p>
<p>
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.
</p>
<p>
So what I required is some configuration information for:
</p>
<ol>
<li>What are the input files</li>
<li>What are the template files</li>
<li>Which mail addresses do I have (needed to match names to mail addresses)</li>
</ol>
<p>
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:
</p>
<code>
[%-
Mail.from= 'my.sender@ddress';
Mail.subject= 'This is your requested report';
Mail.cc= [ 'someone.in@cc',
'someoneelse@cc',
];
%]
here the body comes
</code>
<p>
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:
<code>
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.
</code>
<p>
Now I use this approach additionally for my configuration file:
</p>
<code>
[%-
# (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 breach 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',
};
%]
</code>
<p>
The only things I do is then to invoke that template:
</p>
<code>
my $config_file= 'sendreport.conf';
my $config= {
Users => {},
Files => {},
};
$tt->process($config_file, $config) or die $tt->error();
</code>
<p>
After that I have all my data in the %$config hash.
</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-253915">
<hr><code>s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%</code>
<br><font color="red"><code>+</code></font><code>.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e</code>
</div></div>