Show import_complete.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$data => ''
$fn => 0
$ln => 0
$em => 0
$al => 0
</%args>
<& /mail/header.mhtml, title => 'Choose email address' &>
<P>Uncheck any address you don't want to import and click Save.</P>
<form method="post" action="/mail/addressbook/import_csv_save.html">
<div class="control">
<input type="submit" name="save" value="Save">
<input type="submit" name="cancel" value="Cancel">
</div>
<table class="import_verify">
<tr>
<th>
Import
</th>
<th>
Entry
</th>
</tr>
<%perl>
my ($entry, $address, $fname, $lname, @ao);
open DATA, "<$data";
my @lines = <DATA>;
close DATA;
my $line = 0;
for my $n (@lines) {
$logger->debug("Line $n");
$_ = $n;
my @fields = split /,/;
$fname = $fields[$fn];
$lname = $fields[$ln];
$entry = new Email::Address("$fname $lname", $fields[$em]);
if(!$entry) {
</%perl>
<tr>
<td colspan="3">
Skipped entry for: (<% "$fname $lname" |h %>)
</td>
</tr>
<%perl>
next;
}
$address = $entry->format;
</%perl>
<tr>
<th>
<input type="checkbox" name="line" value="<% $line %>" checked>
</th>
<th>
<input type="text" name="entry" size="50" value="<% $address |h %>">
</th>
</tr>
<%perl>
$line++;
}
</%perl>
</table>
</form>
<& /mail/footer.mhtml &>
<%once>
use Email::Address;
our $logger = Log::Log4perl->get_logger('alphamail');
</%once>
See more files for this project here