Favorite Weblink

◇必ず設定◇は必要最低限の設定です。またパーミッションの設定も確実に行ってください。


#!/usr/local/bin/perl
#↑perlの位置:プロバイダにより異なります。詳細は各プロバイダにお聞きください。
#

#日本語コード変換モジュール
require 'jcode.pl';
#初期設定
#空のデータファイル パーミッション 設定666 [606 安全度が高い]
(はじめにパーミッション666で設定してください。動作するようでしたら606にしてみる) $datafile = 'weblinks.log';
#スクリプトネーム パーミッション 設定755 [705 安全度が高い]
(はじめにパーミッション755で設定してください。動作するようでしたら705にしてみる) $thisurl = 'weblinks.cgi';
#ホームページページアドレスまたは戻りたいページアドレスをフルパスで入れる
$homepage = 'http://www.xxxxx.xx.jp/xxxxx.html';◇必ず設定◇
#1つ前に戻す
$backurl = 'javascript:history.go(-1)';
#メールアドレスを入れる
$mail_to = 'xxxxx@xxxxx.xx.jp';◇必ず設定◇
#スクリプトタイトル名
このスクリプトに付けるタイトル名を入れる $sc_name = '';
#相互リンク画像
$sougo = 'img/sougo.gif'; #入れたい画像とチェンジ可能
#タイトル画像
$title_img = 'img/favo_title.gif'; #入れたい画像とチェンジ可能
#---------------------------------------------------------------------------------------+
#最大タイトル名の文字列[半角]
$titlelength = '36';
#最大説明文の文字列[半角]
$maxlength = '80';
#管理者パスワード パスワードは必ず変えてください。
$password = 'O123a';
#1ページに表示するリンク件数
$pagevew = '15';
#最大リンク登録数($maxを越えた古いリンク順には削除になります。)
$max = '500';
#カテゴリー
4つのカテゴリーに分けてお使いください。 $kind_a = 'HP作成を支援';  #使いたいカテゴリに変更する
$kind_b = 'ビジネスと経済';   
$kind_c = '趣味のページ';
$kind_d = '検索・リンク集';
#---------------------------------------------------------------------------------------+
#TEXT COLOR
#強調
$powers = 'red'; #強調したい文字色にする
#タイトルテーブル背景&文字(現在ご覧になっているページの設定と同じ)
$ttbl_colr = '#008080'; #タイトル背景色
$midashi = 'snow'; #カテゴリー別タイトル文字
#基本HTMLページプロパティ色(現在ご覧になっているページの設定と同じ)
$bg_colr = '#aad5d5'; #背景色
$text_colr = '#000000'; #文字色
$link_colr = 'blue'; #リンク文字色
$alnk_colr = '#ff0000'; #選択リンク色
$vlnk_colr = '#008080'; #既読文字色
#リンク表示枠 テーブル内の各設定をします。
$waku_moji = '#000000'; #リンク枠見出し文の文字色(Link Banner.Title&Contents)
$waku_a = 'gold'; #リンク枠見出しバナー(Link Banner)部分
$waku_b = 'red'; #リンク枠見出しタイトル部分(Title&Contents)
$waku_c = '#008080'; #リンク表示バナ−部分
$waku_d = '#008080'; #リンク表示タイトル説明部分
$point = 'gold'; #ワード検索の表示部分最初のポイント色
#---------------------------------------------------------------------------------------+
#代理バナー画像(画像までのフルパス)
バナーをお持ちでない方用の代理バナーを表示させる $no_baner = 'http://xxx.xxxxx.xx.xx/xx/img/no_banner.gif';◇必ず設定◇
#再読み込み
リロードアドレスは下記で動作しないプロバイダがあります。その場合はスクリプトまでの フルパスをお書きください。 $reload = "http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}";
#---------------------------------------------------------------------------------------+

セキュリティの設定は必要になった場合設定をしてください。最初はデフォルト設定で制限はありません。
#セキュリティ設定 
# ホスト名取得
#$ENV{'REMOTE_HOST'} で取得の場合 '0' gethostbyaddr で取得の場合 '1'
$get_remote = '0';
# 登録時のアクセス制限をする、
# ホスト名またはIPアドレスからアクセス制限する場合('ホスト名を記述')
$limit_a = ''; #(制限時 = '1')
@REFUSE = ('*.anonymizer.com',' ',' ',' ',' ',' ');
' '内に制限したいホスト名を入れてください。 # メール禁止アドレス('フリーメールでの投稿排除')
$limit_b = ''; #(制限時 = '1')
@LETTER = ('@freemail.ne.jp','@hotmail.com',' ',' ');
制限したいメールアドレスをお入れください。 # 禁止用語による書き込み拒否 ('語句を記述')
$limit_c = ''; #(制限時 = '1')
説明文に指定した語句が入っている場合に排除し登録を拒否します。 @WORD = ('アダルト','ロリコン','自殺','無修正','殺','馬鹿 ',' ',' ',' ');

アクセスを制限かける場合は充分な情報を入手してから行ってください。
むやみに制限をかけても何の意味もありません登録が減少するばかりです。

設置・質問等はこちらにどうぞ、メールによる質問等は一切受け付けておりません
最後にこのスクリプトはすべてのプロバイダ等で動作するとは限りませんので悪しからず。