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";