#!/usr/bin/perl -w # # DECORATE # # This script provides a set of "bare" HTML files (which contain the things # you'd put between ...) with standard decorations. Makes it # easy to use style templates, without stylesheets, server-side includes or # scripts. # # The input files are named on the command line; last argument is the target # directory. # # Input documents may contain any number of metadata items. Each item starts # with \n\n"; $ret .= "\n"; $ret .= "$$pairs{'title'}\n" if $$pairs{'title'}; $ret .= "\n" if $$pairs{'description'}; $ret .= "\n" if $$pairs{'keywords'}; $ret .= "\n"; $ret .= "
\n"; if ($$pairs{'title'}) { $ret .= " "; $ret .= " " if $$pairs{'logo'}; $ret .= " \n"; } $ret .= "\n\n\n

Generated on $date by decorate.pl / menuize.pl

$$pairs{'title'}
\"Logo\"


"; } ## # # Main # Check args die("Not enough arguments!\n") unless $#ARGV >= 1; my $outputdir = pop(@ARGV); # Loop through files on command line for my $file (@ARGV) { # Read file first time, to obtain attr/value pairs open(IN, $file) or die("Cannot open input file $file: $!\n"); $/ = '-->'; my %pairs = (); while() { s/.*.*//s; # Delete content after close # We now have a series of attrs and values left while(s/\s* # optional whitespace ([A-Za-z0-9_]+) # Attribute ($1) \s*=\s* # optional ws., = sign, opt. ws. ( "(([^"]|\\")*[^\\])"| # quoted Value ($3), or ([^\s]+) # single word Value ($5) ) ( \s+| # ended by one or more spaces -->| # or end-of-tag $ # or end-of-record )//x) { my $atr = lc $1; # Attributes are lowercase my $val = $5 || $3; # Take single word or quoted $pairs{$atr} = $val; # Save into hash } } # Open output my $outf = $file; $outf =~ s/.*\///; $outf = "$outputdir/$outf"; open(OUT, "> $outf") or die("Cannot open output file $outf: $!\n"); # Output opening print OUT stdopen(\%pairs); # Now copy input unchanged, except for DECO pseudo-tags $/ = '-->'; seek(IN, 0, 0); while() { s///s; print OUT $_; } # Output closing print OUT stdclose(\%pairs); close(OUT) || die("Could not close output $outf: $!\n"); close(IN) || die("Could not close input $file: $!\n"); }