- Split JavaScript off from HTML. - Rewrote XML generator in Perl to be consistent with other scripts.

nigel.stanger / Digital_Repository

Browse code - Split JavaScript off from HTML. - Rewrote XML generator in Perl to be consistent with other scripts. master
1 parent a038404 commit 54f5a1fb961e5b78c384460fd89746e441701ddd nstanger authored on 11 May 2006

Patch

Showing 3 changed files

Ignore Space Show notes View Repositories/Maps/google_map.js 0 → 100755
function load() { var startTime = new Date(); var timer = document.getElementById( "timer" ); timer.innerHTML = "Loading..."; var code = document.getElementById( "code" ); if ( GBrowserIsCompatible() ) { var map = new GMap2( document.getElementById( "map" ) ); map.addControl( new GSmallMapControl() ); map.addControl( new GMapTypeControl() ); map.setCenter( new GLatLng(10, 0), 2 ); // Creates a marker at the given point with the given label function createMarker( point, city, abstracts, downloads ) { var marker = new GMarker( point ); GEvent.addListener( marker, "click", function() { marker.openInfoWindowHtml( "<strong>" + city + "</strong> (" + abstracts + " abstracts, " + downloads + " downloads)" ); } ); return marker; } // Download the data in google_map_data.xml and load it on the map. The format we // expect is: // <markers> // <marker lat="37.441" lng="-122.141"/> // <marker lat="37.322" lng="-121.213"/> // </markers> GDownloadUrl( "google_map_data.xml", function( data, responseCode ) { var xml = GXml.parse( data ); var markers = xml.documentElement.getElementsByTagName( "marker" ); for ( var i = 0; i < markers.length; i++ ) { var point = new GLatLng( parseFloat( markers[i].getAttribute( "lat" ) ), parseFloat( markers[i].getAttribute( "lng" ) ) ); map.addOverlay( createMarker( point, markers[i].getAttribute( "city" ), markers[i].getAttribute( "abs" ), markers[i].getAttribute( "dl" ) ) ); } var endTime = new Date(); timer.innerHTML = markers.length + " cities plotted in " + ( endTime - startTime ) + " ms."; } ); } }

Ignore Space Show notes View

Repositories/Maps/google_map.js 0 → 100755

Ignore Space Show notes View Repositories/Maps/google_map.php
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <title>Google Maps JavaScript API Example</title> <script src="http://maps.google.com/maps?file=api&v=2&key=ABQIAAAAdiP-i78VGweF9QIs3Kzx5xStigeMdN8paxvpTosC1OeLHYoRqBSkQbm8tvhKdj_F_yKVUD2Qm6NWtA" type="text/javascript"></script> <script type="text/javascript" src="google_map.js"></script> </head> <body onload="load()" onunload="GUnload()"> <div id="map" style="width: 1030px; height: 640px"></div> <div id="timer"></div> </body> </html> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8"/> <title>Google Maps JavaScript API Example</title> <script src="http://maps.google.com/maps?file=api&v=2&key=ABQIAAAAdiP-i78VGweF9QIs3Kzx5xStigeMdN8paxvpTosC1OeLHYoRqBSkQbm8tvhKdj_F_yKVUD2Qm6NWtA" type="text/javascript"></script> <script type="text/javascript"> //<![CDATA[ function load() { if (GBrowserIsCompatible()) { var map = new GMap2(document.getElementById("map")); map.addControl(new GSmallMapControl()); map.addControl(new GMapTypeControl()); map.setCenter(new GLatLng(10, 0), 1); // Creates a marker at the given point with the given label function createMarker(point, city, count) { var marker = new GMarker(point); GEvent.addListener(marker, "click", function() { marker.openInfoWindowHtml("<strong>" + city + "</strong> (" + count + " downloads)"); }); return marker; } // Download the data in data.xml and load it on the map. The format we // expect is: // <markers> // <marker lat="37.441" lng="-122.141"/> // <marker lat="37.322" lng="-121.213"/> // </markers> GDownloadUrl("google_data.xml", function(data, responseCode) { var xml = GXml.parse(data); var markers = xml.documentElement.getElementsByTagName("marker"); for (var i = 0; i < markers.length; i++) { var point = new GLatLng(parseFloat(markers[i].getAttribute("lat")), parseFloat(markers[i].getAttribute("lng"))); map.addOverlay(createMarker(point, markers[i].getAttribute("city"), markers[i].getAttribute("num"))); } }); } } //]]> </script> </head> <body onload="load()" onunload="GUnload()"> <div id="map" style="width: 515px; height: 320px"></div> </body> </html>

Ignore Space Show notes View

Repositories/Maps/google_map.php

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <meta http-equiv="content-type" content="text/html; charset=utf-8"/>
    <title>Google Maps JavaScript API Example</title>
    <script src="http://maps.google.com/maps?file=api&amp;v=2&amp;key=ABQIAAAAdiP-i78VGweF9QIs3Kzx5xStigeMdN8paxvpTosC1OeLHYoRqBSkQbm8tvhKdj_F_yKVUD2Qm6NWtA"
      type="text/javascript"></script>
    <script type="text/javascript">

//<![CDATA[

//]]>
    </script>
  </head>
  <body onload="load()" onunload="GUnload()">
    <div id="map" style="width: 515px; height: 320px"></div>
  </body>
</html>

Ignore Space Show notes View Repositories/Maps/google_map_generate_data.pl 0 → 100755
#!/usr/bin/env perl use strict; use DBI; use Geo::IP; # Database connection. my ($dsn) = "DBI:mysql:database=eprintstats;host=localhost"; my ($user_name) = "eprintstatspriv"; my ($password) = "AuldGrizzel"; my ( $connect, $query, %types, $stat, $row, $num_rows, $vtype ); # Geolocation database. my ($gi); my ($gidb) = '/usr/local/share/GeoIP/GeoLiteCity.dat'; # Miscellaneous variable. my (%cities); my ($num_IPs) = -1; my ($num_hits) = 0; my ( $ip, $count, $location ); my ( $lat, $long, $city ) = ( 0, 0, '' ); $gi = Geo::IP->open( $gidb, GEOIP_STANDARD ) or die "Unable to open GeoIP database $gidb\n"; $connect = DBI->connect( $dsn, $user_name, $password, { RaiseError => 1 } ); $types{'download'} = $types{'abstract'} = 0; $query = "SELECT ip, view_type, COUNT() AS count FROM view GROUP BY ip, view_type ORDER BY count DESC" . ( ( $num_IPs > 0 ) ? " LIMIT $num_IPs" : '' ); $stat = $connect->prepare($query); $stat->execute(); $num_rows = $stat->rows; if ( $num_rows > 0 ) { $num_IPs = $num_rows if ( $num_IPs < 1 ); while ( $row = $stat->fetchrow_hashref() ) { $ip = $row->{'ip'}; $count = $row->{'count'}; $vtype = $row->{'view_type'}; $location = $gi->record_by_addr($ip); if ( defined($location) ) { $lat = $location->latitude; $long = $location->longitude; $city = ( ( $location->city eq '' ) ? "Unknown ($lat, $long)" : $location->city ); if ( !defined( $cities{$city} ) ) { $cities{$city}{'lat'} = $lat; $cities{$city}{'long'} = $long; $cities{$city}{'abstract'} = 0; $cities{$city}{'download'} = 0; } $cities{$city}{$vtype} += $count; } } # Need to wait until we have all the counts before writing the data out. print '<?xml version="1.0"?>' . "\n"; print "<markers>\n"; foreach $city ( keys %cities ) { print '<marker city="' . $city . '" lat="' . $cities{$city}{'lat'} . '" lng="' . $cities{$city}{'long'} . '" abs="' . $cities{$city}{'abstract'} . '" dl="' . $cities{$city}{'download'} . '" />' . "\n"; } print "</markers>\n"; } $stat->finish(); $connect->disconnect(); sub round { my ($n) = shift; return int( $n + 0.5 ( $n <=> 0 ) ); }

Ignore Space Show notes View

Repositories/Maps/google_map_generate_data.pl 0 → 100755

#!/usr/bin/env perl
use strict;
use DBI;
use Geo::IP;

# Database connection.
my ($dsn)       = "DBI:mysql:database=eprintstats;host=localhost";
my ($user_name) = "eprintstatspriv";
my ($password)  = "AuldGrizzel";
my ( $connect, $query, %types, $stat, $row, $num_rows, $vtype );

# Geolocation database.
my ($gi);
my ($gidb) = '/usr/local/share/GeoIP/GeoLiteCity.dat';

# Miscellaneous variable.
my (%cities);
my ($num_IPs)  = -1;
my ($num_hits) = 0;
my ( $ip,  $count, $location );
my ( $lat, $long,  $city ) = ( 0, 0, '' );

$gi = Geo::IP->open( $gidb, GEOIP_STANDARD )
  or die "Unable to open GeoIP database $gidb\n";

$connect = DBI->connect( $dsn, $user_name, $password, { RaiseError => 1 } );

$types{'download'} = $types{'abstract'} = 0;
$query = "SELECT ip, view_type, COUNT(*) AS count
	 FROM view
	 GROUP BY ip, view_type
	 ORDER BY count DESC" . ( ( $num_IPs > 0 ) ? " LIMIT $num_IPs" : '' );

$stat = $connect->prepare($query);
$stat->execute();
$num_rows = $stat->rows;

if ( $num_rows > 0 )
{
	$num_IPs = $num_rows if ( $num_IPs < 1 );

while ( $row = $stat->fetchrow_hashref() )
	{
		$ip    = $row->{'ip'};
		$count = $row->{'count'};
		$vtype = $row->{'view_type'};

$location = $gi->record_by_addr($ip);

if ( defined($location) )
		{
			$lat  = $location->latitude;
			$long = $location->longitude;
			$city = ( ( $location->city eq '' ) ? "Unknown ($lat, $long)" : $location->city );

if ( !defined( $cities{$city} ) )
			{
				$cities{$city}{'lat'}   = $lat;
				$cities{$city}{'long'}  = $long;
				$cities{$city}{'abstract'} = 0;
				$cities{$city}{'download'} = 0;
			}
			$cities{$city}{$vtype} += $count;
		}
	}

# Need to wait until we have all the counts before writing the data out.
	print '<?xml version="1.0"?>' . "\n";
	print "<markers>\n";

foreach $city ( keys %cities )
	{
		print '<marker city="' . $city
		  . '" lat="'
		  . $cities{$city}{'lat'}
		  . '" lng="'
		  . $cities{$city}{'long'}
		  . '" abs="'
		  . $cities{$city}{'abstract'}
		  . '" dl="'
		  . $cities{$city}{'download'} . '" />' . "\n";
	}

print "</markers>\n";
}

$stat->finish();
$connect->disconnect();

sub round
{
	my ($n) = shift;
	return int( $n + 0.5 * ( $n <=> 0 ) );
}

Show line notes below