Show import_fname.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$data => ''
$fn => 0
</%args>
<& /mail/header.mhtml, title => 'Choose last name' &>
<p>Click on someone's last name (NOT their full name)</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_lname.html?fn=$fn&ln=$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