* CGI::Application [#xe93ef9c]
昔書いたCGI::Applicationのプログラムです。途中で開発が停止になったので、ちゃんと動かないかも。
*** htdocs/dispatch.cgi [#re3c6f93]
#!/usr/bin/perl
# ==============================================================================
# フロントコントローラ
# ==============================================================================
use strict;
use warnings;
use FindBin qw($Bin);
use Cwd 'abs_path';
use lib (
"$Bin/../../admin_app/lib",
);
use CGI::Carp qw(carpout);
use CGI::Application::Dispatch;
# ログファイル書き出し
umask 000;
open my $log, '>>', "$Bin/../../admin_app/logs/cgi_log" or die $!;
carpout($log);
# URL修正
chdir $Bin;
my $www = abs_path;
$ENV{PATH_INFO} =~ s/^$www//g if defined $ENV{PATH_INFO};
# アプリケーション実行
CGI::Application::Dispatch->dispatch(
prefix => 'C',
default => 'Index',
debug => 1,
);
close $log;
exit;
