#!/usr/bin/perl

#########################################################
#しらぎく日本語URI                                      #
#                                              第0.851版#
#########################################################
#平成19年 8月19日　しらぎくさいと                       #
#Copyright (c)2007      MINOBE Hiroyuki, Saitama, JAPAN.#
#Copyright (c)2007      Marguerite Site, Saitama, JAPAN.#
#   www.marguerite.jp                                   #
#########################################################
my $O_RDONLY=0;
#use strict;	#正常に動作しない場合にはこの行から三行を全部コメントアウトして下さい。
#use Fcntl;
#$O_RDONLY=O_RDONLY;
my $DIR=$ENV{'SCRIPT_FILENAME'}; $DIR=~s|/[^/]+\Z|/|;

require "${DIR}juriMain.pl";		#設定を呼出す。
&juriMain::juriMain($O_RDONLY);