FreeCGI
Jeg er af den opfattelse at copyright er noget bavl - derfor har jeg skrevet følgende script så gæster nemt kan glo kilden af mine cgi-scripts igennem:#!/usr/bin/perl
# Written by D. Andersen 2002. No need for Copyright.
# Last updated Sun Nov 17 14:13:24 CET 2002.
$directory = "/cgi-bin";
$ls = `ls -b`;
$uncut = <STDIN>;
%details = split (/=/, $uncut);
while (($name, $file) = each %details) {
open(INFO, $file);
@script = <INFO>;
close(INFO);
}
print "Content-type: text/html\n\n";
print "<html>
<head>
<title>FreeCGI</title>
</head>
<body>
<p>List of files located in the directory $directory</p>
<pre>$ls</pre>
<form action='$directory/freecgi.pl' method='post'>
<input type='text' name='name'>
<input type='submit' value='View'>
</form>
<form>
<textarea cols='100' name='code' rows='25'>";
print @script;
print "
</textarea>
</form>
</body>
</html>";
Som i nok har fanget bruger jeg en ls -b kommando til at vise indholdet af cgi-bin, og en enkel form hvor man manuelt skal indtaste filnavnet, hvorefter man kan se koden i et textarea.
Det ville være lidt federe hvis man f.eks kunne gøre alle linier i listen over filer til links så man ikke behøver at taste fil navnet ind manuelt. Kan dette lade sig gøre?
