Mercurial > laserkard

view not-used/about.pl @ 106:5b0753c6f34d laserkard tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
line wrap: on
line source
     1 #!/usr/bin/perl



     2 



     3 



     4 sub gen



     5 {



     6 open FILE, "<./about.php";



     7 return do { local $/; <FILE> };



     8 



     9 };



    10 



    11 print "Content-type: text/html\n\n";



    12 



    13 $rr = &gen();



    14 print "\n";



    15 print $rr;



    16 print "\n";