#!/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/\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";
■■管理者用画面■■
◆What's new 登録
※機種依存文字は使用しないでください
title
サブコンテンツ
コンテンツ
EOL &endhp; } ########################################### ### 新刊・話題の本 sub new { &starthp; print <<"EOL";
■■管理者用画面■■
◆新刊・話題の本 登録
※機種依存文字は使用しないでください
種類
title
ISBN
コメント
EOL &endhp; } ########################################### ### フランス語参考書 sub fra_san { &starthp; print <<"EOL";
■■管理者用画面■■
◆フランス語参考書 登録
※機種依存文字は使用しないでください
分類
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
他価格
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### フランス語教科書 sub fra_text { &starthp; print <<"EOL";
■■管理者用画面■■
◆フランス語教科書 登録
※機種依存文字は使用しないでください
分類
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
その他価格
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### 仏検問題集 sub fra_que { &starthp; print <<"EOL";
■■管理者用画面■■
◆仏検問題集 登録
※機種依存文字は使用しないでください
分類
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
他価格
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### 中国語参考書・中検問題集 sub chi_san { &starthp; print <<"EOL";
■■管理者用画面■■
◆中国語参考書・中検問題集 登録
※機種依存文字は使用しないでください
分類
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
他価格
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### 中国語教科書 sub chi_text { &starthp; print <<"EOL";
■■管理者用画面■■
◆中国語教科書 登録
※機種依存文字は使用しないでください
分類
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
他価格
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### 心理学・カウンセリング sub shin_text { &starthp; print <<"EOL";
■■管理者用画面■■
◆心理学・カウンセリング 登録
※機種依存文字は使用しないでください
分類
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### 環境問題 sub env_text { &starthp; print <<"EOL";
■■管理者用画面■■
◆環境問題 登録
※機種依存文字は使用しないでください
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### 辞書・事典・百科 sub dic { &starthp; print <<"EOL";
■■管理者用画面■■
◆辞書・事典・百科 登録
※機種依存文字は使用しないでください
分類
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
他価格
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### ワイン・チーズ・生活・料理 sub wine { &starthp; print <<"EOL";
■■管理者用画面■■
◆ワイン・チーズ・生活・料理 登録
※機種依存文字は使用しないでください
分類
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
他価格
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### 哲学・社会学・宗教学 sub philo { &starthp; print <<"EOL";
■■管理者用画面■■
◆哲学・社会学・宗教学 登録
※機種依存文字は使用しないでください
分類
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### 文学・研究書 sub lite { &starthp; print <<"EOL";
■■管理者用画面■■
◆文学・研究書 登録
※機種依存文字は使用しないでください
分類
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### 小説・随筆 sub nov { &starthp; print <<"EOL";
■■管理者用画面■■
◆小説・随筆 登録
※機種依存文字は使用しないでください
分類
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### 法律・政治・経済 sub law { &starthp; print <<"EOL";
■■管理者用画面■■
◆法律・政治・経済 登録
※機種依存文字は使用しないでください
分類
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### 英語・ラテン語 sub eng { &starthp; print <<"EOL";
■■管理者用画面■■
◆英語・ラテン語 登録
※機種依存文字は使用しないでください
分類
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
他価格
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### ドイツ語・スペイン語 sub ger { &starthp; print <<"EOL";
■■管理者用画面■■
◆ドイツ語・スペイン語 登録
※機種依存文字は使用しないでください
分類
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
他価格
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### その他 sub other { &starthp; print <<"EOL";
■■管理者用画面■■
◆その他 登録
※機種依存文字は使用しないでください
title
sub-title
著者
イラスト等
規格
ページ数
本体価格 本体
他価格
ISBN ISBN
コメント
url
画像を登録する場合 
画像
ファイル名

※画像をアップしたと時と同じファイル名を半角英数字で入力してください。
※画像をアップロードしない場合はyet.gifかava.gifと入力してください。
EOL &endhp; } ########################################### ### リンク集 sub link { &starthp; print <<"EOL";
■■管理者用画面■■
◆リンク集 登録
※機種依存文字は使用しないでください
種類
title
link先url
EOL &endhp; } print "\n"; exit;