*** empty log message ***

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1004 63ad8ddf-47c3-0310-b6dd-a9e9d9715204

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/\</&lt;/gs;
+	    $c =~ s/\>/&gt;/gs;
+	    $c =~ s/\"/&quot;/gs;
+	    $c =~ s/\'/&apos;/gs;
+	    $c =~ s/ /&nbsp;/gs;
+	    $c =~ s/\n/<br \/>\n/gs;
+	    $db{"$doffset/$fn"} = $c;
 	}
     }
     $db{"$doffset/"} = $serial->serialize(\@tdir);