blob: baba299e13dab46ab6e9eaee1b3f648e26607b13 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#!/usr/bin/perl -w
# about.cgi:
# About page for Neighbourhood Fix-It
#
# Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved.
# Email: matthew@mysociety.org. WWW: http://www.mysociety.org
#
# $Id: about.cgi,v 1.2 2006-09-25 18:39:54 matthew Exp $
use strict;
require 5.8.0;
# Horrible boilerplate to set up appropriate library paths.
use FindBin;
use lib "$FindBin::Bin/../perllib";
use lib "$FindBin::Bin/../../perllib";
use Page;
# Main code for index.cgi
sub main {
my $q = shift;
print Page::header($q, 'About');
print about_page();
print Page::footer();
}
Page::do_fastcgi(\&main);
sub about_page {
my $out = <<EOF;
<h1>About this site</h1>
<p>About stuff here</p>
</div>
EOF
return $out;
}
|
