1 files changed, 71 insertions, 0 deletions
diff --git a/web/flickr2.cgi b/web/flickr2.cgi
new file mode 100755
index 000000000..71cc07f39
--- /dev/null
+++ b/web/flickr2.cgi
@@ -0,0 +1,71 @@
+#!/usr/bin/perl -w
+
+# flickr2.cgi:
+# Check photo details, and confirm for council
+#
+# Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved.
+# Email: matthew@mysociety.org. WWW: http://www.mysociety.org
+#
+# $Id: flickr2.cgi,v 1.1 2007-06-17 09:40:51 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 URI::Escape;
+
+use mySociety::AuthToken;
+use mySociety::DBHandle qw(dbh select_all);
+use mySociety::Email;
+use mySociety::EmailUtil;
+
+use Page;
+
+BEGIN {
+    mySociety::Config::set_file("$FindBin::Bin/../conf/general");
+    mySociety::DBHandle::configure(
+        Name => mySociety::Config::get('BCI_DB_NAME'),
+        User => mySociety::Config::get('BCI_DB_USER'),
+        Password => mySociety::Config::get('BCI_DB_PASS'),
+        Host => mySociety::Config::get('BCI_DB_HOST', undef),
+        Port => mySociety::Config::get('BCI_DB_PORT', undef)
+    );
+}
+
+sub main {
+    my $q = shift;
+    my $out = '';
+    if (my $token = $q->param('token')) {
+        my $id = mySociety::AuthToken::retrieve('flickr', $token);
+        if ($id) {
+            my ($e, $n, $name, $email, $title) = dbh()->selectrow_array(
+                "select easting,northing,name,email,title from problem where id=? and state='flickr'", {}, $id);
+            if ($email) {
+                $name = uri_escape($name);
+                $email = uri_escape($email);
+                $title = uri_escape($title);
+		# XXX: Look up some of this stuff at the destination instead???
+                print $q->redirect("/?flickr=$token;submit_map=1;easting=$e;northing=$n;name=$name;email=$email;title=$title;anonymous=1");
+                exit;
+            }
+            $out = $q->p("That report appears to have been checked already.");
+        } else {
+            $out = $q->p(_(<<EOF));
+Thank you for trying to register for your Flickr photos. We seem to have a
+problem ourselves though, so <a href="/contact">please let us know what went on</a>
+and we'll look into it.
+EOF
+        }
+    } else {
+        $out .= $q->p('You need a token to get to this page!');
+    }
+
+    print Page::header($q, title=>'Flickr photo upload');
+    print $out;
+    print Page::footer();
+    dbh()->rollback();
+}
+Page::do_fastcgi(\&main);