Mercurial > laserkard

comparison not-used/about.pl @ 0:599d0315537d laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r1] initial import
author rlm
date Wed, 30 Dec 2009 02:01:25 -0500
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:599d0315537d
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";