From bd7aa7923a25d16207842f9f3d6b773c2fc6fa58 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Thu, 28 Sep 2000 15:01:50 +0000
Subject: Renamed file

---
 html/fileshow.html | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 html/fileshow.html

(limited to 'html/fileshow.html')

diff --git a/html/fileshow.html b/html/fileshow.html
new file mode 100644
index 00000000..a13857e7
--- /dev/null
+++ b/html/fileshow.html
@@ -0,0 +1,24 @@
+<?php
+  require('functions.php3');
+  require('elispmarkup.php3');
+  $filename=$HTTP_GET_VARS["file"];
+  $title=$HTTP_GET_VARS["title"];
+  $expanded=$HTTP_GET_VARS["expanded"];
+  if ($title=="") { $title = $filename; };
+  small_header($title);
+  print "<pre>\n";
+  /* I hope this is enough to prevent access outside cwd */
+  if (substr($filename,0,1)=="." or 
+      substr($filename,0,1)=="/" or
+      substr($filename,0,1)=="~") {
+     print "Sorry, can't show you that file!\n"; 
+  } elseif (substr($filename,-3)==".el") {
+     elisp_markup($filename,"fileshow.phtml");
+  } else {
+     outline_markup($filename,"fileshow.phtml",$expanded);
+  }
+  print "</pre>\n";
+  print "<hr>";
+  click_to_go_back();
+  footer();
+?>
-- 
cgit v1.2.3