Mercurial > laserkard
diff not-used/about.pl @ 0:599d0315537d laserkard
[svn r1] initial import
author | rlm |
---|---|
date | Wed, 30 Dec 2009 02:01:25 -0500 |
parents | |
children |
line wrap: on
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/not-used/about.pl Wed Dec 30 02:01:25 2009 -0500 1.3 @@ -0,0 +1,16 @@ 1.4 +#!/usr/bin/perl 1.5 + 1.6 + 1.7 +sub gen 1.8 +{ 1.9 +open FILE, "<./about.php"; 1.10 +return do { local $/; <FILE> }; 1.11 + 1.12 +}; 1.13 + 1.14 +print "Content-type: text/html\n\n"; 1.15 + 1.16 +$rr = &gen(); 1.17 +print "\n"; 1.18 +print $rr; 1.19 +print "\n";