diff --git a/noinfo/scripts/logbk.pl b/noinfo/scripts/logbk.pl new file mode 100755 index 000000000..fb74aece4 --- /dev/null +++ b/noinfo/scripts/logbk.pl @@ -0,0 +1,112 @@ +#!/usr/bin/perl -w +#script to turn logbook.txt files into reasonable HTML files: +#logbook.html and trips +# very basic. Doesn't deal with trip IDs yet. +# Requires trip header format to be consistent: +#===YYYY-MM-DD | title | === +#and T/U: to always look like that and not also be mentioned in text +#edit year below manually. Used for 2006-2008 + +#triplist file doesn;t get a TU entry if none in logbook entry. Really out +# to be improved to normalise table + +#print ("param1:$1"); + +#die; +my $year="2008"; + +my $infile=$year."logbook.txt"; +my $outfile="logbook.html"; +my $tripfile="trips.html"; + +open my $in, "<", $infile or die; +open my $out, ">", $outfile or die; +open my $triplist, ">", $tripfile or die; + +print $out (" + + + + +$year Expo Logbook + + + + +

Expo $year

+ +
+"); + +print $triplist (" + + + + Expo $year: trips index + + + + +

Expo $year: trips index

+

This is an index to all caving trips that took place on Expo $year, +plus anything else that people saw fit to record in the logbook. The +list of trips here includes everything mentioned in the logbook, any of +the callout books or the Time Underground page in the bier book. +

+ + + + + + + + + +"); +while(<$in>){ + if (/^===.*(2008-\d\d-\d\d) \|(.*)\|(.*)===$/) { + print $out ("
\n\n
$1
\n"); + print $out ("
$3
\n"); + print $out ("
$2
\n"); + print $triplist (" \n \n \n \n \n \n \n \n"); + } elsif (m!T/U!i) { + chomp; + print $out ("
$_
\n"); + } else { + print $out $_ + } +} + +print $out (" + +"); + +print $triplist (" +
DatePersonDest'nT/ULogbook writeupSurvey notes
$1$3$2
+
+ + + + +"); + +close $in; +close $out; +close $triplist;