#!/usr/bin/perl

use utf8;
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/ki_wnew' ,
        data_path       => '../Data/ki_wnew' ,
        script_url      => '../../cgi-bin/ki_wnew' ,
        data_url        => '../../cgi-bin/Data/ki_wnew' ,
        query           =>  {
                                num      => 5,
                                feq_area => [ '福岡' ] ,
                                xp_area  => [ '福岡' ] ,
                                xp_gmo   => [ 'kofindex' ]
                            }
    );
} ;
if( $@ ){
    use Lib::CGI::OutBuff ;
    my $buff = Lib::CGI::OutBuff->new ;
    $buff .= $@ ;
    print "$buff" ;
}

END{ close }
# vim:pa+=lib,../gmb-lib: