########追加########
# IIS対策
if ($ENV{'SERVER_SOFTWARE'} =~ /IIS/i) {
local($chdir) = $0;
$chdir =~ s/[^\\]*$//;
chdir($chdir);
}
########追加########
#print "$ENV{'SERVER_PROTOCOL'} 200 OK\n" if($ENV{'PERLXS'}eq"PerlIS");
# オホーツクタウンサイトリンク集 作成日2003/08/18
#============#
# 基本設定 #
#============#
require './jcode.pl'; # 文字コードライブラリ取り込み
$title = "オホーツクWeb ~ オホーツクリンク"; # タイトル名
$script = "search-town.pl"; # スクリプト名
$logdir = "datafile"; # ログファイルを置くディレクトリ
$newfile = "./datafile/new.dat"; # 新着情報ファイル
$style_file = "/ow-pink.css"; # スタイルシート
$backimg = "../../img/st07_bg.gif"; # 背景画像ファイル
$titleimg = "../../img/ptitle-oho-link.gif"; # ページタイトル画像ファイル
$subtitleimg = "../../img/ow-ptitle-p.gif"; # ページタイトル画像ファイル
$catmax = 36; # 最大文字色数X3
#登録サイト分類
@cat = ('3','オホーツク情報','#FF0066','4','北海道内情報','#669900','5','道外情報','#FFAA00');
# 登録方式
# 0 : 管理者が登録する
# 1 : ユーザに登録させる
$regist = 1;
$w_url = 0; # 同一URLの二重登録を許可する (0=no 1=yes)
$home = "http://www.okhotsk.or.jp/okindex.shtml"; # 戻り先 (絶対パスなら http://から)
$max = 500; # 最大登録件数 --> 登録件数がこれを超えると「新規登録」「新着情報」を停止
$method = 'POST'; # methodの形式 (POST or GET)
$msg_limit = 300; # 紹介コメントの制限文字数(全角文字)
$newtime = 20; # NEWアイコンの表示日数
$w_new = 10; # 新着情報の最新表示件数
$p_view = 200; # 登録内容の1ページ当りの表示数
$prtnum = 2; # カテゴリの列数
$lockkey = 0; # ロックファイル (0=no 1=symlink関数 2=open関数)
$lockfile = "./search-town.lock"; # ロックファイル名(フルパスだと / から記述する)
$mailing = 2; # メール通知 (0=no 1=登録者のみ 2=登録者と管理者へ通知) --> sendmail必須
#$sendmail = '/usr/lib/sendmail'; # sendmailのパス
$admin_mail = 'town@okhotsk.or.jp'; # 管理者メールアドレス(メール通知する時)
#$admin_mail = 'kiyonaga@okhotsk.or.jp'; # 管理者メールアドレス(メール通知する時)
$admin_name = 'オホーツクWEB管理者'; # 管理者名(メール通知する時)
$admin_url = 'http://www.okhotsk.or.jp/'; # 管理者のURL(メール通知する時)
#add (S.Kiyo 02/04/08)##########################################################################
#$mailprog = "e:\\blatj\\blatj.exe";
$mailprog = '/blatj/blatj.exe';
$mserver = '-server mail.okhotsk.or.jp';
$sendtxt = "e:\\cgi-bin\\search-town\\mail.txt";
################################################################################################
# 登録アクセス拒否 --> 新規登録処理をホスト名から拒否
@deny = ('ppp*.xxx.co.jp','cache.xxx.com','*.xxx.yyy.zzz');
# 禁止ワード
@WORDS = ('ばか','バカ','アダルト','クレジット','キャッシング','出会い','少女','いけないこと','援助交際','援交','人妻','セフレ','セックス','若妻','マダム','メル友','セレブ','ハレンチ','団地妻','SEX','SEX','痴態','性器','喘ぎ','主人様','ナンパ','SM','SM','ボディコン');
# 登録禁止URL
@EXCURL = ('all-0yen.net', '0mail.ath.cx', 's1.freexy.net', 'enko.s1.freexy.net', 'kinyou.org', '01.rknt.jp', 'peps.jp', 'sp-rank.com', 'ezra.jp', 'cyber-rank.jp', 'mega-r.com', 'o-oku.jp', 'mrank.tv', 'nusutto.jp', 'suppa.jp', 'okoshi-yasu.com', 'mmmproject.web.fc2.com','01s.rknt.jp','005shop.fc2web.com','1000man.biz','s1.shard.jp','kenshou.mobi','i-official.com','web.fc2.com','iinaa.net','jpn.org','sp-rank.com','gooside.com','ddo.jp');
# ホスト名取得モード
# 0 : $ENV{'REMOTE_HOST'} で取得できる場合
# 1 : gethostbyaddr で取得できる場合
$get_remotehost = 0;
# 以下は分類(ジャンル)の指定 --> 変数のカギ括弧内は 0 から連番で続ける
$parts[0] = "ショッピング";
$parts[1] = "情報";
$parts[2] = "店舗";
$parts[3] = "住まい";
$parts[4] = "観光";
$parts[5] = "グルメ";
$parts[6] = "美容ブライダル";
$parts[7] = "地域情報";
$parts[8] = "医療";
$parts[9] = "食品";
$parts[10] = "車両";
$parts[11] = "農業";
$parts[12] = "教育";
# 20061121 非表示
$parts[13] = "その他";
# サブカテゴリ (半角スペースで区切る)
$subpt[0] = "農産物 海産物 生き物 衣料 食品 雑貨おもちゃ";
$subpt[1] = "音楽・楽器 グルメ 写真 花 温泉 料理 教育関連";
$subpt[2] = "銃 スポーツ カジュアル ダイビング 家具";
$subpt[3] = "住宅 設備 ガーデニング リフォーム 建設機械関連 賃貸";
$subpt[4] = "ホテル 旅行 アウトドア 釣り";
$subpt[5] = "飲食店";
$subpt[6] = "美容室 ブライダル";
$subpt[7] = "団体 企業";
$subpt[8] = "団体 病院・医院 治療院";
$subpt[9] = "海産 農産 肉加工品 麺類";
$subpt[10] = "車両販売 運輸";
$subpt[11] = "JA 肥料 農業 やさい";
$subpt[12] = "保育幼稚園 高校";
# 20061121 非表示
$subpt[13] = "政治団体 政治";
# --- 環境設定
$bground = ""; # 壁紙(http://から記述)
$bgcolor = "#FFFFFF"; # 背景色
$text = "#000000"; # 文字色
$link = "#0000FF"; # リンク色(未訪問)
$vlink = "#0000FF"; # リンク色(既訪問)
$alink = "#DD0000"; # リンク色(訪問中)
# NEWアイコン
$newgif = "./new.gif";
$new_w = '16'; # 〃 横サイズ
$new_h = '7'; # 〃 縦サイズ
# お薦めアイコン
$recom = './recom.gif';
$rec_w = '16'; # 〃 横サイズ
$rec_h = '16'; # 〃 縦サイズ
#============#
# 設定完了 #
#============#
&decode;
if ($mode eq 'new_sort') { &new_sort; }
if ($mode eq 'new_url') { &new_url; }
if ($mode eq 'regist') { ®ist; }
if ($mode eq 'mente') { &mente; }
if ($mode eq 'do_mente') { &do_mente; }
if ($mode eq 'search') { &search; }
if ($mode eq 'part') { &part_view; }
&html_view;
exit;
#------------#
# 初期画面 #
#------------#
sub html_view {
&header;
print "
\n";
print "\n";
#カテゴリごとの登録件数をカウント
foreach (0 .. $#parts) {
$count = 0;
open(IN,"$logdir\/$_\.dat") || &error("Open Error : $_\.dat");
while ($line = ) { $count++; }
$datcount[$_] = $count;
}
$i = 0; $w = 0;
#カテゴリの表示
foreach (0 .. $#parts) {
@SUB = split(/\s+/, $subpt[$_]);
if (!$w) {print "";}
if ($w <= $prtnum - 1) {
print "\n";
print "\n";
print "\n";
print "▼ ";
print "";
print "$parts[$_] ($datcount[$_])\n | \n";
print " \n";
print "\n";
print "";
$k=0;
foreach $x (@SUB) {
print "[$x]\n";
$k++;
}
print " | | \n";
}
else {
print " | \n";
}
$i++; $w++;
if ($i > $#parts || $w == $prtnum) { print "
"; $w = 0; }
}
print "