Mercurial > laserkard

annotate not-used/about.pl @ 63:3d3b8671de71 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r64] Changed 1. About page text to agreed on 4/1/10 2. top_menu link "The Story" --> "About"
author hong
date Thu, 01 Apr 2010 20:06:28 -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";