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(qq(<a href="/mail/addressbook/import_alias.html?fn=$fn&ln=$ln&em=$f&data=$data">$fields[$f]</a>, )) if($fields[$f]);
}
$m->print("\n");
}
close DATA;
</%perl>
</pre>
<& /mail/footer.mhtml &>
See more files for this project here