#!/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/&/&/g; s/</</g; s/>/>/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";