#!/usr/bin/perl

use strict qw(vars) ;
use lib ('lib', 'lib/perl-lib', '../gmb-lib', '../gmb-lib/perl-lib') ;
use utf8 ;

# インクルードファイル
BEGIN {
    eval {
        require 'lib-main.cgi' ;
    };
    if( $@ ){
        use Lib::CGI::OutBuff ;
        my $buff = Lib::CGI::OutBuff->new ;
        $buff->{type} = 'text/plain' ;
        $buff .= $@ ;
        print "$buff" ;
    }
}

eval { main_routine() ; } ;
if( $@ ){
    use Lib::CGI::OutBuff ;
    my $buff = Lib::CGI::OutBuff->new ;
    $buff .= $@ ;
    print "$buff" ;
}

END{ close }

# vim:pa+=lib,../gmb-lib: