From fca59bea770346cf1c1f9b0e00cb48a61b44a8f3 Mon Sep 17 00:00:00 2001 From: Harald Welte Date: Sun, 25 Oct 2015 21:00:20 +0100 Subject: import of old now defunct presentation slides svn repo --- .../OLS2004-proceedings/bin/masterToHtml.pl | 32 ++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100755 2004/netfilter-failover-ols2004/OLS2004-proceedings/bin/masterToHtml.pl (limited to '2004/netfilter-failover-ols2004/OLS2004-proceedings/bin/masterToHtml.pl') diff --git a/2004/netfilter-failover-ols2004/OLS2004-proceedings/bin/masterToHtml.pl b/2004/netfilter-failover-ols2004/OLS2004-proceedings/bin/masterToHtml.pl new file mode 100755 index 0000000..85be495 --- /dev/null +++ b/2004/netfilter-failover-ols2004/OLS2004-proceedings/bin/masterToHtml.pl @@ -0,0 +1,32 @@ +#!/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 \n"; + $in = 1; + } + if ($ln =~ /coltoctitle{(.*?)}/) { + $title = $1; + } + if ($ln =~ /import{(.*)}/) { + $fyle = $1; + if ($fyle ne 'missing') { + print " \n\n"; + } else { + print " \n\n"; + } + $in = 0; + } +} +print "

$foo	${title}
${title}

\n\n\n"; + -- cgit v1.2.3