1 files changed, 80 insertions, 0 deletions
diff --git a/web/ajax.cgi b/web/ajax.cgi
new file mode 100755
index 000000000..7efae6de5
--- /dev/null
+++ b/web/ajax.cgi
@@ -0,0 +1,80 @@
+#!/usr/bin/perl -w -I../perllib
+
+# ajax.cgi:
+# Updating the pins as you drag the map
+#
+# Copyright (c) 2008 UK Citizens Online Democracy. All rights reserved.
+# Email: matthew@mysociety.org. WWW: http://www.mysociety.org
+#
+# $Id: ajax.cgi,v 1.1 2008-09-16 15:45:10 matthew Exp $
+
+use strict;
+use Standard;
+use mySociety::Web qw(ent NewURL);
+
+sub main {
+    my $q = shift;
+
+    my @vars = qw(x y sx sy);
+    my %input = map { $_ => $q->param($_) || '' } @vars;
+    my %input_h = map { $_ => $q->param($_) ? ent($q->param($_)) : '' } @vars;
+
+    # Our current X/Y bottom left of visible map
+    my $x = $input{x};
+    my $y = $input{y};
+    $x ||= 0; $x += 0;
+    $y ||= 0; $y += 0;
+
+    # Where we started as that's the (0,0) we have to work to
+    my $sx = $input{sx};
+    my $sy = $input{sy};
+    $sx ||= 0; $sx += 0;
+    $sy ||= 0; $sy += 0;
+
+    my ($pins, $on_map, $around_map, $dist) = Page::map_pins($q, $x, $y, $sx, $sy);
+
+    my $list = '';
+    foreach (@$on_map) {
+        $list .= '<li><a href="' . NewURL($q, id=>$_->{id}, x=>undef, y=>undef) . '">';
+        $list .= $_->{title};
+        $list .= '</a>';
+	$list .= ' <small>(fixed)</small>' if $_->{state} eq 'fixed';
+	$list .= '</li>';
+    }
+    my $om_list = $list;
+
+    $list = '';
+    foreach (@$around_map) {
+        $list .= '<li><a href="' . NewURL($q, id=>$_->{id}, x=>undef, y=>undef) . '">';
+        $list .= $_->{title} . ' <small>(' . int($_->{distance}/100+.5)/10 . 'km)</small>';
+        $list .= '</a>';
+	$list .= ' <small>(fixed)</small>' if $_->{state} eq 'fixed';
+        $list .= '</li>';
+    }
+    my $am_list = $list;
+
+    #$list = '';
+    #foreach (@$fixed) {
+    #    $list .= '<li><a href="' . NewURL($q, id=>$_->{id}, x=>undef, y=>undef) . '">';
+    #    $list .= $_->{title} . ' <small>(' . int($_->{distance}/100+.5)/10 . 'km)</small>';
+    #    $list .= '</a></li>';
+    #}
+    #my $f_list = $list;
+
+    print $q->header(-charset => 'utf-8', -content_type => 'text/javascript');
+
+    $pins =~ s/'/\'/g;
+    $om_list =~ s/'/\'/g;
+    $am_list =~ s/'/\'/g;
+    #$f_list =~ s/'/\'/g;
+    print <<EOF;
+({
+'pins': '$pins',
+'current': '$om_list',
+'current_near': '$am_list',
+})
+EOF
+}
+
+Page::do_fastcgi(\&main);
+