#!/usr/bin/perl #パラメータ設定 # 99/07/03 update(v5.1) by 普通 #==================================================================== #ご協力を頂いた方 #oidon #==================================================================== sub env_init { $password = 'pass';#●管理者殿用パスワード設定 #各ファイルへのパス設定 #######　追加項目　####################### $flbase = 'non';#GET URLを持たないフラッシュムービー「ファイル名はnonanimal00*.swfとなってます」変更可能 ###################################### $fbase = '';#データファイル $sbase = '';#スクリプトファイル $gbase = '';#画像ファイル $abase = '';#ＡＵファイル $lkf_base = '';#排他制御ファイル #●Ｃｈａｔ表紙からの戻りＵＲＬ $url1 = 'http://zoochat.system.to'; #●退室後の戻りＵＲＬ（chat_top.cgi） $url2 = 'http://zoochat.system.to/test/chat_top.cgi'; #ヘルプメニューの参照 $urlhelp = "http://www4.airnet.ne.jp/milkkids/chat/zoo050f/zoohelp.html"; #●フレーム利用時の自動リロードＵＲＬ（chat_start.cgi） $rurl1 = 'http://zoochat.system.to/test/chat_start.cgi'; #●待機時の自動リロードＵＲＬ（chat_wait.cgi） $rurl2 = 'http://zoochat.system.to/test/chat_wait.cgi'; ################　追加項目　########### $ficon = 'y';#部屋表現をフラッシュアイコン画像にするために必ず[y]にしてください ################################# $icon = 'n';#部屋表現をアイコン画像にするか否か（非アイコン時は「n」） #画像アイコンは使わないので必ずnにしてください。 ####################################### ###############　変更箇所　############## ############### オリジナルスクリプト########## #$title = 'ZOO CHAT FLASH';#Ｃｈａｔタイトル ################################################### ################変更後########################### #見出しのショックウエーブフラッシュを表示させるスクリプトです。 #現在title.swfになってますが自作で作られる場合はそのファイル名にしてください。又その際は、WIDTH=535 HEIGHT=71の変更も忘れないようにしてください。 ########################################### $title = ' ';#Ｃｈａｔタイトルフラッシュ ##################　変更はここまで　###################### @room_list = ('001','002','003','004','005','006');#部屋番号リスト $max = 50; #記録する発言数 $dmax = 18; #表示する発言数 $lmax = 200; #参加状況履歴（入室／退室）記録数 $remote_host = 0; #リモートホスト表示（0:非表示　1:表示) #発言色変更範囲 $cend1 = ''; #名前のみ $cend2 = ''; #発言全文字 $rel_time = 3600; #自動退室までの時間（秒） $rtime = '45'; #リロード時間間隔（待機時のみ有効） $hp_bcolor = '';#表紙ページの背景色設定 $ccolor_smp='●'; #発言文字色選択の色サンプル表示文字 $memb_list = '1'; #非ＲＯＭ／パスワード付き部屋での入室者表示（0:非表示1:表示) $log = '0'; #入室ログ採取(0:採取しない 1:採取する) $logbase = 'inlog'; #入室ログプリフィックス $logdir = './log/'; #入室ログファイルパス $inpass_lng = '15'; #入室パスワード桁数 $guid_msg = '1'; #ご案内メッセージ表示（0:非表示1:表示) @ng_ipa = (); #入室拒否ＩＰアドレスリスト @ng_rmh = (); #入室拒否リモートホスト名リスト $ng_overall = '0'; #アクセス制限レベル（0:入室拒否1:表示拒否) $title2 = 'ZOO CHAT';#Ｃｈａｔタイトル（各ページの部です） #会話でのあいこん利用(空:利用しない1:利用する(新しくブラウザを開く)2:利用する(新しくブラウザは開かない)) $ic_chat = ''; $icbase = '../icon/';#あいこん画像ファイルパス $tcolor = '#BBBBBB';#<4.2>発言後ろの日時部分の文字色設定 $ranking = ''; #<4.2>発言ランキング(空:利用しない1:利用する) $func_prof = ''; #<4.5>プロフィール機能(空:利用しない1:利用する) $pfbase = ''; #<4.5>プロフィールデータファイルパス $prof_env = '1'; #<4.5>(1:プロフィール優先2:入室優先) $func_dmsg = ''; #<4.6>伝言機能(空:利用しない1:利用する) $dfbase = ''; #<4.6>伝言データファイルパス $dmsg_env = '1'; #<4.6>(1:？2:？) $dmsg_max = '10'; #<4.6>伝言預かり最大件数（１人当たり） $func_mail = ''; #<4.6>メール発信機能(空:利用しない1:利用する) $mail_env = '1'; #<4.6>(1:？2:？) $rom_disp = ''; #<4.7>ＲＯＭ表示機能(空:利用しない1:利用する) $rom_name = $ENV{'REMOTE_ADDR'};#<4.7>ＲＯＭ者表示（$ENV{'REMOTE_HOST'}） $rom_time = '45'; #<4.7>ＲＯＭ者整理時間(単位は秒) $rom_nmmd = '1'; #<4.7>ＲＯＭ表示モード(空:$rom_name表示1:人数表示) $func_rmenv = ''; #<4.8>部屋属性一覧(空:利用しない1:利用する) $func_lglst = ''; #<4.8>参加履歴照会(空:利用しない1:利用する) $aout_time = 1200; #<4.8>個人毎自動退室時間(単位：秒) $FLK = 1; #ここは基本的に変更しないで下さい。 $bgmode = '1'; #<5.0>非フレーム<BODY>タグ設定モード(1:上窓設定利用、2:下窓設定利用) $u_frame = '20%'; #<5.0>フレーム表示時の上窓割合 $d_frame = '80%'; #<5.0>フレーム表示時の下窓割合 $tag_usefnc = ''; #<5.0>一部タグ利用の許可（空：しない1：する） $dic_usefnc = ''; #<5.0>辞書設定（空：利用しない1:部屋共通2:部屋毎） $dic_base = './dic/'; #<5.0>変換辞書ファイルパス $func_bordw = ''; #<5.0>待合室掲示板(空:利用しない1:利用する) $bordw_url = "${sbase}zcarucha.cgi";#<5.0>待合室掲示板ＵＲＬ $func_icq = ''; #<5.1>Ｃｈａｔ管理者ＩＣＱＣＡＬＬ(空:利用しない1:表紙利用2:表紙＆部屋利用) $func_pricq = ''; #<5.1>プロフィール＆ＩＣＱ連携(空:利用しない1:利用する) } 1; __END__