#!/usr/local/bin/perl
use CGI::Carp qw(fatalsToBrowser); # エラー原因を探すときはこの行を有効にしてみること
# 1998.04.19 V1.00 初版
# 1998.05.24 V1.01 URL変更の処理見直し
# 1998.05.27 V1.02 チルダ(~)を含むURLを変更できないバグを修正
# 1998.08.02 V1.03 HP MAKINGDIRECTORY から URLの広場 に改名
# 1999.05.23 V1.04 $return_urlを指定可能にした
# 1999.06.06 V1.05 nkfを使用しないようにした
# 1999.06.06 V1.06 ホームページ関連情報を含むチェックを確認するようにした
#このCGIスクリプトのオリジナルは、杜甫々氏のURLの広場です。
#http://www.wakusei.ne.jp/tohoho/www.htm
#オリジナル版では、誰でも自由に登録できますが、この改造版では、
#パスワード機能により、設置者にしか登録できません。
#これにより、厳選されたリンク集を構築するのに適するような気がします。
#
#パーミッション
#+- wwwhpmd(777) ディレクトリ
#| |
#| +-- 1000.txt(666)
#|
#+- wwwhpmd.cgi(755)
#============================================
# 2002.06.01 管理人登録限定版に改造
#
#
#
#
#============================================
# データファイルのフォーマット
# $x[0] = URL
# $x[1] = TITLE
# $x[2] = EMAIL
# $x[3] = NAME
# $x[4] = COMMENT
# $x[5] = DATE
# $x[6] = COUNT
############################################################
# ■設定ここから■
############################################################
$return_url = '../index.html';
#メールアドレス
$mailad = '';
#パスワード
$passward = 'pass';
$title = 'リンク集';
$body = "";
############################################################
# ■設定ここまで■
############################################################
# 漢字コード変換ライブラリ
require "./jcode.pl";
# flock()のパラメータ
$READ = 1;
$WRITE = 2;
$UNLOCK = 8;
#
# メインルーチン
#
{
# %7e(~)を含む場合のCGI引数は信用できないので自前で生成する
if ($ENV{'REQUEST_METHOD'} eq "GET") {
@ARGV = split(/\+/, $ENV{'QUERY_STRING'});
for ($i = 0; $i <= $#ARGV; $i++) {
$ARGV[$i] =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
}
}
if ($ENV{'REMOTE_ADDR'} eq "127.0.0.1") {
$script = "http://127.0.0.1/cgi-bin/wwwhpmd.cgi";
} else {
$script = "./wwwhpmd.cgi";
}
if ($#ARGV == -1) {
&printList;
} elsif ($ARGV[0] eq "dsp") {
&dspItem;
} elsif ($ARGV[0] eq "new") {
&newItem;
} elsif ($ARGV[0] eq "add1") {
&addItem1;
} elsif ($ARGV[0] eq "add2") {
&addItem2;
} elsif ($ARGV[0] eq "mod1") {
&modItem1;
} elsif ($ARGV[0] eq "mod2") {
&modItem2;
} elsif ($ARGV[0] eq "mod3") {
&modItem3;
} elsif ($ARGV[0] eq "mod4") {
&modItem4;
} elsif ($ARGV[0] eq "del1") {
&delItem1;
} elsif ($ARGV[0] eq "del2") {
&delItem2;
} elsif ($ARGV[0] eq "del3") {
&delItem3;
} elsif ($ARGV[0] eq "jump") {
&jumpItem;
} elsif ($ARGV[0] eq "find") {
&findItem;
}
}
#
# ディレクトリ一覧
#
sub printList {
&printHead("$title");
# print "
\n";
print "おすすめサイト等へのリンクです。\n";
# print "ホームページ作成関連情報を含むURLを自由に登録・参照してください。\n";
# print "
カテゴリの追加も自由に行うことができます。\n";
print "
\n";
print "[戻る]\n";
print "[新着情報]\n";
print "[URL登録]\n";
print "[URL変更]\n";
print "[URL削除]\n";
print "
\n";
print "\n";
open(LOC, "> wwwhpmd/wwwhpmd.loc");
eval { flock(LOC, $READ); };
opendir(DIR, "wwwhpmd");
while ($file = readdir(DIR)) {
if (!($file =~ /\.txt$/)) {
next;
}
$icnt = 0;
open(IN, "wwwhpmd/$file");
$category = ;
chop($category);
while () {
$icnt++;
}
close(IN);
$category_list[$ccnt++] = "$category\t$category ($icnt)";
}
closedir(DIR);
# カウンタアップ
open(IN, "wwwhpmd/wwwhpmd.cnt");
$count = ;
close(IN);
chop($count);
$count++;
open(OUT, "> wwwhpmd/wwwhpmd.cnt");
print OUT "$count\n";
close(OUT);
eval { flock(LOC, $UNLOCK); };
close(LOC);
@category_list = sort { $a cmp $b } @category_list;
print "括弧内の数字は登録URL件数を示します。\n";
print "\n";
for ($i = 0; $i < $ccnt; $i++) {
@x = split(/\t/, $category_list[$i]);
print "- $x[1]\n";
}
# print "
\n";
# print "
- URL登録でカテゴリの追加も可能\です。\n";
print "
\n";
print "
\n";
print "[戻る]\n";
# print "[新着情報]\n";
# print "[URL登録]\n";
# print "[URL変更]\n";
# print "[URL削除]\n";
print "
\n";
# print "問題などありましたら、";
# print "$mailad";
# print "までご連絡ください。\n";
©right;
print "\n";
print "