#!/usr/bin/perl ############################################################################## # # CGI Script require Perl 5.003 or heigher. # # Written by K.Nakagawa, except 'jcode','stdio' and 'date' packages # # This script uses 'jcode.pl' and 'stdio.pl' and 'date.pl'. # Very thanks to their writer!!! ############################################################################## require 'packages.pl'; #共通変数・サブルーチン定義 require 'corex.pl'; ############################################################################# require 'global.cgi'; ############################################################################# %FORM = (); %COOKIE = (); %LOG = (); @LOG = (); if($ENV{'REQUEST_METHOD'}) { @FORM = stdio::getFormData(\%FORM,2,'SJIS'); } else { foreach(@ARGV) { my @e = split(/=/); $FORM{$e[0]} = $e[1]; } } $DIR = $FORM{'dir'} ? $FORM{'dir'} : $DIR_DEFAULT; unless(-e "$DIR_DATA/$DIR/property.pl") { &html_header; print qq(
\n); print qq(\n); print qq(