From 51fce03f59c43f496c8ef2473dc21709c0919473 Mon Sep 17 00:00:00 2001
From: Amin Bandali <bandali@gnu.org>
Date: Thu, 14 May 2020 00:05:39 -0400
Subject: better-organized colophon/oddmuse

---
 colophon/oddmuse/server.pl | 55 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 colophon/oddmuse/server.pl

(limited to 'colophon/oddmuse/server.pl')

diff --git a/colophon/oddmuse/server.pl b/colophon/oddmuse/server.pl
new file mode 100644
index 00000000..8f117219
--- /dev/null
+++ b/colophon/oddmuse/server.pl
@@ -0,0 +1,55 @@
+#!/usr/bin/env perl
+
+# Copyright (C) 2015-2016  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/>.
+
+use Mojolicious::Lite;
+
+# This needs to be in a different section, sometimes?
+plugin CGI => {
+  support_semicolon_in_query_string => 1,
+};
+
+plugin CGI => {
+  # route => '/wiki',
+  route => '/',
+  # We need this for older versions of Mojolicious::Plugin::CGI
+  script => 'wiki.pl',
+  run => \&OddMuse::DoWikiRequest,
+  before => sub {
+    no warnings;
+    $OddMuse::RunCGI = 0;
+    # The default data directory is determined by the environment variable
+    # WikiDataDir and falls back to the following
+    # $OddMuse::DataDir = '/tmp/oddmuse';
+    use warnings;
+    require './build/wiki.pl' unless defined &OddMuse::DoWikiRequest;
+  },
+  env => {
+    "OMHOME" => "/home/omec"
+  },
+  # path to where STDERR from cgi script goes
+  errlog => ($ENV{WikiDataDir} || '/tmp/oddmuse')
+      . "/wiki.log",
+};
+
+#plugin SetUserGroup => {user => "omec", group => "omec"};
+
+#get '/' => sub {
+#  my $self = shift;
+#  $self->redirect_to('/wiki');
+#};
+
+app->plugin('Config');
+app->start;
-- 
cgit v1.2.3