List of text.cgi

Fri Apr 26 20:51:38 2024
#!/usr/local/bin/perl5

# text.cgi
# 1997/09/27 Ver.0.00
# 1997/09/28 Ver.0.01
# 1997/09/29 Ver.0.02
# 1997/12/26 Ver.0.03
# 1998/03/28 Ver.0.04
# 1998/11/22 Ver.0.05           -w の属性表示を廃止
# 1999/11/26 Ver.0.06
#
# (C) 1997,99 がま 
# e-mail addr : gama@mvg.biglobe.ne.jp


$_=$ENV{'QUERY_STRING'};
($FILE,$ref)=split("&");                # & で分離
$FILE=~ s/\.\.+\/+//g;
$FILE=~ s/^\/+//g;

$ref  =~ s/\%3F/\?/g;

$time=localtime;

print "Content-type: text/html\n\n";
print "<HTML>";
print "<HEAD><TITLE>$FILE</TITLE></HEAD>";
print "<BODY BGCOLOR=\"#FFFFFF\">\n";
print "<H2>$FILE</H2>\n";
if (-x $FILE) {
        print "このファイルは、実行が許可されています。<BR>";
}
print "$time<BR>\n";
if (-e $FILE) {
        print "<HR>\n";
        print "<FORM><TEXTAREA NAME=\"TextArea\" ROWS=\"20\" COLS=\"100\">";
        open(FCTR,"<$FILE");
        
        while (<FCTR>) {
                s/&/&amp;/g;
                s/</&lt;/g;
                s/>/&gt;/g;

                print "$_";
        }
        close(FCTR);
        print "</TEXTAREA></FORM>";
} else {
        print "file not found.";
}

print "<HR>\n";
print "<CENTER>\n";
print "<A HREF=\"$ref\">戻る</A>";
print "</CENTER>\n";
print "<HR>\n";
print "</BODY>\n";
print "</HTML>\n";
戻る