Mercurial > laserkard
annotate not-used/about.pl @ 97:8a3615df4c18 laserkard
saving progress, going to add styles
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Tue, 27 Jul 2010 03:51:01 -0400 |
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"; |