#!/usr/bin/perl -w
#######################################
# better rename it as dispatch.cgi (Dreamhost tested)
#
# if u can't run this, first try something like:
# perl dispatch.cgi -l ~/foorum.sock
#######################################
use strict;
use warnings;
BEGIN { $ENV{CATALYST_ENGINE} = 'FastCGI' }
use Getopt::Long;
use lib '/home/username/foorumbbs.com/Foorum/lib'; # your Foorum dir
use lib '/home/username/perl5/lib/perl5'; # your Perl module dir
use Foorum;
$SIG{USR1} = 'INGORE';
$SIG{TERM} = 'INGORE';
$SIG{PIPE} = 'IGNORE'; # continue processing on client disconnect (i think)
$SIG{CHLD} = 'IGNORE'; # prevent children from becoming zombies
my $help = 0;
my ( $listen, $nproc, $pidfile, $manager, $detach, $keep_stderr );
GetOptions(
'help|?' => \$help,
'listen|l=s' => \$listen,
'nproc|n=i' => \$nproc,
'pidfile|p=s' => \$pidfile,
'manager|M=s' => \$manager,
'daemon|d' => \$detach,
'keeperr|e' => \$keep_stderr,
);
Foorum->run(
$listen,
{ nproc => $nproc,
pidfile => $pidfile,
manager => $manager,
detach => $detach,
keep_stderr => $keep_stderr,
}
);
1;