diff options
| -rwxr-xr-x | staticweb/man.pl | 67 | ||||
| -rwxr-xr-x | staticweb/manbuilder.pl | 11 |
2 files changed, 76 insertions, 2 deletions
diff --git a/staticweb/man.pl b/staticweb/man.pl new file mode 100755 index 00000000..307108c7 --- /dev/null +++ b/staticweb/man.pl @@ -0,0 +1,67 @@ +#!/usr/bin/perl +# $Id: man.pl,v 1.1 2003/07/03 06:49:23 in2 Exp $ +use CGI qw/:standard/; +use lib qw/./; +use LocalVars; +use DB_File; +use strict; +use Data::Dumper; +use Date::Calc qw(:all); +use Template; +use HTML::Calendar::Simple; +use OurNet::FuzzyIndex; +use Data::Serializer; +use vars qw/%db $brdname $fpath/; + +sub main +{ + my($tmpl, $rh); + + if( !(($brdname, $fpath) = $ENV{PATH_INFO} =~ m|^/([\w\-]+?)(/.*)|) || + !(tie %db, 'DB_File', + "$MANDATA/$brdname.db", O_RDONLY, 0666, $DB_HASH) ){ + return redirect("/man.pl/$1/") + if( $ENV{PATH_INFO} =~ m|^/([\w\-]+?)$| ); + print header(-status => 404); + return; + } + + charset(''); + print header(); + + $rh = (($fpath =~ m|/$|) ? dirmode($fpath) : articlemode($fpath)); + $tmpl = Template->new({INCLUDE_PATH => '.', + ABSOLUTE => 0, + RELATIVE => 0, + RECURSION => 0, + EVAL_PERL => 0}); + $tmpl->process($rh->{tmpl}, $rh); +} + +sub dirmode +{ + my(%th); + my $serial = Data::Serializer->new(serializer => 'Storable', + digester => 'MD5', + compress => 0, + ); + foreach( @{$serial->deserialize($db{$fpath})} ){ + push @{$th{dat}}, {isdir => (($_->[0] =~ m|/$|) ? 1 : 0), + fn => "/man.pl/$brdname$_->[0]", + title => $_->[1]}; + } + + $th{tmpl} = 'dir.html'; + return \%th; +} + +sub articlemode +{ + my(%th); + $th{tmpl} = 'article.html'; + $th{content} = $db{$fpath}; + return \%th; +} + +main(); +1; diff --git a/staticweb/manbuilder.pl b/staticweb/manbuilder.pl index ecb0972e..3ae5b22a 100755 --- a/staticweb/manbuilder.pl +++ b/staticweb/manbuilder.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: manbuilder.pl,v 1.1 2003/07/03 05:49:45 in2 Exp $ +# $Id: manbuilder.pl,v 1.2 2003/07/03 06:50:54 in2 Exp $ use lib '/home/bbs/bin/'; use strict; use OurNet::FuzzyIndex; @@ -43,7 +43,14 @@ sub build($$) } else{ push @tdir, ["$doffset/$fn", $bfh{"$_.title"}]; - $db{"$doffset/$fn"} = $bfh{"$_.content"}; + my $c = $bfh{"$_.content"}; + $c =~ s/\</</gs; + $c =~ s/\>/>/gs; + $c =~ s/\"/"/gs; + $c =~ s/\'/'/gs; + $c =~ s/ / /gs; + $c =~ s/\n/<br \/>\n/gs; + $db{"$doffset/$fn"} = $c; } } $db{"$doffset/"} = $serial->serialize(\@tdir); |