60 lines
1.8 KiB
Perl
Executable File
60 lines
1.8 KiB
Perl
Executable File
#!/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);
|