List of list.cgi

このファイルは、実行が許可されています。
Fri Apr 19 17:41:27 2024
#!/usr/local/bin/perl5
#
# list.cgi
# 1997/08/10 Ver.0.00
# 1997/08/11 Ver.0.01
# 1997/08/12 Ver.0.02
# 1997/09/17 Ver.0.03           日付表示を追加
# 1997/09/28 Ver.0.04           TEXTAREA 表示を追加
# 1997/09/29 Ver.0.05           TEXTAREA 表示を追加
# 1997/12/27 Ver.0.06
# 1998/03/28 Ver.0.07
# 1998/11/22 Ver.0.08           -w の属性表示を廃止
# 1999/01/09 Ver.0.09           改行マークの表示を廃止
# 1999/11/26 Ver.0.12
#
# (C) 1997,98,99 がま <gama@mvg.biglobe.ne.jp>

$FILE=$ENV{'QUERY_STRING'};
$FILE=~ s/\.\.+\/+//g;
$FILE=~ s/^\/+//g;

$ref =$ENV{'HTTP_REFERER'};

$time=localtime;


print "Content-type: text/html\n\n";
print "<HTML>";
print "<HEAD><TITLE>List of $FILE</TITLE></HEAD>";
print "<BODY BGCOLOR=\"#FFFFFF\">\n";
print "<H2>List of ";
print $FILE;
print "</H2>\n";
if (-x $FILE) {
        print "このファイルは、実行が許可されています。<BR>";
}
print "$time<BR>\n";

print "<CENTER>\n";
print "<HR>\n";
print "<A HREF=\"$ENV{'HTTP_REFERER'}\">戻る</A>";
print "<HR>\n";
print "</CENTER>\n";
print "<DIV ALIGN=RIGHT>";
print "<BR>";
print "<A HREF=\"text.cgi?$FILE&$ref\">";
print 'TEXTAREA で表示（カット＆ペーストむき）</A>';
print "</DIV>";

if (-e $FILE) {
        print "<HR>\n";
        print "<BLOCKQUOTE><PRE>\n";

        open(FCTR,"<$FILE");
        
        while (<FCTR>) {
                s/&/&amp;/g;
                s/</&lt;/g;
                s/>/&gt;/g;
                print $_;
        }
        close(FCTR);
        print "</PRE></BLOCKQUOTE>\n";


} else {
        print "file not found.";
}
$ref =$ENV{'HTTP_REFERER'};
$ref =~s/\?/%3F/g;

print "<CENTER>\n";
print "<HR>\n";
print "<A HREF=\"$ENV{'HTTP_REFERER'}\">戻る</A>";
print "</CENTER>\n";
print "<HR>\n";
print "</BODY>\n";
print "</HTML>\n";
戻る