#!/usr/bin/perl
print "Content-type: text/html\n\n";
#HPのフルパス
#$url = "http://www.treasures-jp.com/e-surugadai";
$url = "";
require 'su_sub.pl';
#オレンジの帯左の位置情報GIF
$topnavi = "$url/mainimg/adm_r01_c01.gif";
#########################################################################
#フォームから送られてきた内容をデコードする
if ($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{QUERY_STRING};
}
@pairs = split(/&/,$buffer);
foreach (@pairs) {
($name, $value) = split(/=/, $_);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/</g; #htmlタグを禁止する
$value =~ s/>/>/g; #htmlタグを禁止する
$value =~ s/\r//g; #改行コードの\rを消去
$FORM{$name} = $value;
}
###########################################
if($FORM{'type'} eq "what") {
&what;
} elsif($FORM{'type'} eq "new") {
&new;
} elsif($FORM{'type'} eq "fra_san") {
&fra_san;
} elsif($FORM{'type'} eq "fra_text") {
&fra_text;
} elsif($FORM{'type'} eq "fra_que") {
&fra_que;
} elsif($FORM{'type'} eq "chi_san") {
&chi_san;
} elsif($FORM{'type'} eq "chi_text") {
&chi_text;
} elsif($FORM{'type'} eq "shin_text") {
&shin_text;
} elsif($FORM{'type'} eq "env_text") {
&env_text;
} elsif($FORM{'type'} eq "dic") {
&dic;
} elsif($FORM{'type'} eq "wine") {
&wine;
} elsif($FORM{'type'} eq "philo") {
&philo;
} elsif($FORM{'type'} eq "lite") {
&lite;
} elsif($FORM{'type'} eq "nov") {
&nov;
} elsif($FORM{'type'} eq "law") {
&law;
} elsif($FORM{'type'} eq "eng") {
ŋ
} elsif($FORM{'type'} eq "ger") {
&ger;
} elsif($FORM{'type'} eq "other") {
&other;
} elsif($FORM{'type'} eq "link") {
&link;
}
###########################################
###########################################
### what's new
sub what {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### 新刊・話題の本
sub new {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### フランス語参考書
sub fra_san {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### フランス語教科書
sub fra_text {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### 仏検問題集
sub fra_que {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### 中国語参考書・中検問題集
sub chi_san {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### 中国語教科書
sub chi_text {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### 心理学・カウンセリング
sub shin_text {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### 環境問題
sub env_text {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### 辞書・事典・百科
sub dic {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### ワイン・チーズ・生活・料理
sub wine {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### 哲学・社会学・宗教学
sub philo {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### 文学・研究書
sub lite {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### 小説・随筆
sub nov {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### 法律・政治・経済
sub law {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### 英語・ラテン語
sub eng {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### ドイツ語・スペイン語
sub ger {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### その他
sub other {
&starthp;
print <<"EOL";
EOL
&endhp;
}
###########################################
### リンク集
sub link {
&starthp;
print <<"EOL";
EOL
&endhp;
}
print "