Add publicity page.

15 files changed, 61 insertions, 2 deletions

diff --git a/web/faq.cgi b/web/faq.cgi
index 09884a549..ad310dadb 100755
--- a/web/faq.cgi
+++ b/web/faq.cgi
@@ -6,7 +6,7 @@
 # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved.
 # Email: matthew@mysociety.org. WWW: http://www.mysociety.org
 #
-# $Id: faq.cgi,v 1.21 2007-06-15 14:57:52 matthew Exp $
+# $Id: faq.cgi,v 1.22 2007-06-28 14:17:33 matthew Exp $
 
 use strict;
 require 5.8.0;
@@ -69,6 +69,8 @@ submit buttons, which the map uses when reporting a problem. It's fixed in the
 latest nightly build of Safari, so will presumably be fixed in the next
 release. Until then, I've sadly had to disable dragging to avoid people
 dragging an empty square."))
+	$q->dt(_('Do you have any publicity material?')),
+	$q->dd(_('Sure, we have a whole <a href="posters/">array of posters and flyers</a>.')),
     );
     $out .= $q->h2(_('Privacy Questions'));
     $out .= $q->dl(
@@ -113,7 +115,7 @@ source code</a> (look under &lsquo;bci&rsquo;) and help us develop it.
 You&rsquo;re welcome to use it in your own projects, although you must also
 make available the source code to any such projects.')),
         $q->dt(_('People build things, not organisations. Who <em>actually</em> built it?')),
-        $q->dd(_('OK, we are Francis Irving, Chris Lightfoot, Richard Pope,
+        $q->dd(_('OK, we are Francis Irving, Deborah Kerr, Chris Lightfoot, Richard Pope,
 Matthew Somerville, and Tom Steinberg.
 
 Thanks also to
diff --git a/web/posters/fixmystreet-flyers-bw-low-ink.pdf b/web/posters/fixmystreet-flyers-bw-low-ink.pdf
new file mode 100755
index 000000000..4c234de07
--- /dev/null
+++ b/web/posters/fixmystreet-flyers-bw-low-ink.pdf
diff --git a/web/posters/fixmystreet-flyers-bw-outlined.pdf b/web/posters/fixmystreet-flyers-bw-outlined.pdf
new file mode 100755
index 000000000..246d3a2d7
--- /dev/null
+++ b/web/posters/fixmystreet-flyers-bw-outlined.pdf
diff --git a/web/posters/fixmystreet-flyers-colour.pdf b/web/posters/fixmystreet-flyers-colour.pdf
new file mode 100755
index 000000000..282b3971b
--- /dev/null
+++ b/web/posters/fixmystreet-flyers-colour.pdf
diff --git a/web/posters/fixmystreet-poster-a4-bw-low-ink.pdf b/web/posters/fixmystreet-poster-a4-bw-low-ink.pdf
new file mode 100755
index 000000000..73dddfc36
--- /dev/null
+++ b/web/posters/fixmystreet-poster-a4-bw-low-ink.pdf
diff --git a/web/posters/fixmystreet-poster-a4-bw-outlined.pdf b/web/posters/fixmystreet-poster-a4-bw-outlined.pdf
new file mode 100755
index 000000000..123139aa1
--- /dev/null
+++ b/web/posters/fixmystreet-poster-a4-bw-outlined.pdf
diff --git a/web/posters/fixmystreet-poster-a4-bw.pdf b/web/posters/fixmystreet-poster-a4-bw.pdf
new file mode 100755
index 000000000..2fffbb30e
--- /dev/null
+++ b/web/posters/fixmystreet-poster-a4-bw.pdf
diff --git a/web/posters/fixmystreet-poster-a4.pdf b/web/posters/fixmystreet-poster-a4.pdf
new file mode 100755
index 000000000..8c7e31b14
--- /dev/null
+++ b/web/posters/fixmystreet-poster-a4.pdf
diff --git a/web/posters/fixmystreet-poster-tags-bw-low-ink.pdf b/web/posters/fixmystreet-poster-tags-bw-low-ink.pdf
new file mode 100755
index 000000000..9bf3c5919
--- /dev/null
+++ b/web/posters/fixmystreet-poster-tags-bw-low-ink.pdf
diff --git a/web/posters/fixmystreet-poster-tags-bw.pdf b/web/posters/fixmystreet-poster-tags-bw.pdf
new file mode 100755
index 000000000..d035a59fb
--- /dev/null
+++ b/web/posters/fixmystreet-poster-tags-bw.pdf
diff --git a/web/posters/fixmystreet-poster-tags-only.pdf b/web/posters/fixmystreet-poster-tags-only.pdf
new file mode 100755
index 000000000..7d9671408
--- /dev/null
+++ b/web/posters/fixmystreet-poster-tags-only.pdf
diff --git a/web/posters/fixmystreet-poster-tags.pdf b/web/posters/fixmystreet-poster-tags.pdf
new file mode 100755
index 000000000..3e5774fed
--- /dev/null
+++ b/web/posters/fixmystreet-poster-tags.pdf
diff --git a/web/posters/index.cgi b/web/posters/index.cgi
new file mode 100755
index 000000000..972c4abb8
--- /dev/null
+++ b/web/posters/index.cgi
@@ -0,0 +1,57 @@
+#!/usr/bin/perl -w
+
+# posters/index.cgi:
+# List of publicity stuff on FixMyStreet
+#
+# Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved.
+# Email: matthew@mysociety.org. WWW: http://www.mysociety.org
+#
+# $Id: index.cgi,v 1.1 2007-06-28 14:17:33 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, title=>_('Publicity material'));
+    print body($q);
+    print Page::footer();
+}
+Page::do_fastcgi(\&main);
+
+sub body {
+    my $q = shift;
+    return $q->h1(_('Publicity Material')) .
+        $q->p(_('Here are some posters you can use to publicise FixMyStreet.')) .
+        $q->h2(_('Posters')) .
+	'<img align="right" hspace="5" src="poster.png" alt="Example poster">' .
+        $q->ul(
+            $q->li($q->a({href=>'fixmystreet-poster-a4.pdf'}, _('A4, colour'))),
+            $q->li($q->a({href=>'fixmystreet-poster-a4-bw.pdf'}, _('A4, black and white'))),
+            $q->li($q->a({href=>'fixmystreet-poster-a4-bw-low-ink.pdf'}, _('A4, black and white, low ink'))),
+            $q->li($q->a({href=>'fixmystreet-poster-a4-bw-outlined.pdf'}, _('A4, black and white, outlined'))),
+        ) .
+        $q->h2(_('Posters with tags')) . 
+	'<img align="right" hspace="5" src="tags.png" alt="Example poster with tags">' .
+        $q->ul(
+            $q->li($q->a({href=>'fixmystreet-poster-tags.pdf'}, _('A4, colour'))) .
+            $q->li($q->a({href=>'fixmystreet-poster-tags-bw.pdf'}, _('A4, black and white'))) .
+            $q->li($q->a({href=>'fixmystreet-poster-tags-bw.pdf'}, _('A4, black and white, low ink'))) .
+            $q->li($q->a({href=>'fixmystreet-poster-tags-only.pdf'}, _('A4, tags only')))
+        ) .
+        $q->h2(_('Flyers')) .
+        $q->ul(
+            $q->li($q->a({href=>'fixmystreet-flyers-colour.pdf'}, _('4 x A5, colour'))),
+            $q->li($q->a({href=>'fixmystreet-flyers-bw-outlined.pdf'}, _('4 x A5, black and white, outlined'))),
+            $q->li($q->a({href=>'fixmystreet-flyers-bw-low-ink.pdf'}, _('4 x A5, black and white, low ink')))
+        )
+    ;
+}
+
diff --git a/web/posters/poster.png b/web/posters/poster.png
new file mode 100755
index 000000000..97dd9ffd9
--- /dev/null
+++ b/web/posters/poster.png
diff --git a/web/posters/tags.png b/web/posters/tags.png
new file mode 100755
index 000000000..9ba7133a7
--- /dev/null
+++ b/web/posters/tags.png