📄 messe.cgi

📁 挖矿游戏源代码很好的哦可以研究
💻 CGI
字号:
#!/usr/bin/perl

#--- [拲堄帠崁] ------------------------------------------------#
# 1. 偙偺僗僋儕僾僩偼僼儕乕僜僼僩偱偡丅偙偺僗僋儕僾僩傪巊梡偟偨	#
#    偄偐側傞懝奞偵懳偟偰嶌幰偼堦愗偺愑擟傪晧偄傑偣傫丅		#
# 2. 愝抲偵娭偡傞幙栤偼僒億乕僩宖帵斅偵偍婅偄偄偨偟傑偡丅	#
#    捈愙儊乕儖偵傛傞幙栤偼堦愗偍庴偗偄偨偟偰偍傝傑偣傫丅	#
#---------------------------------------------------------------#

# 擔杮岅儔僀僽儔儕偺撉傒崬傒
require 'jcode.pl';

# 儗僕僗僩儔僀僽儔儕偺撉傒崬傒
require 'regist.pl';

# 弶婜愝掕僼傽僀儖偺撉傒崬傒
require 'ffadventure.ini';

#================================================================#
#劕劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劖#
#劔 偙傟傛傝壓偼CGI偵帺怣偺偁傞曽埲奜偼埖傢側偄傎偆偑柍擄偱偡丂劔#
#劘劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劗#
#================================================================#

#--------------#
#丂儊僀儞張棟丂#
#--------------#
if($mente) { &error("僶乕僕儑儞傾僢僾拞偱偡丅俀丄俁侽昩傎偳偍懸偪壓偝偄丅m(_ _)m"); }
&decode;
if($mode eq 'messe') { &messe; }
else { &error("傾僋僙僗偱偒傑偣傫"); }

#劕劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒
#劔   僆乕僩儘乕僟乕
#劘劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒劒
sub AUTOLOAD {
	my $name = ($AUTOLOAD =~ /^main::(.+)$/)[0];
	($FLAG{'autoload'}++ > 50) && die $AUTOLOAD; # 擮偺偨傔柍尷儖乕僾杊巭
	defined %SUB or &SUBS;
	if (!defined $SUB{$name}) {
		&error("掕媊偝傟偰偄側偄娭悢($AUTOLOAD)偑屇偽傟傑偟偨丅"); exit;
	}
	eval $SUB{$name}; length($@) && &error("EVAL ERROR: $@ ($AUTOLOAD)");
	delete $SUB{$name}; goto &{'main::' . $name};
}

sub SUBS {
%SUB = (
	messe => <<'__SUB__',
#----------------#
#  憲怣憡庤慖戰  #
#----------------#
sub messe {

	open(IN,"./charalog/$in{'id'}.cgi") or &error('僼傽僀儖傪奐偗傑偣傫偱偟偨丅');
	@battle = <IN>;
	close(IN);

	foreach(@battle){
		($kid,$kpass,$ksite,$kurl,$kname,$ksex,$kchara,$kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kn_5,$kn_6,$ksyoku,$khp,$kmaxhp,$kex,$klv,$kgold,$klp,$ktotal,$kkati,$kwaza,$kitem,$kmons,$khost,$kdate,$kmori,$kdef,$ktac,$kkumite) = split(/<>/);
		if($in{'id'} eq "$kid" and $in{'pass'} eq "$kpass") { last; }
	}

	if($in{'id'} ne "$kid" or $in{'pass'} ne "$kpass"){&error("僆乕僾儞僄儔乕丄ID丒僷僗儚乕僪偑惓偟偔偁傝傑偣傫丅");}

	# 僿僢僟乕昞帵
	&header;

	print <<"EOM";
<form action="$scripto" method="post">
亂懠偺僉儍儔僋僞乕傊儊僢僙乕僕傪憲傞亃<br>
<input type="text" name=mes size=50><br>
<select name=mesid size=25>
<option value="">憲傞憡庤傪慖戰
EOM

	open(IN,"$chara_file1") or &error('僼傽僀儖傪奐偗傑偣傫偱偟偨丅');
	@MESSAGE = <IN>;
	close(IN);

	foreach(@MESSAGE) {
		($did,$dpass,$dsite,$durl,$dname) = split(/<>/);
		if($kid eq $did) { next; }
		print "<option value=$did>$dname偝傫傊\n";
	}

	print <<"EOM";
</select>
<input type=hidden name=id value=$kid>
<input type=hidden name=name value=$kname>
<input type=hidden name=pass value=$kpass>
<input type=hidden name=mode value=message>
<input type=submit value="儊僢僙乕僕傪憲傞"><br>
仸懠偺僉儍儔僋僞乕傊儊僢僙乕僕傪憲傞偙偲偑偱偒傑偡丅</form>
EOM

	&footer;

	exit;
}
__SUB__

	footer => <<'__SUB__',
#------------------#
#丂HTML偺僼僢僞乕丂#
#------------------#
sub footer {

	print "<HR SIZE=0 WIDTH=\"100%\"><DIV align=right class=small>\n";
	print "$vermesg edit by <a href=\"http://www.gun-online.com/\" target=\"_top\">俧倀俶</a><br>\n";
	print "$verg remodeling by <a href=\"http://www.gun-online.com/\" target=\"_top\">俧倀俶</a><br>\n";
	print "$ver by <a href=\"http://www.interq.or.jp/sun/cumro/\">D.Takamiya(CUMRO)</a><br>\n";
	print "</DIV></body></html>\n";
}
__SUB__

	header => <<'__SUB__',
#------------------#
#  HTML偺僿僢僟乕  #
#------------------#
sub header {
	print "Cache-Control: no-cache\n";
	print "Pragma: no-cache\n";
	print "Content-Type: text/html\n\n";

	print <<"EOM";
<html>
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<STYLE type="text/css">
<!--
body,tr,td,th { font-size: $b_size }
a:hover { color: $alink }
.small { font-size: 10pt }
.b1 {background: #9ac;border-color: #ccf #669 #669 #ccf;color:#fff; border-style: solid; border-width: 1px;}
.b2 {background: #669;border-color: #99c #336 #336 #99c;color:#fff; border-style: solid; border-width: 1px; text-align: center}
.b3 {background: #fff;border-color: #ccf #669 #669 #ccf;}
.dmg { color: #FF0000; font-size: 18pt }
.clit { color: #0000FF; font-size: 18pt }
-->
</STYLE>
EOM
	print "<title>$main_title</title></head>\n";
	print "<body background=\"$backgif\" bgcolor=\"$bgcolor\" text=\"$text\" link=\"$link\" vlink=\"$vlink\" alink=\"$alink\">\n";
}
__SUB__
);
}
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -