#!/usr/bin/perl @name=getpwnam($ENV{'USER'}); $time=scalar gmtime($^T); print < Resume of $name[6] EOT $_=join('', <>); s/^\s*%.*$//mg; s/\\\\/
/g; s/\\newline/
/g; s/\\LaTeX({}|)/LaTeX/g; s/\\TeX({}|)/TeX/g; s/{\\em (.*?)}/$1<\/EM>/g; s/\$\\sim\$/~/g; s/\\&/&/g; s/\\mbox{(.*?)}/$1/g; s/http:(.*?)([\.\,\;\)]?)( |$)/http:$1<\/A>$2$3/gm; s/\\vspace{.*?}//g; s/\\begin{header}{(.*?)}/

$1<\/H1>\n
\n/g; s/\\end{header}/<\/TABLE><\/DIV>/g; s/\\addr{(.*?)}{(.*?)}/
$1:<\/STRONG>
$2		/sg; s/\\begin{resume}//; s/\\end{resume}/<\/TABLE>/; s|\\begin{detail}\s*{(.*?)}(.*?)\\end{detail}|

$1     $2

|sg; s|\\begin{reference}\s*{(.*?)}{(.*?)}(.*?)\\end{reference}|

$1   ($2)
$3

|sg; s|\\begin{employer}\s*{(.*?)}\s*{(.*?)}|

$1 ($2)

|sg; s|\\end{employer}||g; s/\\begin{extra}/
    /g; s/\\end{extra}/<\/UL>/g; s/\\item/

  • /g; s/\\desc{(.*?)}/

$1<\/H2>/g; s/\\elt{(.*?)}/

$1/sg; s/\\role{(.*?)}/

$1<\/H4>/g; s/\\begin{job}{(.*?)}/

$1<\/H3>/sg; s/\\end{job}//g; s/\\extrabreak//g; print; print < EOT