Mercurial > laserkard
annotate not-used/about.pl @ 106:5b0753c6f34d laserkard tip
updated to newest compojure and a simpler syntax
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Mon, 27 Sep 2010 20:22:58 -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"; |