#!/usr/bin/perl
# An abject hack, but produces something that can be tidied up by hand.
$in = 0;
print "\n\n\n";
while (defined($ln = )) {
chomp $ln;
next if ($ln =~ /^\s*$/);
next if ($ln =~ /^\s*%/);
if ($ln =~ /coltocauthor{(.*?)}/) {
$foo = $1;
$foo =~ s/\\//g;
print "\n | $foo | \n";
$in = 1;
}
if ($ln =~ /coltoctitle{(.*?)}/) {
$title = $1;
}
if ($ln =~ /import{(.*)}/) {
$fyle = $1;
if ($fyle ne 'missing') {
print " ${title} | \n
\n";
} else {
print " ${title} | \n\n";
}
$in = 0;
}
}
print "
\n\n\n";