Mercurial > laserkard
annotate not-used/about.pl @ 25:b9a4988a22ed laserkard
[svn r26] initial live version of website completed. still have "selection" bug
author | rlm |
---|---|
date | Sun, 03 Jan 2010 22:26:26 -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"; |