我有空間了 也有上傳程式 也有原碼(日文) 我現在該怎製作商人物語 請大大交我 謝謝
#!/usr/local/bin/perl
# ??? 2005/03/30 require './_config.cgi'; GetQuery(); RequireFile("inc-makeitem.cgi") if $Q{key} eq "makeitem"; ($MYDIR,$MYNAME)=($ENV{SCRIPT_NAME}=~/^.*\/([^\/]+)\/([^\/]+)$/); # &?/?? @log=(); OutError('?"?') if $MASTER_PASSWORD eq ''; OutError('????') if $ADMIN_EMAIL eq ''; OutError('') if ($MOVETOWN_ENABLE && !$TOWN_CODE); OutError('$DATA_DIR $DATA_DIR ??') if !-e $DATA_DIR; OutError('$SESSION_DIR $TEMP_DIR $LOG_DIR $BACKUP_DIR $SUBDATA_DIR ') if $SESSION_DIR eq '' || $TEMP_DIR eq '' || $LOG_DIR eq '' || $BACKUP_DIR eq '' || $SUBDATA_DIR eq ''; $checkdatadir=' ?? '.$DATA_DIR.' "0??'; if($Q{admin} ne $MASTER_PASSWORD) { $disp.=<<"HTML"; <FORM ACTION="$MYNAME" METHOD="POST"> <TABLE cellspacing="0" cellpadding="1" bgcolor="#6B6599" border="0"> <TBODY><TR vAlign=center align=middle><TD> <TABLE cellspacing="0" cellpadding="5" width="700" border="0"> <TBODY><TR><TD width="80" bgcolor="#ABA5FF" align="center"> <FONT color="#FFFFFF"><small>for Admin</small></FONT></TD> <TD align="center" bgcolor="#DBD5FF" colspan="2">?"? <INPUT TYPE=PASSWORD size=8 NAME=admin> <INPUT TYPE=SUBMIT VALUE="???"> ... <small><A HREF="http://akimono.org/"></A></small> </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></FORM> HTML } elsif($Q{mode} ne "") { RequireFile("inc-admin-func.cgi"); } else { RequireFile("inc-admin.cgi"); } OutHeader(); foreach(@log) { $_="<b>$_</b>" if substr($_,0,1) eq ' '; print $_."<br>"; } print $disp; print <<"HTML" if scalar(@log); <hr noshade size=1> <FORM ACTION="$MYNAME" METHOD="POST"> <INPUT TYPE="HIDDEN" NAME=admin VALUE="$Q{admin}"> <INPUT TYPE="SUBMIT" VALUE="???"> </FORM> HTML print "</center></BODY>"; print "</HTML>"; exit; sub OutHeader { print "Cache-Control: no-cache, must-revalidate\n"; print "Pragma: no-cache\n"; print "Content-type: text/html; charset=Shift_JIS\n\n"; print <<STR; <HTML><HEAD> <Style Type="text/css"> <!-- A:link { font-weight: bold; text-decoration:none} A:visited{ font-weight: bold; text-decoration:none} A:hover { font-weight: bold; text-decoration:underline;} FORM {margin: 2pt;} BODY,TR,TD,TH { font-family:"MS UI Gothic"; font-size:11pt; } BIG { font-weight: bold; font-size:11pt; color:#664499 ;} SPAN { font-weight: bold; font-size:11pt; color:#bb44bb ;} input,select,textarea{color:#000000;background-color:#FFFFFF;border:1 #5f5f8c solid} input.button{color:#000000;background-color:#FFFFFF;border:1 #5f5f8c solid} hr {color:#666666;} --> </Style> <TITLE>$HTML_TITLE:?</TITLE> </HEAD><BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#6050cc" VLINK="#6050cc" ALINK="#FF0000"> <center> <BIG> $HTML_TITLE ?</BIG><br><br> STR } sub GetQuery { my($q,@q,$key,$val); $q=""; if($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$q,$ENV{'CONTENT_LENGTH'}); } $q.="&".$ENV{'QUERY_STRING'}; @q=split(/&/,$q); foreach (@q) { ($key,$val)=split(/=/); $val =~ tr/\?/ /; $val =~ tr/+/ /; $val =~ s/\t/ /g; $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2",$1)/eg; $val =~ s/"/ /g; $val =~ s/'/ /g; $val =~ s/,/ /g; $val =~ s/[\r\n]//g; $Q{$key}=$val; } if($Q{u} ne '') { $Q{nm}=""; $Q{pw}=""; $Q{ss}=""; ($Q{nm},$Q{pw},$Q{ss})=split(/[!:]/,$Q{u},3); } } sub OutError { print "Cache-Control: no-cache, must-revalidate\n"; print "Pragma: no-cache\n"; print "Content-type: text/html; charset=Shift_JIS\n\n"; print "<HTML><HEAD><TITLE>???</TITLE></HEAD>"; print "<BODY>"; print $_[0]."<br>"; print '<font color=red><b>/??</b></font>' if !$_[1]; print qq|<FORM ACTION="$MYNAME" METHOD="POST"><INPUT TYPE=HIDDEN NAME=admin VALUE="$Q{admin}">|; print qq|<INPUT TYPE="SUBMIT" VALUE="???"></FORM>|; print "</BODY>"; print "</HTML>"; exit; } sub GetFileList { opendir(DIR,$_[0]); my @list=map{$_[0]."/".$_}grep(/$_[1]/ && !/^\.\.?$/,readdir(DIR)); closedir(DIR); return @list; } 這是啥意思?看沒有= =
空間問題我不清楚
以我的單機測試路徑來說 我的目錄如下 akimono ├akimono ├common └program 所以 http://127.0.0.1/akimono/akimono/index.cgi ↑為商人物語的遊戲首頁,可直接用瀏覽器開啟 而 http://127.0.0.1/akimono/akimono/admin.cgi ↑為商人物語的管理畫面,可直接用瀏覽器開啟 另外 akimono/akimono/_config.cgi ↑為設定檔,請用記事本打開 --- 再來,上傳以後還要設定檔案的權限(CMOD) *.cgi,均設定為755 *.dat,均設定為666
我建議你從這篇文章開始看起...
先解決會造成亂碼的問題= = 商人物語的遊戲強烈建議轉成BIG5! 轉UTF8會變成很麻煩,請特別注意... 然後接下來的步驟,就依照本篇文章我所做的回應來嘗試 大概的步驟 1.先把日文轉碼成BIG5 2.修改_config.cgi的內容 3.上傳 4.設定CMOD 5.登入admin.cgi 6.進行遊戲初始化 7.進行商品資料初始化 8.進入index.cgi進行遊戲 以上 有問題請詳細說明是在哪個步驟發生問題... |
正在瀏覽這個版面的使用者:沒有註冊會員 和 2 位訪客