CGI::Application

昔書いたCGI::Applicationのプログラムです。途中で開発が停止になったので、ちゃんと動かないかも。

htdocs/dispatch.cgi

 #!/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;

トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS