| \n";
print $fh "
\n";
print $fh "\n"
, $sname, " |
|---|
\n";
my $addr = $si->getEl("address");
my $cityline = $addr->getElText("city").", "
. $addr->getElText("state"). " "
. $addr->getElText("zipcode");
print $fh "| getElText("email")
, "\">", $si->getElText("email")
, " | | ";
print $fh "", $addr->getElText("street"), " | \n";
print $fh "| ", $si->getElText("phone")
, " | | "
, "", $cityline, " | \n";
print $fh "| getElText("homepage")
, "\">", $si->getElText("homepage"), " | \n";
print $fh " \n | |
|
";
my $sect;
for $sect (@sects) {
print $fh ""
, $sect->getElText("sectionname"), " | \n";
my $block;
for $block ($sect->getEls("block")) {
# format the block headers, either:
#
# location
# position date
#
# or
#
# location date
#
print $fh "";
if ($block->getEl("location") && ($block->getEl("position"))) {
print $fh "| "
,$block->getElText("location"),
" | \n";
print $fh "| ", $block->getElText("position")
, " | \n"
if $block->getEl("position");
print $fh "";
print $fh formatWhen($block->getEl("when"))
if $block->getEl("when");
print $fh " | ";
} elsif ($block->getEl("location")) {
print $fh "| "
,$block->getElText("location"),
" | \n";
print $fh "";
print $fh formatWhen($block->getEl("when"))
if $block->getEl("when");
print $fh " | ";
}
print $fh "| ";
my $par;
foreach $par ($block->getEls("par")) {
print $fh formatPar($par), " \n";
}
print $fh " | ";
print $fh "| | ";
}
print $fh " |
\n";
}
print $fh "
";
print $fh "\n\n";
}
use vars qw/ $infn $outfn $ptree $resume /;
$infn = $ARGV[0];
$outfn = $ARGV[1];
$ptree = XML::Element->parseFromFile($infn);
$resume = $ptree->getEl("resume");
#$resume->printDebug;
die "resume not found in file\n" unless ($resume);
ResumeToFancyHTML(\*STDOUT, $resume);