#! /usr/bin/perl
###########################################################################################
#----------------#
# 初期設定 #
#----------------#
# arg_list に選択された会社名が入る
$arg_list = $ARGV[0];
# htmlのタイトル
$title1 = '外資系企業のABC（アルファベット）検索';
$title2 = '外資系企業の業種別検索';
$opt_index = "../optuni/indexopt1.html";
# このスクリプトをＵＲＬで設定
$reload = 'seek_genzai.cgi';
# GIF
#$lnkdirect_gif = "../images/dir21.gif";
#$lnkdirect2_gif = "../images/dir21.gif";
#$lnkdirect3_gif = "../images/dir21.gif";
$lnkdirect_gif = "../images/dir_2004.gif";
$lnkdirect2_gif = "../images/dir_2004.gif";
$lnkdirect3_gif = "../images/dir_2004.gif";
$direc1_gif = "../images/direc1.gif";
$direc2_gif = "../images/direc2.gif";
$direc3_gif = "../images/direc3.gif";
# 画面に張る「戻る」リンクをＵＲＬで設定（相対設定でも可）
$modoru = 'index.html';
# クッキーを格納する名前を設定する
# 複数の簡易ＢＢＳまたは他スクリプトで同じ名前のクッキーを使用すると弊害がある場合があります。
# 任意の英数字を設定します。クッキー機能はサーバが対応していなければ動作しませんが、
# この掲示板のその他の動作に影響はありません。複数設置する場合はこの名前を別々に付けます。
# 半角英数字であれば名前は何でも構いません。
$cookie_name = 'userID-minibbs';
# ■おしらせ
#
# 投稿したら「他サイトからの投稿はできません」というメッセージが表示されてしまった
# 場合は、このスクリプトの下の方にある「■注」を読んで対処してください。
#-----------------------------------------------------------------------------------------#
#--- 必要に応じて設定する項目 ------------------------------------------------------------#
# タグを使えるようにするかどうかの設定
# については入力フォームが用意してあるので、いたずらやタグの
# 閉じ忘れ等による混乱を避けるためにできるだけ使えないようにしておくことをお勧めします。
# 使える:1 使えない:0
$tag = 0;
# 文字色や背景などの設定（通常のタグ）
# １ページに表示する件数
$def = 10;
# 書き込み件数の最大登録数の設定です。この件数を超えると、古いものから削除されていきます。
# ページ処理機能が付きましたので、この件数を大きくしても一度に表示される記事数は限定されます。
# 記録されたファイルの巨大化を防止する為に、ある程度の件数で自動削除されるようにします。
$max = '100';
# 日本語コード変換ライブラリ
#require "jcode.pl";
# 会社ファイル
$file = "kaisya.dat";
if ($arg_list eq 'MIDASI1') {
&html11;
exit;
}
if ($arg_list eq 'MIDASI2') {
&html12;
exit;
}
if ($arg_list eq 'MIDASI3') {
&html13;
exit;
}
&html99;
exit;
&html2;
&html99;
sub html99 {
chdir("cgi-ttinews");
print "Content-type: text/html\n\n";
print <<"HTML";
折り返し
外資系企業に戻る
HTML
exit;
}
&html11;
sub html11 {
chdir("cgi-ttinews");
#--- クッキーの取得（独自方式）-----------------------#
#--- 入力フォーム画面 --------------------------------#
# ＣＧＩで出力されたデータをＨＴＭＬとして認識させるヘッダの出力
print "Content-type: text/html\n\n";
print "$title1\n";
print "\n";
# print "
\n";
print "
\n";
print "
\n";
print "
\n";
# print "☆求人のある企業は太字で\表\記しています。
\n";
print "
\n";
print "編集 株式会社リンクスペース
\n";
# print "お問合せ 03-3705-6242
\n";
print "お問合せ support\@linkspace.co.jp
\n";
print "\n";
exit;
}
&html12;
sub html12 {
chdir("cgi-ttinews");
#--- クッキーの取得（独自方式）-----------------------#
#--- 入力フォーム画面 --------------------------------#
# ＣＧＩで出力されたデータをＨＴＭＬとして認識させるヘッダの出力
print "Content-type: text/html\n\n";
print "$title2\n";
print "\n";
# print "\n";
# print "
\n";
print "
\n";
print "
\n";
print "
\n";
# print "☆求人のある企業は太字で\表\記しています。
\n";
print "
\n";
print "編集 株式会社リンクスペース
\n";
# print "お問合せ 03-3705-6242
\n";
print "お問合せ support\@linkspace.co.jp
\n";
print "\n";
exit;
}
&html13;
sub html13 {
chdir("cgi-ttinews");
#--- クッキーの取得（独自方式）-----------------------#
#--- 入力フォーム画面 --------------------------------#
# ＣＧＩで出力されたデータをＨＴＭＬとして認識させるヘッダの出力
print "Content-type: text/html\n\n";
print "$title2\n";
print "\n";
# print "
\n";
print "
\n";
print "
\n";
print "
\n";
print "☆求人案内の詳細に関しては求人企業に直接お問い合わせ下さい。
\n";
print "
\n";
print "編集 株式会社リンクスペース
\n";
print "お問合せ support\@linkspace.co.jp
\n";
print "\n";
exit;
}
#
#
# arg_list の会社名のホームページを作成する
#
#
&html2;
sub html2 {
chdir("cgi-ttinews");
$arg_list =~ s/ //g; # スペースを取り除く
$arg_list =~ s/\0//g; # null を取り除く
if (!open(DB,"$file")) {
print "file error\n";
&error(0);
}
while(){
chop;
($kcode, $kanji,$eng,$zip,
$adr1,$adr2,$tel_no,$secter,
$seturitu, $jyuu, $gaiyou,
$an1, $an2, $an3, $kyuujin, $bkcols, $dmy, $url) = split(/\t/);
$value =~ s/\0/\,/g; # ヌルコードに変換記録した半角カンマを復帰させる
# chop($bkcols) if $bkcols =~ /\n/;
chop($url) if $url =~ /\n/;
# $kcode =~ s/\"/\0/g; # "をスペースに変換する。
$kcode =~ s/\0//g; # null を取り除く。
if($kcode eq $arg_list){
#--- 入力フォーム画面 --------------------------------#
# ＣＧＩで出力されたデータをＨＴＭＬとして認識させるヘッダの出力
print "Content-type: text/html\n\n";
print "会社情報\n";
print "\n";
if($bkcols eq ""){
print "\n";
} else {
print "\n";
}
print "
\n";
print "
\n";
print "\n\n";
print "\n\n\n
\n";
print "\n\n$kanji\n";
print "\n
\n";
print "\n$eng\n
\n";
print "〒$zip
\n";
print "$adr1 $adr2
\n";
print "\n";
print "\n\代\表\電\話 : $tel_no
\n";
print "\nURL : \n";
$link_url = sprintf("http://%s", $url);
print "$url
\n";
print "\n";
print "\n";
print " \n";
print " | 設立年月日 | \n";
print " $seturitu | \n";
print "
\n";
print " \n";
print " | 従業員数 | \n";
print " $jyuu | \n";
print "
\n";
print " \n";
print " | 概要 | \n";
print " | \n";
print "
\n";
print " \n";
print " | \n";
print " $gaiyou | \n";
print "
\n";
print "
\n";
print "
\n";
print "\n";
print "\n";
if($an1 ne ''){
print "\n";
print "| $an1 | \n";
print "
\n";
}
if($an2 ne ''){
print "\n";
print "| $an2 | \n";
print "
\n";
}
if($an3 ne ''){
print "\n";
print "| $an3 | \n";
print "
\n";
}
print "
\n";
print "
\n";
print "\n";
if($kyuujin > 0){
print "\n□";
print "\n\n人材募集中\n\n\n";
print "\n
\n";
}
print "
\n";
print "\n";
print " \n";
print " \n";
print "
\n";
print " Copyright ©2005Linkspace Co., \n";
print " Ltd. All Rights Reserved.
\n";
print " このサイトは株式会社リンクスペースによって管理・運営 されています.
\n";
print " 無断転載一切禁止 \n";
print " | \n";
print "
\n";
print "
\n";
print "\n";
print " \n";
print " \n";
if($secter eq "BKF" or $secter eq "SCF" or $secter eq "TBF" or
$secter eq "IAF" or $secter eq "ITF" or $secter eq "IIF" or
$secter eq "COF" or $secter eq "LIF" or $secter eq "VCF" or
$secter eq "LOF" or $secter eq "IAF,ITF"){
print " \n";
print " ![](\"../banner/tti.gif\") \n";
print " \n";
} else {
print " \n";
print " ![](\"../banner/linkspace_bgwhite_463.gif\") \n";
print " \n";
}
print " | \n";
print "
\n";
print "
\n";
print "\n";
}
}
close(DB);
exit;
}
#end_of_script