gitprep / script / gitprep.cgi /
9bc82ce 11 years ago
1 contributor
33 lines | 0.931kb
#!/usr/bin/env perl

use strict;
use warnings;

use File::Basename qw/basename dirname/;
use File::Spec::Functions qw/catdir splitdir/;

BEGIN {
  # Source directory has precedence
  my $script_name = basename __FILE__;
  my $base_dir_name = $script_name;
  $base_dir_name =~ s/\.cgi$//;
  my @base_dir = (splitdir(dirname __FILE__), $base_dir_name);
  my $mojo_lib = join('/', @base_dir, 'mojo', 'lib');
  my $lib = join('/', @base_dir, 'lib');
  my $extlib = join('/', @base_dir, 'extlib', 'lib', 'perl5');
  eval 'use lib $mojo_lib, $extlib, $lib';
  croak $@ if $@;
}

use Mojolicious::Commands;

# Check if Mojolicious is installed;
die <<EOF unless eval 'use Mojolicious::Commands; 1';
It looks like you don't have the Mojolicious framework installed.
Please visit http://mojolicio.us for detailed installation instructions.

EOF

# Start commands
$ENV{MOJO_MODE} = 'production';
Mojolicious::Commands->start_app('Gitprep');