#!/usr/local/bin/perl
# 医療機関検索プログラム（検索 一覧＆詳細出力）
#-------------------------------------------------
# メイン
#-------------------------------------------------
# データファイル
$datfile1 = '../data1/aaa91.dat';
$datfile2 = '../data1/aaa92.dat';
# 戻り先のリンク
$backurl = 'http://aki.hiroshima.med.or.jp/51ichirn.htm';
# フォームデコード
&decode;
# ファイル検索、出力
if ($case eq "POST") {
&kensaku;
}
else
{
&shousai;
}
#-------------------------------------------------
# 入力デコード・サブ（ＰＯＳＴ、ＧＥＴ）
#-------------------------------------------------
sub decode
# 日本語の変換は、やっていない。
{
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
$case = "POST";
}
else {
$buf = $ENV{'QUERY_STRING'};
$case = "GET";
}
undef(%in);
my @buf = split(/&/, $buf);
foreach (@buf) {
my ($key, $val) = split(/=/);
$val =~ tr/+/ /;
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;
# エスケープ
$val =~ s/&/&/g;
$val =~ s/"/"/g;
$val =~ s//>/g;
$val =~ s/\r\n/
/g;
$val =~ s/\r/
/g;
$val =~ s/\n/
/g;
$in{$key} = $val;
}
}
#-------------------------------------------------
# 一覧データ検索、一覧表示サブ
#-------------------------------------------------
sub kensaku
{
if (($in{'chiku'} == ' ') or ($in{'kamoku'} == ' '))
{
print "Content-type: text/html\n\n";
print <<"EOM";
地区、および診療科目系の指定がありませんでした。
ブラウザで戻り、再度、地区及び診療科目系を選んでください。
EOM
exit;
}
&header1;
$x = 0;
open(IN,"<","$datfile1");
while ()
{
($chikucd,$chiku,$kikancd,$kikan,$kamoku,$k1,$k2,$k3,$k4,$k5,$k6,$k7,$jusho,$tell)
= split(/<>/);
#ファイル読み込みの打ち切り（ＴＡＴ向上策）
if (($in{'chiku'} != "1000") and
($in{'chiku'} != "2000") and
($in{'chiku'} != "3000") and
($in{'chiku'} < $chikucd))
{
close(IN);
# 終了メッセージ
print <<"END";
$x 件 でした。
医療機関検索に戻る
Copyright (C) ２００６ All Rights Reserved. 安芸地区医師会 （掲載内容の無断転載を禁じます）