diff options
Diffstat (limited to '2004/netfilter-failover-ols2004/OLS2004-proceedings/bin/parseall.pl')
| -rwxr-xr-x | 2004/netfilter-failover-ols2004/OLS2004-proceedings/bin/parseall.pl | 126 |
1 files changed, 126 insertions, 0 deletions
diff --git a/2004/netfilter-failover-ols2004/OLS2004-proceedings/bin/parseall.pl b/2004/netfilter-failover-ols2004/OLS2004-proceedings/bin/parseall.pl new file mode 100755 index 0000000..f00a7c2 --- /dev/null +++ b/2004/netfilter-failover-ols2004/OLS2004-proceedings/bin/parseall.pl @@ -0,0 +1,126 @@ +#!/usr/bin/perl -w + +open(IN,'<all.txt') || die 'cannot open all.txt for read'; +my @recs; +my $ref; +# http://www.linuxsymposium.org/2004/view_abstract.php?content_key=24 +my $aurl='http://linuxsymposium.org/2004/view_abstract.php?content_key='; +my %fields=(A=>1,I=>1,T=>1,E=>1,N=>1,); +my @keyNames = qw(__TITLE__ __AUTHOR__ __INSTITUTION__ __EMAIL__ __ABSTRACT__); + +sub newrec { + my $r = {}; + for my $i qw(A I T E dname abstract) { + $r->{$i} = ''; + } + $r->{'N'} = 0; + for my $i (@keyNames) { + $r->{$i} = 'BUG'; + } + return $r; +} +sub doItem { + my ($r, $l) = @_; + my ($f, $rest) = split /=/,$l; + die "bad record: $l" if (!exists($fields{$f})); + $rest =~ s/\s+$//g; + $rest =~ s/^none$/~/; + $r->{$f} = $rest; + if ($f eq 'A') { + my @fname = split /\s+/,lc($rest); + my $aname = pop(@fname); + $aname =~ s/[[:punct:]]//g; + $r->{dname} = $aname; + $r->{__AUTHOR__} = $r->{A}; + $r->{__ABSTRACT__} = ($r->{dname} . '-abstract'); + } elsif ($f eq 'N') { + $r->{abstract} = ($aurl . $rest); + } elsif ($f eq 'T') { + $r->{__TITLE__} = $r->{T}; + } elsif ($f eq 'I') { + $r->{__INSTITUTION__} = $r->{I}; + } elsif ($f eq 'E') { + $r->{__EMAIL__} = $r->{E}; + } +} + +$ref = newrec(); +while (defined($ln = <IN>)) { + chomp $ln; + if ($ln =~ m/^\s*$/) { + push @recs, $ref if ($ref); + $ref = newrec(); + } else { + doItem($ref, $ln); + } +} +close(IN); + +# print "got $#recs records\n"; +my $cnt = 1; +open(OUT,'>Authors.tex') || die "cannot open Authors.tex for write"; +open(CLEAN,'>Cleanup.sh') || die "cannot open Cleanup.sh for write"; +print CLEAN '#!/bin/bash', "\n\n"; +for my $r (@recs) { + print OUT '% email='; + print OUT $r->{E}, "\n"; + print OUT '% url=', $r->{abstract}, "\n"; + + print OUT '\coltocauthor{'; + $r->{A} =~ s/\./.\\/g; + print OUT $r->{A}; + print OUT '}', "\n"; + + print OUT '\coltoctitle{'; + print OUT $r->{T}; + print OUT '}', "\n"; + + print OUT '\label{'; + printf OUT "art%02d", $cnt; + print OUT '}', "\n"; + + print OUT '\import{'; + print OUT $r->{dname}; + print OUT '}', "\n"; + print OUT "\n"; + print CLEAN 'rm -rf ', $r->{dname}, "\n"; + + my $paper = $r->{dname} . '/' . $r->{dname} . '.tex'; + my $setup = $r->{dname} . '/setup.sh'; + if (! -d $r->{dname}) { + mkdir($r->{dname}); + if (! -f $paper) { + open(OWT, ">$paper") || die "Cannot open $paper for writing"; + open(INN, '<TEMPLATES/Blank.tex') || die 'Cannot open TEMPLATES/Blank.tex for reading'; + my $ln; + while (defined($ln = <INN>)) { + chomp $ln; + for my $x (@keyNames) { + my $v = $r->{$x}; + + $ln =~ s/$x/$v/; + } + print OWT "$ln\n"; + } + print OWT "\n"; + close(INN); + close(OWT); + } + if (! -f $setup) { + open(OWT, ">$setup") || die "Cannot open $setup for writing"; + print OWT '#!/bin/bash', "\n\n"; + for my $i qw(ols-fonts.tex ols.sty zrl.sty) { + print OWT 'ln -s ../TEMPLATES/', $i, ' . || /bin/true', "\n"; + } + print OWT 'cat ../TEMPLATES/ProtoMake | sed -e ', "'s/TOP=/TOP=", + $r->{dname}, "/' > Makefile\n"; + print OWT 'echo -n ', "'%'", '> ', "'", $r->{__ABSTRACT__}, ".tex'", "\n"; + print OWT "links -dump '", $r->{abstract}, "' | ../bin/cleanurl.pl >> ", + $r->{__ABSTRACT__}, '.tex', "\n"; + close(OWT); + } + } + $cnt++; +} +close(OUT); +close(CLEAN); |