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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
#!/usr/bin/perl -w -I../../perllib -I../../../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')))
)
)
;
}
|
