forked from github/kensanata.oddmuse
d663c2b61d
Trying a different solution. The existing solution only worked for relative paths in $DataDir. Now we check whether $DataDir starts with / or ./ and only prepend a ./ if it does not.
85 lines
2.3 KiB
Perl
85 lines
2.3 KiB
Perl
#!/bin/env perl
|
|
# Copyright (C) 2015 Alex Schroeder <alex@gnu.org>
|
|
|
|
# This program is free software: you can redistribute it and/or modify it under
|
|
# the terms of the GNU General Public License as published by the Free Software
|
|
# Foundation, either version 3 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful, but WITHOUT
|
|
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
|
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along with
|
|
# this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
my $wiki = $ARGV[0] || './wiki.pl';
|
|
my $port = $ARGV[1] || 8080;
|
|
my $dir = $ARGV[2];
|
|
$ENV{WikiDataDir} = $dir if $dir;
|
|
|
|
{
|
|
package Oddmuse::Server;
|
|
|
|
use HTTP::Server::Simple::CGI;
|
|
use base qw(HTTP::Server::Simple::CGI);
|
|
|
|
$OddMuse::RunCGI = 0;
|
|
do $wiki; # load just once
|
|
|
|
sub handle_request {
|
|
my $self = shift;
|
|
|
|
package OddMuse;
|
|
$q = shift;
|
|
|
|
# NPH, or "no-parsed-header", scripts bypass the server completely by
|
|
# sending the complete HTTP header directly to the browser.
|
|
$q->nph(1);
|
|
|
|
DoWikiRequest();
|
|
}
|
|
}
|
|
|
|
die <<'EOT' unless -f $wiki;
|
|
Usage: perl server.pl [WIKI [PORT [DIR]]]
|
|
|
|
Example: perl server.pl wiki.pl 8080 ~/src/oddmuse/test-data
|
|
|
|
You may provide the Oddmuse wiki script on the command line. If you do not
|
|
provide it, WIKI will default to 'wiki.pl'.
|
|
|
|
You may provide a port number on the command line. If you do not provide it,
|
|
PORT will default to 8080.
|
|
|
|
You may provide a data directory on the command line. It will be used to set the
|
|
environment variable 'WikiDataDir'. If it is not not set, Oddmuse will default
|
|
to '/tmp/oddmuse'.
|
|
|
|
A simple test setup would be the following shell script:
|
|
|
|
#/bin/sh
|
|
if test -z "$WikiDataDir"; then
|
|
export WikiDataDir=/tmp/oddmuse
|
|
fi
|
|
mkdir -p "$WikiDataDir"
|
|
echo <<EOF > "$WikiDataDir/config"
|
|
$AdminPass = 'foo';
|
|
$ScriptName = 'http://localhost/';
|
|
EOF
|
|
perl stuff/server.pl wiki.pl &
|
|
SERVER=$!
|
|
sleep 1
|
|
w3m http://localhost:8080/
|
|
kill $!
|
|
|
|
This will run the server exactly once, allow you to browse the site using w3m,
|
|
and when you're done, it'll kill the server for you.
|
|
|
|
EOT
|
|
|
|
my $server = Oddmuse::Server->new($port);
|
|
|
|
# $server->background();
|
|
$server->run();
|