blob: 832f3ceaf89bd8ac2d250dcbce6a275a5ce16f5e (
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
# faq.cgi:
# FAQ 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: faq.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, 'FAQ');
print faq();
print Page::footer();
}
Page::do_fastcgi(\&main);
sub faq {
my $out = <<EOF;
<h1>Frequently Asked Questions</h1>
<p>FAQ stuff here</p>
</div>
EOF
return $out;
}
|
