First pass at adding key files

site/slowtwitch.com/cgi-bin/articles/test.cgi

@@ -0,0 +1,59 @@
+#!/usr/local/bin/perl
+# ==================================================================
+# Gossamer Links - enhanced directory management system
+#
+#   Website  : http://gossamer-threads.com/
+#   Support  : http://gossamer-threads.com/scripts/support/
+#   CVS Info : 087,068,085,094,083      
+#   Revision : $Id: page.cgi,v 1.39 2005/03/22 08:18:05 jagerman Exp $
+#
+# Copyright (c) 2001 Gossamer Threads Inc.  All Rights Reserved.
+# Redistribution in part or in whole strictly prohibited. Please
+# see LICENSE file for full details.
+# ==================================================================
+
+use strict;
+use lib '/var/home/slowtwitch/slowtwitch.com/cgi-bin/articles/admin';
+use Links qw/$PLG/;
+use JSON::XS;
+
+Links::init('/var/home/slowtwitch/slowtwitch.com/cgi-bin/articles/admin');
+
+my $data = [
+    {
+        "id" => "1",
+        "name" => "Big Ben",
+        "latitude" => "51.500600000000",
+        "longitude" => "-0.124610000000",
+        city => 'Vancouver'
+    },
+    {
+        "id" => "4",
+        "name" => "Hadrian's Wall",
+        "latitude" => "55.024453000000",
+        "longitude" => "2.142310000000",
+        city => 'Vancouver'
+    },
+    {
+        "id" => "2",
+        "name" => "Stonehenge",
+        "latitude" => "51.178850000000",
+        "longitude" => "-1.826446000000",
+        city => 'Calgary'
+    },
+    {
+        "id" => "3",
+        "name" => "White Cliffs of Dover",
+        "latitude" => "51.132020000000",
+        "longitude" => "1.334070000000",
+        city => 'Toronto'
+    }
+];
+
+print $IN->header;
+print "FOO";
+#use CGI;
+#my $in = new CGI;
+#print $in->header({ 'content-type' => 'application/json', 'no-cache' => 1 });
+#my $city = lc ( $in->param('city') || 'All' );
+#print encode_json($data);