#! /usr/bin/perl -w
use strict;
BEGIN {
use File::Spec;
unshift @INC, split( /:/, $ENV{TWIKI_LIBS} );
unshift @INC, '../lib/CPAN/lib/';
unshift @INC, '../lib/';
# designed to be run from within an SVN checkout area
my @path = split( /\/+/, File::Spec->rel2abs($0) );
pop(@path); # the script name
}
use TWiki;
my $BASE = {url=>'',};
#print 'url: ', $TWiki::cfg{DefaultUrlHost}, "\n";
#print 'pub: ', $TWiki::cfg{PubUrlPath}, "\n";
#print 'script: ', $TWiki::cfg{ScriptUrlPath}, "\n";
while ( <> ) {
#
my ( @a ) = m|