%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/rappan/www/_cgi_ac/access/
Upload File :
Create Path :
Current File : /home/rappan/www/_cgi_ac/access/jumper.cgi

#!/usr/local/bin/perl -I../lib
#^^^^^^^^これ^^^^^^^^をサーバーにあわせて書き直して下さい
##########################################################
#  Access Analysis "AshiatoLOG" Ver.2.01                 #
#                                                        #
#  Copyright (c) 2000,2001,2002 Funakichi                #
#  All rights reserved.                                  #
#  e-mail:   funabin@abox2.so-net.ne.jp                  #
#  homepage: http://www04.u-page.so-net.ne.jp/fa2/suga/  #
#                                                        #
##########################################################
# ATTENTION:This code is written with "S-JIS" character-set.

# このCGIをaccview.cgiが呼び出し、指定URLへジャンプする。#

require "configA.pl";
require "configB.pl";

$dataFile = $wrdir.$jdatfile;

print "Content-type: text/html\n\n";

if (!open(IN, $dataFile))
{
	while(<DATA>) {	print; }
}
else
{
	while (<IN>) { print; }
	close(IN);
	unlink ($dataFile);
}

1;

######################## PROGRAM END #########################
### ここから上はPerlの知識がない限り書き換えてはいけない！ ###
### ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ###
### 直接このCGIが起動されると、以下のHTMLを表示します。    ###
### (第三者のアクセスからAshiatoLOGページを隠す為の物です) ###
### HTMLの知識がある方は、”_END_”の下を自由に書き換えて  ###
### ください。（”_END_”自体は書き換えないでください！!） ###
###             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   ###
__END__
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML lang="ja-JP">
<HEAD>
	<LINK REV="MADE" HREF="mailto:funabin\@abox2.so-net.ne.jp">
	<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
	<title>AshiatoLOG Ver.2.01</title>
</HEAD>
<BODY text="#000000" bgcolor="#FFffFF" link="#000099" vlink="#007D43" alink="#FF0000">
<BR><BR><BR><BR><BR><BR><BR><BR>
<DIV align=center>
このページは、管理用のページです。<BR>
データファイルが無い為、休止中です。
</DIV>
</BODY>
</HTML>

Zerion Mini Shell 1.0