diff options
Diffstat (limited to 'web/posters/index.cgi')
| -rwxr-xr-x | web/posters/index.cgi | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/web/posters/index.cgi b/web/posters/index.cgi deleted file mode 100755 index f26252131..000000000 --- a/web/posters/index.cgi +++ /dev/null @@ -1,64 +0,0 @@ -#!/usr/bin/perl -w -I../../perllib -I../../commonlib/perllib - -# 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.10 2008-10-17 20:19:05 matthew Exp $ - -use strict; -use Standard -db; -use mySociety::Config; -use mySociety::Web qw(ent); - -# XXX: Ugh, as we're in a subdirectory -BEGIN { - mySociety::Config::set_file("$FindBin::Bin/../../conf/general"); -} - -sub main { - my $q = shift; - print Page::header($q, title=>_('Publicity material')); - print body($q); - print Page::footer($q); -} -Page::do_fastcgi(\&main); - -sub body { - my $q = shift; - my $badge = '<a href="http://www.fixmystreet.com/"> <img align="left" hspace="5" src="http://www.fixmystreet.com/i/fms-badge.jpeg" alt="FixMyStreet - report, view or discuss local problems" border="0"></a>'; - return $q->h1(_('Publicity Material')) . - $q->div({style=>'float:left; width:50%'}, - '<p>Copy and paste the text below to add this badge to your site:</p>', $badge, - '<textarea onclick="this.select()" cols=37 rows=5>' . ent($badge) . '</textarea>', - '<p><small>(thanks to Lincolnshire Council for the image)</small></p>' - ) . - $q->div({style=>'float:right; width:47%'}, - $q->p(_('Here are some posters and flyers you can use to publicise FixMyStreet:')) . - '<img hspace="5" src="poster.png" alt="Example poster">' . - $q->h2(_('Posters')) . - $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')) . - $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-low-ink.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 A6, colour'))), - $q->li($q->a({href=>'fixmystreet-flyers-bw-outlined.pdf'}, _('4 x A6, black and white, outlined'))), - $q->li($q->a({href=>'fixmystreet-flyers-bw-low-ink.pdf'}, _('4 x A6, black and white, low ink'))) - ) - ) - ; -} - |