#!/usr/bin/perl

use strict qw(vars) ;
use lib ('../../cgi-bin/gmb-lib') ;

# インクルードファイル
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(
        admin           => 0 ,
        authenticate    => 0 ,
        script_path     => '../../cgi-bin/ir_wnew' ,
        data_path       => '../Data/ir_wnew' ,
        script_url      => '../cgi-bin/ir_wnew' ,
        data_url        => '../cgi-bin/Data/ir_wnew' ,
    ) ;
} ;
if( $@ ){
    use Lib::CGI::OutBuff ;
    my $buff = Lib::CGI::OutBuff->new ;
    $buff .= $@ ;
    print "$buff" ;
}

END{ close }

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