# $Header$
#
# FILE: ResumeToPlainHTML.pm
# AUTHORS: Erik Nygren (nygren@mit.edu)
#
# Converts a resume from XML into plain HTML.
#
require 5.002;
use strict;
require XML::Element;
# Returns a string containing HTML formatted version of ...
sub formatWhen {
my ($when) = @_;
if ($when->getEl("when.from")) {
return $when->getElText("when.from") . "-"
. $when->getElText("when.to");
} else {
return $when->getText();
}
}
# Returns a string containing HTML formatted version of ...
sub formatPar {
my ($par) = @_;
my $s = "";
foreach ($par->getKids) {
if (ref $_) {
if ($_->getTag eq "cite") {
$s .= "".($_->getText)."";
} else {
die "unknown tag in formatPar\n";
}
} else {
$s .= $_;
}
}
return $s;
}
# Takes in a file handle and a resume XML Element and
# writes a plain HTML resume out to the file...
sub ResumeToPlainHTML {
my ($fh, $resume) = @_;
my $si = $resume->getEl("subjectinfo");
my @sects = $resume->getEls("section");
my $sname = $si->getEl("name")->getText();
print $fh "\n";
print $fh "\n\n";
print $fh " \n";
print $fh " ", $sname, "'s Resume\n";
print $fh " \n";
print $fh "\n";
print $fh "
";
print $fh "", $sname, "
\n";
print $fh "
";
my $addr = $si->getEl("address");
print $fh ""
, $addr->getElText("street"), "
\n"
, $addr->getElText("city"), ", "
, $addr->getElText("state"), " "
, $addr->getElText("zipcode"), "
\n"
, $si->getElText("phone"), "
\n"
, "
\n";
print $fh "getElText("email")
, "\">", $si->getElText("email"), "
\n";
print $fh "getElText("homepage")
, "\">", $si->getElText("homepage"), "
\n";
print $fh "
";
print $fh "
";
my $sect;
for $sect (@sects) {
print $fh "
", $sect->getElText("sectionname"), "
\n";
print $fh "\n";
my $block;
for $block ($sect->getEls("block")) {
if ($block->getEl("location")
|| ($block->getEl("position"))) {
print $fh "- \n";
print $fh "
",$block->getElText("location"),
"\n"
if $block->getEl("location");
print $fh "
", $block->getElText("position"), "\n"
if $block->getEl("position");
print $fh "
", formatWhen($block->getEl("when")), "\n"
if $block->getEl("when");
print $fh " \n";
}
print $fh "- \n";
my $par;
foreach $par ($block->getEls("par")) {
print $fh "
", formatPar($par), "
\n";
}
print $fh " \n";
}
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);
ResumeToPlainHTML(\*STDOUT, $resume);