#!/usr/bin/perl #パラメータ設定 # 99/1/31 update(v4.5) 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"; #●フレーム利用時の自動リロードＵＲＬ（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';#Ｃｈａｔタイトル ################################################### ################変更後########################### #見出しのショックウエーブフラッシュを表示させるスクリプトです。 #現在title.swfになってますが自作で作られる場合はそのファイル名にしてください。又その際は、WIDTH=535 HEIGHT=71の変更も忘れないようにしてください。 ########################################### $title = ' ';#Ｃｈａｔタイトルフラッシュ ##################　変更はここまで　###################### @room_list = ('001','002','003','004');#部屋番号リスト $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 = './profile/';#<4.5>プロフィールデータファイルパス $prof_env = '1';#<4.5>(1:プロフィール優先2:入室優先) } 1; __END__