Mercurial > laserkard
annotate not-used/about.pl @ 7:6e335b28e4a8 laserkard
[svn r8] additional pylons (png)
author | rlm |
---|---|
date | Fri, 01 Jan 2010 18:19:38 -0500 |
parents | 599d0315537d |
children |
rev | line source |
---|---|
rlm@0 | 1 #!/usr/bin/perl |
rlm@0 | 2 |
rlm@0 | 3 |
rlm@0 | 4 sub gen |
rlm@0 | 5 { |
rlm@0 | 6 open FILE, "<./about.php"; |
rlm@0 | 7 return do { local $/; <FILE> }; |
rlm@0 | 8 |
rlm@0 | 9 }; |
rlm@0 | 10 |
rlm@0 | 11 print "Content-type: text/html\n\n"; |
rlm@0 | 12 |
rlm@0 | 13 $rr = &gen(); |
rlm@0 | 14 print "\n"; |
rlm@0 | 15 print $rr; |
rlm@0 | 16 print "\n"; |