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