Mercurial > laserkard
annotate not-used/about.pl @ 81:6adb5da55d18 laserkard
getting color select working
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sun, 25 Jul 2010 05:45:56 -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"; |