Show import_lname.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$data => ''
$fn => 0
$ln => 0
</%args>
<& /mail/header.mhtml, title => 'Choose email address' &>
<p>Click on someone's email address:</p>
<pre>
<%perl>
open DATA, "<$data";
while(<DATA>) {
my @fields = split /,/;
for(my $f=0; $f <= $#fields; $f++) {
$m->print(hyperlink("$base/mail/addressbook/import_complete.html",
$fields[$f],
{ fn => $fn,
ln => $ln,
em => $f,
data => $data }) . ", ") if($fields[$f]);
}
$m->print("\n");
}
close DATA;
</%perl>
</pre>
<& /mail/footer.mhtml &>
<%once>
use AlphaMail::HTMLHelper qw(hyperlink);
our $logger = Log::Log4perl->get_logger('alphamail');
our $base = $config->get('base_uri');
</%once>
See more files for this project here