HTTP 500 - 內部伺服器錯誤 |
缺席
|
izr0205
一般會員 發表:1 回覆:0 積分:0 註冊:2002-08-23 發送簡訊給我 |
我去下載別人做好的cgi程式~
我修改了基本資料~也修改了屬性~
但是他就是會出現HTTP 500 - 內部伺服器錯誤~
為什麼會這樣ㄋ???
我的主檔是honey.cgi
↓以下是檔案內容
==================================================================
#!/usr/local/bin/perl ## Honey Board v1.63 (2001/03/05)
## Copyright(C) Kent Web 2001
## Mail: webmaster@kent-web.com
## Home: http://www.kent-web.com/ $ver = 'Honey v1.63'; #此cgi程式版本 #============#
# 設定開始 #
#============# #留言板名稱
$title = "星雁ㄟ留言板"; #標題顏色
$t_color = "#DD0000"; #標題字型
$t_face = "標楷體"; #標題文字大小
$t_point = '18pt'; #本文字體大小
$b_size = '10pt'; #主程式名稱
$script = "./honey.cgi"; #留言記錄檔
$logfile = "./honey.log"; #管理密碼
$pass = 'test'; #最大保留篇數(超出的留言會自動刪除)
$max = 150; #首頁網址
$home = "http://www.acewake.com/jalina/index"; #圖片放置目錄(可用絕對路徑http://)
$imgurl = "./img"; #預設字型
$face = "Arial"; #文字及背景顏色;壁紙
$bgrnd = ""; #壁紙
$bgcol = "#FFFFFF"; #背景顏色
$text = "#779DC1"; #文字顏色
$link = "#6E84B9"; #連結文字顏色(未訪問)
$vlink = "#6E84B9"; #連結文字顏色(已訪問)
$alink = "#E68A95"; #連結文字顏色(訪問中)
$hr_color = "#83AACE"; #分格線顏色 #留言表格顏色設定
$in_color = "#92B9DA"; #框線顏色
$in_bgcolor = "#ffffff"; #表格底色
$tx = "#AFAFAF"; #表格裡文字顏色 #留言編號顏色(No的顏色)
$onepnt = "#E37E7E"; #留言主題顏色
$sun_color = "#77A78D"; #留言文字顏色
@colors = ('#93AFD3','#8AA180','#AFAFAF','#A492AD',
'#EBA3BB'); #留言框線顏色(1=藍色 2=綠色)
$oya_sita = 1; #主留言
$res_sita = 2; #回覆的留言 #信箱是否為必填項目(0=no 1=yes)
$in_email = 0; # method形式(POST/GET)
$method = 'POST'; #留言更新 method=POST (0=no 1=yes)
# -->避免連續送出留言
$MethPost = 0; #同一個IP連續留言間隔時間
# -->可避免連續送出留言
# -->0 為無效之數值
$wait = 3; #html語法使用(0=no 1=yes)
$tagkey = 0; #URL自動連結功能(0=no 1=yes)
# -->若開放html語法時請選擇no
$autolink = 1; #每一頁顯示留言篇數
$p_log = 10; #最新的回覆顯示在最上方(0=no 1=yes)
$top_sort = 0; #關數使用(0=no 1=yes)
$gethostbyaddr = 0; #(0=no 1=symlink關數 2=open關數)
#-->若選擇使用關數則會形成lock檔案
#lock屬性請設成777
$lockkey = 0; #lock檔案名稱
$lockfile = "./honey.lock"; #信件通知
# --> 0 : no
# --> 1 : yes 管理者自己的留言也通知
# --> 2 : yes 管理者自己的留言不通知
$mailing = 0; # sendmail發信路徑(若不清楚請詢問網站管理員)
$sendmail = '/usr/lib/sendmail'; #管理員信箱
$mailto = 'izr0205@ms65.url.com.tw'; #留言圖檔(名稱需與檔名排列配合)
@icon1 = (
'514_01.gif','514_02.gif','514_03.gif','514_04.gif','514_06.gif',
'514_07.gif','515_01.gif','515_02.gif','515_03.gif','515_04.gif');
@icon2 = (
'女孩1','女孩2','女孩3','女孩4','女孩5',
'女孩6','男孩1','男孩2','男孩3','男孩4'); #管理者專用圖檔
# -->管理者留言時必須填入管理者密碼方可使用管理者專用圖檔
$mgr_icon = "514_05.gif"; #廣告插入位置(FreeWeb)
#→<!--上--> <!--下-->請選擇你所要放廣告的位置
#→也可以插入MIDI或LimeCounter
$banner1 = '<!--上-->'; #上方橫幅廣告
$banner2 = '<!--下-->'; #下方橫幅廣告 #禁止進入的IP或主機名稱
@deny = (
"anonymizer.com",
"cache*.*.interlog.com",
"",
"",
"",
"",
"",
"",
""
); #使用圖檔標題
# -->圖檔URL可用http://
$ImgT = "img/tit.gif"; $ImgW = "157"; #圖檔寬度
$ImgH = "31"; #圖檔高度 #計數器
# --> 0=no 1=數字
2=GIF
$counter = 1; #計數器位數
$mini_fig = 5; #計數器文字顏色
$cnt_color = "#9873AE"; #計數器圖檔目錄
#目錄名最後必須要用/來結尾
$gif_path = "./img/";
$mini_w = 13; #圖檔寬度
$mini_h = 21; # 圖檔高度 #計數器記錄檔
$cntfile = './count.dat'; #============#
# 設定完成 #
#============#
################以下新手請勿修改########################
#
$imgurl =~ s/\/$//; &decode;
&axs_check;
if ($mode eq 'regist') { ®ist; }
if ($mode eq 'find') { &find; }
if ($mode eq 'howto') { &howto; }
if ($mode eq 'admin') { &admin; }
if ($mode eq 'usrdel') { &usrdel; }
if ($mode eq 'image') { ℑ }
if ($mode eq 'res') { &res_msg; }
&html; #----------------#
# 限制進入 #
#----------------#
sub axs_check {
# ,
閱r
&get_host; local($flag)=0;
foreach (@deny) {
if (!$_) { next; }
$_ =~ s/\*/\.\*/g;
if ($host =~ /$_/i) { $flag=1; last; }
}
if ($flag) { &error("很抱歉!你並未被允許進入!"); }
} #----------------#
# 留言板主頁 #
#----------------#
sub html {
&header;
#計數器位置
if ($counter) { &counter; }
print "
\n"; } print "
系統時間:2024-10-06 12:00:54
聯絡我們 | Delphi K.Top討論版
|