- Implemented back end script for generating CSS maps. - Made code more consistent across all versions. - Finished CSS map timing code. - Changed all .html => .php. - Made styling of all web pages more consistent. - Included lat/long in hash key for all cities (not just unknown) because there may be several different lat/long combinations that map to the same city name.

nigel.stanger / Digital_Repository

Browse code - Implemented back end script for generating CSS maps. - Made code more consistent across all versions. - Finished CSS map timing code. - Changed all .html => .php. - Made styling of all web pages more consistent. - Included lat/long in hash key for all cities (not just unknown) because there may be several different lat/long combinations that map to the same city name. master
1 parent b88829b commit 86216bea2a7412e516c85427b88643dafcae198f nstanger authored on 14 May 2006

Browse code

- Implemented back end script for generating CSS maps.

- Made code more consistent across all versions.
- Finished CSS map timing code.
- Changed all .html => .php.
- Made styling of all web pages more consistent.
- Included lat/long in hash key for all cities (not just unknown) because
  there may be several different lat/long combinations that map to the same
  city name.

master

1 parent b88829b commit 86216bea2a7412e516c85427b88643dafcae198f

nstanger authored on 14 May 2006

Patch

Showing 8 changed files

                Ignore Space
               Show notes
              View
            
          
          63 ■■■■■
          Repositories/Maps/css_map.js
 function load( startMillis, numEntries )
{
	// Open the request. Setting the third argument to TRUE makes the
	// request asynchronous, i.e., the browser doesn't wait.
	http.open('GET', 'css_map.php?top=' + numEntries, true);
	httpRequest.open('GET', 'css_map.pl?width=1024&height=520&top=' + numEntries, true);
	
	// When we hear something from the server, call the handleResponse()
	// function to find out what happened.
	http.onreadystatechange = function ()
	httpRequest.onreadystatechange = function ()
		{
			if(http.readyState == 4)
			if(httpRequest.readyState == 4)
			{
				if (http.status == 200) // Did it work?
				if (httpRequest.status == 200) // Did it work?
				{
					// Grab the response content.
					var response = http.responseText;
			
					document.getElementById( "map" ).innerHTML = httpRequest.responseText;
					// Grab finishing time. We have to do this here rather than in
					// the main part of the load() function because the map data
					// are generated asynchronously.
					var endTime = new Date();
					document.getElementById( "timer" ).innerHTML =
						'Page generated in ' +
						( endTime - startMillis ) +
						' ms.';
				}
				else
				{
					// Do some sort of error handling.
			}
		};
	
	// Send the request.
	http.send(null);
	httpRequest.send(null);
 
 
		GDownloadUrl( "google_map_generate_data.pl?top=" + numEntries,
			function( data, responseCode )
			{
				var xml = GXml.parse( data );
				var markerlist = xml.documentElement.getElementsByTagName( "marker" );
				for ( var i = 0; i < markerlist.length; i++ )
				{
					var point = new GLatLng( parseFloat( markerlist[i].getAttribute( "lat" ) ),
						parseFloat( markerlist[i].getAttribute( "long" ) ) );
					map.addOverlay( createMarker( point, markerlist[i].getAttribute( "city" ),
						markerlist[i].getAttribute( "abs" ), markerlist[i].getAttribute( "dl" ) ) );
				}
				// Grab finishing time. We have to do this here rather than in
				// the main part of the load() function because the map data
				// are loaded asynchronously.
				var endTime = new Date();
				var numUA = xml.documentElement.getAttribute( "ua" );
				var numUD = xml.documentElement.getAttribute( "ud" );
				document.getElementById( "timer" ).innerHTML =
					'<span style="color:red;">' +
					xml.documentElement.getAttribute( "dl" ) +
					' downloads' + ( ( numUD > 0 ) ? ( ' (+' + numUD + ' unmappable)' ) : '' ) +
					'</span> & <span style="color:blue;">' +
					xml.documentElement.getAttribute( "abs" ) +
					' abstracts' + ( ( numUD > 0 ) ? ( ' (+' + numUA + ' unmappable)' ) : '' ) +
					'</span> from ' +
					markerlist.length +
					' cities (' +
					xml.documentElement.getAttribute( "ips" ) +
					' IP addresses), page generated in ' +
					( endTime - startMillis ) +
					' ms.';
			} );
	}
}

            // Global XMLHttpRequest object.
var httpRequest = new XMLHttpRequest();

function load( startMillis, numEntries )
{
	// Open the request. Setting the third argument to TRUE makes the
	// request asynchronous, i.e., the browser doesn't wait.
	httpRequest.open('GET', 'css_map.pl?width=1024&height=520&top=' + numEntries, true);
	
	// When we hear something from the server, call the handleResponse()
	// function to find out what happened.
	httpRequest.onreadystatechange = function ()
		{
			if(httpRequest.readyState == 4)
			{
				if (httpRequest.status == 200) // Did it work?
				{
					// Grab the response content.
					document.getElementById( "map" ).innerHTML = httpRequest.responseText;
					// Grab finishing time. We have to do this here rather than in
					// the main part of the load() function because the map data
					// are generated asynchronously.
					var endTime = new Date();
					document.getElementById( "timer" ).innerHTML =
						'Page generated in ' +
						( endTime - startMillis ) +
						' ms.';
				}
				else
				{
					// Do some sort of error handling.
				}
			}
		};
	
	// Send the request.
	httpRequest.send(null);

}

            // Global XMLHttpRequest object.
var httpRequest = new XMLHttpRequest();

function load( startMillis, numEntries )
{
	// Open the request. Setting the third argument to TRUE makes the
	// request asynchronous, i.e., the browser doesn't wait.
	http.open('GET', 'css_map.php?top=' + numEntries, true);
	
	// When we hear something from the server, call the handleResponse()
	// function to find out what happened.
	http.onreadystatechange = function ()
		{
			if(http.readyState == 4)
			{
				if (http.status == 200) // Did it work?
				{
					// Grab the response content.
					var response = http.responseText;
			
				}
				else
				{
					// Do some sort of error handling.
				}
			}
		};
	
	// Send the request.
	http.send(null);


		GDownloadUrl( "google_map_generate_data.pl?top=" + numEntries,
			function( data, responseCode )
			{
				var xml = GXml.parse( data );
				var markerlist = xml.documentElement.getElementsByTagName( "marker" );
				for ( var i = 0; i < markerlist.length; i++ )
				{
					var point = new GLatLng( parseFloat( markerlist[i].getAttribute( "lat" ) ),
						parseFloat( markerlist[i].getAttribute( "long" ) ) );
					map.addOverlay( createMarker( point, markerlist[i].getAttribute( "city" ),
						markerlist[i].getAttribute( "abs" ), markerlist[i].getAttribute( "dl" ) ) );
				}
				// Grab finishing time. We have to do this here rather than in
				// the main part of the load() function because the map data
				// are loaded asynchronously.
				var endTime = new Date();
				var numUA = xml.documentElement.getAttribute( "ua" );
				var numUD = xml.documentElement.getAttribute( "ud" );
				document.getElementById( "timer" ).innerHTML =
					'<span style="color:red;">' +
					xml.documentElement.getAttribute( "dl" ) +
					' downloads' + ( ( numUD > 0 ) ? ( ' (+' + numUD + ' unmappable)' ) : '' ) +
					'</span> & <span style="color:blue;">' +
					xml.documentElement.getAttribute( "abs" ) +
					' abstracts' + ( ( numUD > 0 ) ? ( ' (+' + numUA + ' unmappable)' ) : '' ) +
					'</span> from ' +
					markerlist.length +
					' cities (' +
					xml.documentElement.getAttribute( "ips" ) +
					' IP addresses), page generated in ' +
					( endTime - startMillis ) +
					' ms.';
			} );
	}
}
 function load( startMillis, numEntries )
 {
 	// Open the request. Setting the third argument to TRUE makes the
 	// request asynchronous, i.e., the browser doesn't wait.
+	http.open('GET', 'css_map.php?top=' + numEntries, true);
+	httpRequest.open('GET', 'css_map.pl?width=1024&height=520&top=' + numEntries, true);
 	// When we hear something from the server, call the handleResponse()
 	// function to find out what happened.
+	http.onreadystatechange = function ()
+	httpRequest.onreadystatechange = function ()
 		{
+			if(http.readyState == 4)
+			if(httpRequest.readyState == 4)
 			{
+				if (http.status == 200) // Did it work?
+				if (httpRequest.status == 200) // Did it work?
 				{
 					// Grab the response content.
+					var response = http.responseText;
+					document.getElementById( "map" ).innerHTML = httpRequest.responseText;
+					// Grab finishing time. We have to do this here rather than in
+					// the main part of the load() function because the map data
+					// are generated asynchronously.
+					var endTime = new Date();
+					document.getElementById( "timer" ).innerHTML =
+						'Page generated in ' +
+						( endTime - startMillis ) +
+						' ms.';
 				}
 				else
 				{
 					// Do some sort of error handling.
 			}
 		};
 	// Send the request.
+	http.send(null);
+	httpRequest.send(null);
-		GDownloadUrl( "google_map_generate_data.pl?top=" + numEntries,
-			function( data, responseCode )
-			{
-				var xml = GXml.parse( data );
-				var markerlist = xml.documentElement.getElementsByTagName( "marker" );
-				for ( var i = 0; i < markerlist.length; i++ )
-				{
-					var point = new GLatLng( parseFloat( markerlist[i].getAttribute( "lat" ) ),
-						parseFloat( markerlist[i].getAttribute( "long" ) ) );
-					map.addOverlay( createMarker( point, markerlist[i].getAttribute( "city" ),
-						markerlist[i].getAttribute( "abs" ), markerlist[i].getAttribute( "dl" ) ) );
-				}
-				// Grab finishing time. We have to do this here rather than in
-				// the main part of the load() function because the map data
-				// are loaded asynchronously.
-				var endTime = new Date();
-				var numUA = xml.documentElement.getAttribute( "ua" );
-				var numUD = xml.documentElement.getAttribute( "ud" );
-				document.getElementById( "timer" ).innerHTML =
-					'<span style="color:red;">' +
-					xml.documentElement.getAttribute( "dl" ) +
-					' downloads' + ( ( numUD > 0 ) ? ( ' (+' + numUD + ' unmappable)' ) : '' ) +
-					'</span> & <span style="color:blue;">' +
-					xml.documentElement.getAttribute( "abs" ) +
-					' abstracts' + ( ( numUD > 0 ) ? ( ' (+' + numUA + ' unmappable)' ) : '' ) +
-					'</span> from ' +
-					markerlist.length +
-					' cities (' +
-					xml.documentElement.getAttribute( "ips" ) +
-					' IP addresses), page generated in ' +
-					( endTime - startMillis ) +
-					' ms.';
-			} );
-	}
 }

                Ignore Space
               Show notes
              View
            
          
          2 ■■■■■
          Repositories/Maps/css_map.php
 <p>Stats current as of early afternoon 8 May 2006.</p>
 
<div id="timer">Loading&hellip;</div>
 
<div id="map" style="background-image:map_1024x520.jpg; width:1024px; height:520px;">
<div id="map" style="background-image:url(map_1024x520.jpg); width:1024px; height:520px; position:absolute; border:1px solid black;">
</div>
 
</body>
</html>
            <?php
	list( $start_micro, $start_sec ) = explode( " ", microtime() );
?>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
        "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html>
<head>
	<title>Repository hit visualisation using CSS</title>
	<meta name="generator" content="BBEdit 8.2" />
	<script type="text/javascript" src="css_map.js"></script>
</head>
<?php
	echo '<body onload="load('
		. ( ( (float)$start_micro + (float)$start_sec ) * 1000 )
		. ','
		. ( ( isset( $_REQUEST['top'] ) ) ? $_REQUEST['top'] : 10 )
		. ')">';
?>

<h1>Repository hit visualisation using CSS</h1>

<p>Stats current as of early afternoon 8 May 2006.</p>

<div id="timer">Loading&hellip;</div>

<div id="map" style="background-image:url(map_1024x520.jpg); width:1024px; height:520px; position:absolute; border:1px solid black;">
</div>

</body>
</html>

            <?php
	list( $start_micro, $start_sec ) = explode( " ", microtime() );
?>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
        "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html>
<head>
	<title>Repository hit visualisation using CSS</title>
	<meta name="generator" content="BBEdit 8.2" />
	<script type="text/javascript" src="css_map.js"></script>
</head>
<?php
	echo '<body onload="load('
		. ( ( (float)$start_micro + (float)$start_sec ) * 1000 )
		. ','
		. ( ( isset( $_REQUEST['top'] ) ) ? $_REQUEST['top'] : 10 )
		. ')">';
?>

<h1>Repository hit visualisation using CSS</h1>

<p>Stats current as of early afternoon 8 May 2006.</p>

<div id="timer">Loading&hellip;</div>

<div id="map" style="background-image:map_1024x520.jpg; width:1024px; height:520px;">
</div>

</body>
</html>
 <p>Stats current as of early afternoon 8 May 2006.</p>
 <div id="timer">Loading&hellip;</div>
+<div id="map" style="background-image:map_1024x520.jpg; width:1024px; height:520px;">
+<div id="map" style="background-image:url(map_1024x520.jpg); width:1024px; height:520px; position:absolute; border:1px solid black;">
 </div>
 </body>
 </html>

                Ignore Space
               Show notes
              View
            
          
          155 ■■■■■
          Repositories/Maps/css_map.pl
        
        
        
          0 → 100755
             #!/usr/bin/env perl
use strict;
use Time::HiRes qw( gettimeofday );
use CGI;
use DBI;
use Geo::IP;
use Geo::Proj4;
 
my ( $start_sec, $start_micro ) = gettimeofday;
my ($start_time) = ( $start_sec * 1000 ) + round( $start_micro / 1000 );
 
my ($page);
 
# Database connection.
my ($dsn)       = "DBI:mysql:database=eprintstats;host=localhost";
my ($user_name) = "eprintstatspriv";
my ($password)  = "AuldGrizzel";
my ( $connect, $query, %types, %unmapped, $stat, $row, $num_rows, $vtype );
 
# Geolocation database.
my ( $gi, $proj );
my ($gidb) = '/usr/local/share/GeoIP/GeoLiteCity.dat';
 
# Miscellaneous variables.
my ( $width, $height );
my ($x_offset) = 16986796.16;
my ($y_offset) = 8615499.05;
my ($max_x)    = $x_offset * 2;
my ($max_y)    = $y_offset * 2;
my ( %cities, %IPs );
my ($num_entries) = -1;
my ($num_hits)    = 0;
my ( $ip,   $count, $location );
my ( $city, $lat,   $long, $x, $y ) = ( 0, 0, '', 0, 0 );
 
$page = new CGI;
print $page->header( -type => "text/html", -Pragma => 'no-cache' );
$num_entries = $page->param('top');
 
$gi = Geo::IP->open( $gidb, GEOIP_STANDARD )
  or die "Unable to open GeoIP database $gidb\n";
 
$proj = Geo::Proj4->new( proj => "robin", ellps => "sphere", lon_0 => 10 )
  or die "parameter error: " . Geo::Proj4->error . "\n";
 
$width  = $page->param('width');
$height = $page->param('height');
 
$connect = DBI->connect( $dsn, $user_name, $password, { RaiseError => 1 } );
 
$types{'download'}    = $types{'abstract'}    = 0;
$unmapped{'download'} = $unmapped{'abstract'} = 0;
$query = "SELECT ip, view_type, COUNT(*) AS count
	 FROM view
	 GROUP BY ip, view_type
	 ORDER BY count DESC" . ( ( $num_entries > 0 ) ? " LIMIT $num_entries" : '' );
 
$stat = $connect->prepare($query);
$stat->execute();
$num_rows = $stat->rows;
 
if ( $num_rows > 0 )
{
	$num_entries = $num_rows if ( $num_entries < 1 );
 
	while ( $row = $stat->fetchrow_hashref() )
	{
		$ip    = $row->{'ip'};
		$count = $row->{'count'};
		$vtype = $row->{'view_type'};
 
		$IPs{$ip} = 1;
 
		$location = $gi->record_by_addr($ip);
 
		if ( defined($location) )
		{
			$lat  = $location->latitude;
			$long = $location->longitude;
			$city = (
					  ( $location->city eq '' )
					  ? 'Unknown'
					  : $location->city
			) . " ($lat, $long)";
			
			( $x, $y ) = $proj->forward( $lat, $long );
			$x = round( ( $x + $x_offset ) / $max_x * $width );
			$y = round( ( $y_offset - $y ) / $max_y * $height );
 
			if ( !defined( $cities{$city} ) )
			{
				$cities{$city}{'lat'}      = $lat;
				$cities{$city}{'long'}     = $long;
				$cities{$city}{'abstract'} = 0;
				$cities{$city}{'download'} = 0;
			
				print
				  '<div style="position:absolute; width:3px; height:3px; left:'
				  . ( $x - 1 )
				  . 'px; top:'
				  . ( $y - 1 )
				  . 'px; background-color:'
				  . ( ( $vtype eq 'abstract' ) ? 'blue' : 'red' )
				  . ';"></div>' . "\n";
			}
			$cities{$city}{$vtype} += $count;
			$types{$vtype}         += $count;
 
			$cities{$city}{'x'} = $x;
			$cities{$city}{'y'} = $y;
		}
		else
		{
			$unmapped{$vtype} += $count;
		}
	}
}
 
$stat->finish();
$connect->disconnect();
 
# Need to wait until we have all the counts before writing the summary data out.
print
'<div style="position:absolute; left:1px; top:1px; font-size:small;"><span style="color:red;">'
  . $types{'download'}
  . ' downloads'
  . (
	  ( $unmapped{'download'} > 0 ) ? " (+$unmapped{'download'} unmappable)"
	  : ''
  )
  . '</span><br /><span style="color:blue;">'
  . $types{'abstract'}
  . ' abstracts'
  . (
	  ( $unmapped{'abstract'} > 0 ) ? " (+$unmapped{'abstract'} unmappable)"
	  : ''
  )
  . '</span><br />from '
  . scalar( keys %cities )
  . ' cities<br />('
  . scalar( keys %IPs )
  . ' IP addresses)</div>' . "\n";
 
my ( $finish_sec, $finish_micro ) = gettimeofday();
my ($finish_time) = ( $finish_sec * 1000 ) + round( $finish_micro / 1000 );
 
print '<div style="position:absolute; left:1px; bottom:1px; font-size:small;">';
print 'Map generated in ' . ( $finish_time - $start_time ) . ' ms</div>' . "\n";
 
sub round
{
	my ($n) = shift;
	return int( $n + 0.5 * ( $n <=> 0 ) );
}

            #!/usr/bin/env perl
use strict;
use Time::HiRes qw( gettimeofday );
use CGI;
use DBI;
use Geo::IP;
use Geo::Proj4;

my ( $start_sec, $start_micro ) = gettimeofday;
my ($start_time) = ( $start_sec * 1000 ) + round( $start_micro / 1000 );

my ($page);

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

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

# Miscellaneous variables.
my ( $width, $height );
my ($x_offset) = 16986796.16;
my ($y_offset) = 8615499.05;
my ($max_x)    = $x_offset * 2;
my ($max_y)    = $y_offset * 2;
my ( %cities, %IPs );
my ($num_entries) = -1;
my ($num_hits)    = 0;
my ( $ip,   $count, $location );
my ( $city, $lat,   $long, $x, $y ) = ( 0, 0, '', 0, 0 );

$page = new CGI;
print $page->header( -type => "text/html", -Pragma => 'no-cache' );
$num_entries = $page->param('top');

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

$proj = Geo::Proj4->new( proj => "robin", ellps => "sphere", lon_0 => 10 )
  or die "parameter error: " . Geo::Proj4->error . "\n";

$width  = $page->param('width');
$height = $page->param('height');

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

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

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

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

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

		$IPs{$ip} = 1;

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

		if ( defined($location) )
		{
			$lat  = $location->latitude;
			$long = $location->longitude;
			$city = (
					  ( $location->city eq '' )
					  ? 'Unknown'
					  : $location->city
			) . " ($lat, $long)";
			
			( $x, $y ) = $proj->forward( $lat, $long );
			$x = round( ( $x + $x_offset ) / $max_x * $width );
			$y = round( ( $y_offset - $y ) / $max_y * $height );

			if ( !defined( $cities{$city} ) )
			{
				$cities{$city}{'lat'}      = $lat;
				$cities{$city}{'long'}     = $long;
				$cities{$city}{'abstract'} = 0;
				$cities{$city}{'download'} = 0;
			
				print
				  '<div style="position:absolute; width:3px; height:3px; left:'
				  . ( $x - 1 )
				  . 'px; top:'
				  . ( $y - 1 )
				  . 'px; background-color:'
				  . ( ( $vtype eq 'abstract' ) ? 'blue' : 'red' )
				  . ';"></div>' . "\n";
			}
			$cities{$city}{$vtype} += $count;
			$types{$vtype}         += $count;

			$cities{$city}{'x'} = $x;
			$cities{$city}{'y'} = $y;
		}
		else
		{
			$unmapped{$vtype} += $count;
		}
	}
}

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

# Need to wait until we have all the counts before writing the summary data out.
print
'<div style="position:absolute; left:1px; top:1px; font-size:small;"><span style="color:red;">'
  . $types{'download'}
  . ' downloads'
  . (
	  ( $unmapped{'download'} > 0 ) ? " (+$unmapped{'download'} unmappable)"
	  : ''
  )
  . '</span><br /><span style="color:blue;">'
  . $types{'abstract'}
  . ' abstracts'
  . (
	  ( $unmapped{'abstract'} > 0 ) ? " (+$unmapped{'abstract'} unmappable)"
	  : ''
  )
  . '</span><br />from '
  . scalar( keys %cities )
  . ' cities<br />('
  . scalar( keys %IPs )
  . ' IP addresses)</div>' . "\n";

my ( $finish_sec, $finish_micro ) = gettimeofday();
my ($finish_time) = ( $finish_sec * 1000 ) + round( $finish_micro / 1000 );

print '<div style="position:absolute; left:1px; bottom:1px; font-size:small;">';
print 'Map generated in ' . ( $finish_time - $start_time ) . ' ms</div>' . "\n";

sub round
{
	my ($n) = shift;
	return int( $n + 0.5 * ( $n <=> 0 ) );
}
+#!/usr/bin/env perl
+use strict;
+use Time::HiRes qw( gettimeofday );
+use CGI;
+use DBI;
+use Geo::IP;
+use Geo::Proj4;
+my ( $start_sec, $start_micro ) = gettimeofday;
+my ($start_time) = ( $start_sec * 1000 ) + round( $start_micro / 1000 );
+my ($page);
+# Database connection.
+my ($dsn)       = "DBI:mysql:database=eprintstats;host=localhost";
+my ($user_name) = "eprintstatspriv";
+my ($password)  = "AuldGrizzel";
+my ( $connect, $query, %types, %unmapped, $stat, $row, $num_rows, $vtype );
+# Geolocation database.
+my ( $gi, $proj );
+my ($gidb) = '/usr/local/share/GeoIP/GeoLiteCity.dat';
+# Miscellaneous variables.
+my ( $width, $height );
+my ($x_offset) = 16986796.16;
+my ($y_offset) = 8615499.05;
+my ($max_x)    = $x_offset * 2;
+my ($max_y)    = $y_offset * 2;
+my ( %cities, %IPs );
+my ($num_entries) = -1;
+my ($num_hits)    = 0;
+my ( $ip,   $count, $location );
+my ( $city, $lat,   $long, $x, $y ) = ( 0, 0, '', 0, 0 );
+$page = new CGI;
+print $page->header( -type => "text/html", -Pragma => 'no-cache' );
+$num_entries = $page->param('top');
+$gi = Geo::IP->open( $gidb, GEOIP_STANDARD )
+  or die "Unable to open GeoIP database $gidb\n";
+$proj = Geo::Proj4->new( proj => "robin", ellps => "sphere", lon_0 => 10 )
+  or die "parameter error: " . Geo::Proj4->error . "\n";
+$width  = $page->param('width');
+$height = $page->param('height');
+$connect = DBI->connect( $dsn, $user_name, $password, { RaiseError => 1 } );
+$types{'download'}    = $types{'abstract'}    = 0;
+$unmapped{'download'} = $unmapped{'abstract'} = 0;
+$query = "SELECT ip, view_type, COUNT(*) AS count
+	 FROM view
+	 GROUP BY ip, view_type
+	 ORDER BY count DESC" . ( ( $num_entries > 0 ) ? " LIMIT $num_entries" : '' );
+$stat = $connect->prepare($query);
+$stat->execute();
+$num_rows = $stat->rows;
+if ( $num_rows > 0 )
+{
+	$num_entries = $num_rows if ( $num_entries < 1 );
+	while ( $row = $stat->fetchrow_hashref() )
+	{
+		$ip    = $row->{'ip'};
+		$count = $row->{'count'};
+		$vtype = $row->{'view_type'};
+		$IPs{$ip} = 1;
+		$location = $gi->record_by_addr($ip);
+		if ( defined($location) )
+		{
+			$lat  = $location->latitude;
+			$long = $location->longitude;
+			$city = (
+					  ( $location->city eq '' )
+					  ? 'Unknown'
+					  : $location->city
+			) . " ($lat, $long)";
+			( $x, $y ) = $proj->forward( $lat, $long );
+			$x = round( ( $x + $x_offset ) / $max_x * $width );
+			$y = round( ( $y_offset - $y ) / $max_y * $height );
+			if ( !defined( $cities{$city} ) )
+			{
+				$cities{$city}{'lat'}      = $lat;
+				$cities{$city}{'long'}     = $long;
+				$cities{$city}{'abstract'} = 0;
+				$cities{$city}{'download'} = 0;
+				print
+				  '<div style="position:absolute; width:3px; height:3px; left:'
+				  . ( $x - 1 )
+				  . 'px; top:'
+				  . ( $y - 1 )
+				  . 'px; background-color:'
+				  . ( ( $vtype eq 'abstract' ) ? 'blue' : 'red' )
+				  . ';"></div>' . "\n";
+			}
+			$cities{$city}{$vtype} += $count;
+			$types{$vtype}         += $count;
+			$cities{$city}{'x'} = $x;
+			$cities{$city}{'y'} = $y;
+		}
+		else
+		{
+			$unmapped{$vtype} += $count;
+		}
+	}
+}
+$stat->finish();
+$connect->disconnect();
+# Need to wait until we have all the counts before writing the summary data out.
+print
+'<div style="position:absolute; left:1px; top:1px; font-size:small;"><span style="color:red;">'
+  . $types{'download'}
+  . ' downloads'
+  . (
+	  ( $unmapped{'download'} > 0 ) ? " (+$unmapped{'download'} unmappable)"
+	  : ''
+  )
+  . '</span><br /><span style="color:blue;">'
+  . $types{'abstract'}
+  . ' abstracts'
+  . (
+	  ( $unmapped{'abstract'} > 0 ) ? " (+$unmapped{'abstract'} unmappable)"
+	  : ''
+  )
+  . '</span><br />from '
+  . scalar( keys %cities )
+  . ' cities<br />('
+  . scalar( keys %IPs )
+  . ' IP addresses)</div>' . "\n";
+my ( $finish_sec, $finish_micro ) = gettimeofday();
+my ($finish_time) = ( $finish_sec * 1000 ) + round( $finish_micro / 1000 );
+print '<div style="position:absolute; left:1px; bottom:1px; font-size:small;">';
+print 'Map generated in ' . ( $finish_time - $start_time ) . ' ms</div>' . "\n";
+sub round
+{
+	my ($n) = shift;
+	return int( $n + 0.5 * ( $n <=> 0 ) );
+}

                Ignore Space
               Show notes
              View
            
          
          6 ■■■■■
          Repositories/Maps/gd_map.php
 <p>Stats current as of early afternoon 8 May 2006.</p>
 
<div id="timer">Loading&hellip;</div>
 
<p>
<div>
<?php
	echo '<img id="map" src="gd_map.pl?width=1024&amp;height=520&amp;top='
		. ( ( isset( $_REQUEST['top'] ) ) ? $_REQUEST['top'] : 10 )
		. '" onLoad="imageLoaded('
		. ( ( (float)$start_micro + (float)$start_sec ) * 1000 )
		. ')" width="1024" height="520" alt="Small version loading --- please wait..." />';
		. ')" width="1024" height="520" alt="" style="border:1px solid black;" />';
?>
</p>
</div>
 
</body>
</html>

            <?php
	list( $start_micro, $start_sec ) = explode( " ", microtime() );
?>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
        "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html>
<head>
	<title>Repository hit visualisation using GD</title>
	<meta name="generator" content="BBEdit 8.2" />
	<script type="text/javascript" src="gd_map.js"></script>
</head>
<body>

<h1>Repository hit visualisation using GD</h1>

<p>Stats current as of early afternoon 8 May 2006.</p>

<div id="timer">Loading&hellip;</div>

<div>
<?php
	echo '<img id="map" src="gd_map.pl?width=1024&amp;height=520&amp;top='
		. ( ( isset( $_REQUEST['top'] ) ) ? $_REQUEST['top'] : 10 )
		. '" onLoad="imageLoaded('
		. ( ( (float)$start_micro + (float)$start_sec ) * 1000 )
		. ')" width="1024" height="520" alt="" style="border:1px solid black;" />';
?>
</div>

</body>
</html>

            <?php
	list( $start_micro, $start_sec ) = explode( " ", microtime() );
?>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
        "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html>
<head>
	<title>Repository hit visualisation using GD</title>
	<meta name="generator" content="BBEdit 8.2" />
	<script type="text/javascript" src="gd_map.js"></script>
</head>
<body>

<h1>Repository hit visualisation using GD</h1>

<p>Stats current as of early afternoon 8 May 2006.</p>

<div id="timer">Loading&hellip;</div>

<p>
<?php
	echo '<img id="map" src="gd_map.pl?width=1024&amp;height=520&amp;top='
		. ( ( isset( $_REQUEST['top'] ) ) ? $_REQUEST['top'] : 10 )
		. '" onLoad="imageLoaded('
		. ( ( (float)$start_micro + (float)$start_sec ) * 1000 )
		. ')" width="1024" height="520" alt="Small version loading --- please wait..." />';
?>
</p>

</body>
</html>
 <p>Stats current as of early afternoon 8 May 2006.</p>
 <div id="timer">Loading&hellip;</div>
+<p>
+<div>
 <?php
 	echo '<img id="map" src="gd_map.pl?width=1024&amp;height=520&amp;top='
 		. ( ( isset( $_REQUEST['top'] ) ) ? $_REQUEST['top'] : 10 )
 		. '" onLoad="imageLoaded('
 		. ( ( (float)$start_micro + (float)$start_sec ) * 1000 )
+		. ')" width="1024" height="520" alt="Small version loading --- please wait..." />';
+		. ')" width="1024" height="520" alt="" style="border:1px solid black;" />';
 ?>
+</p>
+</div>
 </body>
 </html>

Ignore Space Show notes View Repositories/Maps/gd_map.pl
#!/usr/bin/env perl use strict; use Time::HiRes qw( gettimeofday ); use CGI; use DBI; use GD; use Geo::IP; use Geo::Proj4; my ( $start_sec, $start_micro ) = gettimeofday; my ($start_time) = ( $start_sec * 1000 ) + round( $start_micro / 1000 ); my ($page); # Database connection. my ($dsn) = "DBI:mysql:database=eprintstats;host=localhost"; my ($user_name) = "eprintstatspriv"; my ($password) = "AuldGrizzel"; my ( $connect, $query, %types, %unmapped, $stat, $row, $num_rows, $vtype ); my ( $mapimage, $mapimagefile ); my ( $red, $white, $black, $blue ); my ( $width, $height ); # Geolocation database. my ( $gi, $proj ); my ($gidb) = '/usr/local/share/GeoIP/GeoLiteCity.dat'; # Miscellaneous variables. my ($x_offset) = 16986796.16; my ($y_offset) = 8615499.05; my ($max_x) = $x_offset * 2; my ($max_y) = $y_offset * 2; my ( %cities, %IPs ); my ($num_entries) = -1; my ($num_hits) = 0; my ( $ip, $count, $location ); my ( $city, $lat, $long, $x, $y ) = ( 0, 0, '', 0, 0 ); $page = new CGI; print $page->header( -type => "image/jpeg", -Pragma => 'no-cache' ); $num_entries = $page->param('top'); $gi = Geo::IP->open( $gidb, GEOIP_STANDARD ) or die "Unable to open GeoIP database $gidb\n"; $proj = Geo::Proj4->new( proj => "robin", ellps => "sphere", lon_0 => 10 ) or die "parameter error: " . Geo::Proj4->error . "\n"; $width = $page->param('width'); $height = $page->param('height'); $mapimagefile = "map_${width}x${height}.png"; $mapimage = GD::Image->newFromPng( $mapimagefile, 1 ); $white = $mapimage->colorAllocate( 255, 255, 255 ); $black = $mapimage->colorAllocate( 0, 0, 0 ); $red = $mapimage->colorAllocate( 255, 0, 0 ); $blue = $mapimage->colorAllocate( 0, 0, 255 ); $connect = DBI->connect( $dsn, $user_name, $password, { RaiseError => 1 } ); $types{'download'} = $types{'abstract'} = 0; $unmapped{'download'} = $unmapped{'abstract'} = 0; $query = "SELECT ip, view_type, COUNT() AS count FROM view GROUP BY ip, view_type ORDER BY count DESC" . ( ( $num_entries > 0 ) ? " LIMIT $num_entries" : '' ); $stat = $connect->prepare($query); $stat->execute(); $num_rows = $stat->rows; if ( $num_rows > 0 ) { $num_entries = $num_rows if ( $num_entries < 1 ); while ( $row = $stat->fetchrow_hashref() ) { $ip = $row->{'ip'}; $count = $row->{'count'}; $vtype = $row->{'view_type'}; $IPs{$ip} = 1; $location = $gi->record_by_addr($ip); if ( defined($location) ) { $lat = $location->latitude; $long = $location->longitude; $city = ( ( $location->city eq '' ) ? 'Unknown' : $location->city ) . " ($lat, $long)"; ( $x, $y ) = $proj->forward( $lat, $long ); $x = round( ( $x + $x_offset ) / $max_x $width ); $y = round( ( $y_offset - $y ) / $max_y * $height ); if ( !defined( $cities{$city} ) ) { $cities{$city}{'count'} = 0; $cities{$city}{'lat'} = $lat; $cities{$city}{'long'} = $long; $mapimage->filledRectangle( $x - 1, $y - 1, $x + 1, $y + 1, ( ( $vtype eq 'download' ) ? $red : $blue ) ); } $cities{$city}{'count'} += $count; $types{$vtype} += $count; $cities{$city}{'x'} = $x; $cities{$city}{'y'} = $y; } else { $unmapped{$vtype} += $count; } } } $stat->finish(); $connect->disconnect(); $mapimage->string( gdSmallFont, 3, 3, "$types{'download'} downloads" . ( ( $unmapped{'download'} > 0 ) ? " (+$unmapped{'download'} unmappable)" : '' ), $red ); $mapimage->string( gdSmallFont, 3, 15, "$types{'abstract'} abstracts" . ( ( $unmapped{'abstract'} > 0 ) ? " (+$unmapped{'abstract'} unmappable)" : '' ), $blue ); $mapimage->string( gdSmallFont, 3, 27, 'from ' . scalar( keys %cities ) . ' cities', $black ); $mapimage->string( gdSmallFont, 3, 39, '(' . scalar( keys %IPs ) . ' IP addresses)', $black ); my ( $finish_sec, $finish_micro ) = gettimeofday(); my ($finish_time) = ( $finish_sec * 1000 ) + round( $finish_micro / 1000 ); $mapimage->string( gdSmallFont, 3, $height - 15, 'Map generated in ' . ( $finish_time - $start_time ) . ' ms', $black ); binmode(STDOUT); print $mapimage->jpeg(); sub round { my ($n) = shift; return int( $n + 0.5 * ( $n <=> 0 ) ); } #!/usr/bin/env perl use strict; use Time::HiRes qw( gettimeofday ); use CGI; use DBI; use GD; use Geo::IP; use Geo::Proj4; my ( $start_sec, $start_micro ) = gettimeofday; my ($start_time) = ( $start_sec * 1000 ) + round( $start_micro / 1000 ); my ($page); my ($dsn) = "DBI:mysql:database=eprintstats;host=localhost"; my ($user_name) = "eprintstatspriv"; my ($password) = "AuldGrizzel"; my ( $connect, $query, %types, %unmapped, $stat, $row, $num_rows, $vtype ); my ( $mapimage, $mapimagefile ); my ( $red, $white, $black, $blue ); my ( $width, $height ); my ( $gi, $proj ); my ($gidb) = '/usr/local/share/GeoIP/GeoLiteCity.dat'; my ($x_offset) = 16986796.16; my ($y_offset) = 8615499.05; my ($max_x) = $x_offset * 2; my ($max_y) = $y_offset * 2; my ( %cities, %IPs ); my ($num_entries) = -1; my ($num_hits) = 0; my ( $ip, $count, $location ); my ( $city, $lat, $long, $x, $y ); $page = new CGI; print $page->header( -type => "image/jpeg", -Pragma => 'no-cache' ); $num_entries = $page->param('top'); $gi = Geo::IP->open( $gidb, GEOIP_STANDARD ) or die "Unable to open GeoIP database $gidb\n"; $proj = Geo::Proj4->new( proj => "robin", ellps => "sphere", lon_0 => 10 ) or die "parameter error: " . Geo::Proj4->error . "\n"; $width = $page->param('width'); $height = $page->param('height'); $mapimagefile = "map_${width}x${height}.png"; $mapimage = GD::Image->newFromPng( $mapimagefile, 1 ); $white = $mapimage->colorAllocate( 255, 255, 255 ); $black = $mapimage->colorAllocate( 0, 0, 0 ); $red = $mapimage->colorAllocate( 255, 0, 0 ); $blue = $mapimage->colorAllocate( 0, 0, 255 ); $connect = DBI->connect( $dsn, $user_name, $password, { RaiseError => 1 } ); $types{'download'} = $types{'abstract'} = 0; $unmapped{'download'} = $unmapped{'abstract'} = 0; $query = "SELECT ip, view_type, COUNT() AS count FROM view GROUP BY ip, view_type ORDER BY count DESC" . ( ( $num_entries > 0 ) ? " LIMIT $num_entries" : '' ); $stat = $connect->prepare($query); $stat->execute(); $num_rows = $stat->rows; if ( $num_rows > 0 ) { $num_entries = $num_rows if ( $num_entries < 1 ); while ( $row = $stat->fetchrow_hashref() ) { $ip = $row->{'ip'}; $count = $row->{'count'}; $vtype = $row->{'view_type'}; $IPs{$ip} = 1; $location = $gi->record_by_addr($ip); if ( defined($location) ) { $lat = $location->latitude; $long = $location->longitude; $city = $location->city; ( $x, $y ) = $proj->forward( $lat, $long ); $x = round( ( $x + $x_offset ) / $max_x $width ); $y = round( ( $y_offset - $y ) / $max_y * $height ); $city = "Unknown ($lat, $long)" if ( $city eq '' ); if ( !defined( $cities{$city} ) ) { $cities{$city}{'count'} = 0; $cities{$city}{'lat'} = $lat; $cities{$city}{'long'} = $long; $mapimage->filledRectangle( $x - 1, $y - 1, $x + 1, $y + 1, ( ( $vtype eq 'download' ) ? $red : $blue ) ); } $cities{$city}{'count'} += $count; $types{$vtype} += $count; $cities{$city}{'x'} = $x; $cities{$city}{'y'} = $y; } else { $unmapped{$vtype} += $count; } } } $stat->finish(); $connect->disconnect(); $mapimage->string( gdSmallFont, 3, 3, "$types{'download'} downloads" . ( ( $unmapped{'download'} > 0 ) ? " (+$unmapped{'download'} unmappable)" : '' ), $red ); $mapimage->string( gdSmallFont, 3, 15, "$types{'abstract'} abstracts" . ( ( $unmapped{'abstract'} > 0 ) ? " (+$unmapped{'abstract'} unmappable)" : '' ), $blue ); $mapimage->string( gdSmallFont, 3, 27, 'from ' . scalar( keys %cities ) . ' cities', $black ); $mapimage->string( gdSmallFont, 3, 39, '(' . scalar( keys %IPs ) . ' IP addresses)', $black ); my ( $finish_sec, $finish_micro ) = gettimeofday(); my ($finish_time) = ( $finish_sec * 1000 ) + round( $finish_micro / 1000 ); $mapimage->string( gdSmallFont, 3, $height - 15, 'Map generated in ' . ( $finish_time - $start_time ) . ' ms', $black ); binmode(STDOUT); print $mapimage->jpeg(); sub round { my ($n) = shift; return int( $n + 0.5 * ( $n <=> 0 ) ); }

Ignore Space Show notes View

Repositories/Maps/gd_map.pl

#!/usr/bin/env perl
use strict;
use Time::HiRes qw( gettimeofday );
use CGI;
use DBI;
use GD;
use Geo::IP;
use Geo::Proj4;

my ( $start_sec, $start_micro ) = gettimeofday;
my ($start_time) = ( $start_sec * 1000 ) + round( $start_micro / 1000 );

my ($page);

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

my ( $mapimage, $mapimagefile );
my ( $red,      $white, $black, $blue );
my ( $width,    $height );

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

# Miscellaneous variables.
my ($x_offset) = 16986796.16;
my ($y_offset) = 8615499.05;
my ($max_x)    = $x_offset * 2;
my ($max_y)    = $y_offset * 2;
my ( %cities, %IPs );
my ($num_entries) = -1;
my ($num_hits)    = 0;
my ( $ip,   $count, $location );
my ( $city, $lat,   $long, $x, $y ) = ( 0, 0, '', 0, 0 );

$page = new CGI;
print $page->header( -type => "image/jpeg", -Pragma => 'no-cache' );
$num_entries = $page->param('top');

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

$proj = Geo::Proj4->new( proj => "robin", ellps => "sphere", lon_0 => 10 )
  or die "parameter error: " . Geo::Proj4->error . "\n";

$width        = $page->param('width');
$height       = $page->param('height');
$mapimagefile = "map_${width}x${height}.png";
$mapimage     = GD::Image->newFromPng( $mapimagefile, 1 );
$white        = $mapimage->colorAllocate( 255, 255, 255 );
$black        = $mapimage->colorAllocate( 0, 0, 0 );
$red          = $mapimage->colorAllocate( 255, 0, 0 );
$blue         = $mapimage->colorAllocate( 0, 0, 255 );

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

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

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

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

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

$IPs{$ip} = 1;

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

if ( defined($location) )
		{
			$lat  = $location->latitude;
			$long = $location->longitude;
			$city = (
					  ( $location->city eq '' )
					  ? 'Unknown'
					  : $location->city
			) . " ($lat, $long)";
			
			( $x, $y ) = $proj->forward( $lat, $long );
			$x = round( ( $x + $x_offset ) / $max_x * $width );
			$y = round( ( $y_offset - $y ) / $max_y * $height );

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

$mapimage->filledRectangle( $x - 1, $y - 1, $x + 1, $y + 1,
								  ( ( $vtype eq 'download' ) ? $red : $blue ) );
			}
			$cities{$city}{'count'} += $count;
			$types{$vtype}          += $count;

$cities{$city}{'x'} = $x;
			$cities{$city}{'y'} = $y;
		}
		else
		{
			$unmapped{$vtype} += $count;
		}
	}
}

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

$mapimage->string( gdSmallFont,
				   3, 3,
				   "$types{'download'} downloads"
					 . (
						 ( $unmapped{'download'} > 0 )
						 ? " (+$unmapped{'download'} unmappable)"
						 : ''
					 ),
				   $red
);
$mapimage->string( gdSmallFont,
				   3, 15,
				   "$types{'abstract'} abstracts"
					 . (
						 ( $unmapped{'abstract'} > 0 )
						 ? " (+$unmapped{'abstract'} unmappable)"
						 : ''
					 ),
				   $blue
);
$mapimage->string( gdSmallFont, 3, 27,
				   'from ' . scalar( keys %cities ) . ' cities', $black );
$mapimage->string( gdSmallFont, 3, 39,
				   '(' . scalar( keys %IPs ) . ' IP addresses)', $black );

my ( $finish_sec, $finish_micro ) = gettimeofday();
my ($finish_time) = ( $finish_sec * 1000 ) + round( $finish_micro / 1000 );
$mapimage->string( gdSmallFont, 3,
				   $height - 15,
				   'Map generated in ' . ( $finish_time - $start_time ) . ' ms',
				   $black );

binmode(STDOUT);

print $mapimage->jpeg();

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

#!/usr/bin/env perl
use strict;
use Time::HiRes qw( gettimeofday );
use CGI;
use DBI;
use GD;
use Geo::IP;
use Geo::Proj4;

my ( $start_sec, $start_micro ) = gettimeofday;
my ($start_time) = ( $start_sec * 1000 ) + round( $start_micro / 1000 );

my ($page);

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

my ( $mapimage, $mapimagefile );
my ( $red,      $white, $black, $blue );
my ( $width,    $height );

my ( $gi, $proj );
my ($gidb) = '/usr/local/share/GeoIP/GeoLiteCity.dat';

my ($x_offset) = 16986796.16;
my ($y_offset) = 8615499.05;
my ($max_x)    = $x_offset * 2;
my ($max_y)    = $y_offset * 2;
my ( %cities, %IPs );
my ($num_entries) = -1;
my ($num_hits)    = 0;
my ( $ip,   $count, $location );
my ( $city, $lat,   $long, $x, $y );

$page = new CGI;
print $page->header( -type => "image/jpeg", -Pragma => 'no-cache' );
$num_entries = $page->param('top');

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

$proj = Geo::Proj4->new( proj => "robin", ellps => "sphere", lon_0 => 10 )
  or die "parameter error: " . Geo::Proj4->error . "\n";

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

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

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

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

$IPs{$ip} = 1;

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

if ( defined($location) )
		{
			$lat  = $location->latitude;
			$long = $location->longitude;
			$city = $location->city;
			( $x, $y ) = $proj->forward( $lat, $long );
			$x = round( ( $x + $x_offset ) / $max_x * $width );
			$y = round( ( $y_offset - $y ) / $max_y * $height );

$city = "Unknown ($lat, $long)" if ( $city eq '' );

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

$mapimage->filledRectangle( $x - 1, $y - 1, $x + 1, $y + 1,
								  ( ( $vtype eq 'download' ) ? $red : $blue ) );
			}
			$cities{$city}{'count'} += $count;
			$types{$vtype}          += $count;

$cities{$city}{'x'} = $x;
			$cities{$city}{'y'} = $y;
		}
		else
		{
			$unmapped{$vtype} += $count;
		}
	}
}

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

binmode(STDOUT);

print $mapimage->jpeg();

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

Ignore Space Show notes View Repositories/Maps/google_map.js
function load( startMillis, numEntries ) { if ( GBrowserIsCompatible() ) { // Create new map. 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 a label // containing the other remaining arguments. 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 and load it on the map. // The format we expect is: // <markers abs="200" dl="100" ips="27"> // <marker city="Timbuktu" lat="37.441" long="-122.141" abs="10" dl="0" /> // <marker city="West Bromwich" lat="37.322" long="-121.213" abs="22" dl="49" /> // </markers> GDownloadUrl( "google_map_generate_data.pl?top=" + numEntries, function( data, responseCode ) { var xml = GXml.parse( data ); var markerlist = xml.documentElement.getElementsByTagName( "marker" ); for ( var i = 0; i < markerlist.length; i++ ) { var point = new GLatLng( parseFloat( markerlist[i].getAttribute( "lat" ) ), parseFloat( markerlist[i].getAttribute( "long" ) ) ); map.addOverlay( createMarker( point, markerlist[i].getAttribute( "city" ), markerlist[i].getAttribute( "abs" ), markerlist[i].getAttribute( "dl" ) ) ); } // Grab finishing time. We have to do this here rather than in // the main part of the load() function because the map data // are loaded asynchronously. var endTime = new Date(); var numUA = xml.documentElement.getAttribute( "ua" ); var numUD = xml.documentElement.getAttribute( "ud" ); document.getElementById( "timer" ).innerHTML = '<span style="color:red;">' + xml.documentElement.getAttribute( "dl" ) + ' downloads' + ( ( numUD > 0 ) ? ( ' (+' + numUD + ' unmappable)' ) : '' ) + '</span> & <span style="color:blue;">' + xml.documentElement.getAttribute( "abs" ) + ' abstracts' + ( ( numUD > 0 ) ? ( ' (+' + numUA + ' unmappable)' ) : '' ) + '</span> from ' + markerlist.length + ' cities (' + xml.documentElement.getAttribute( "ips" ) + ' IP addresses), page generated in ' + ( endTime - startMillis ) + ' ms.'; } ); } } function load( startMillis, numEntries ) { if ( GBrowserIsCompatible() ) { // Create new map. 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 a label // containing the other remaining arguments. 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 abs="200" dl="100" ips="27"> // <marker city="Timbuktu" lat="37.441" long="-122.141" abs="10" dl="0" /> // <marker city="West Bromwich" lat="37.322" long="-121.213" abs="22" dl="49" /> // </markers> GDownloadUrl( "google_map_generate_data.pl?top=" + numEntries, function( data, responseCode ) { var xml = GXml.parse( data ); var markerlist = xml.documentElement.getElementsByTagName( "marker" ); for ( var i = 0; i < markerlist.length; i++ ) { var point = new GLatLng( parseFloat( markerlist[i].getAttribute( "lat" ) ), parseFloat( markerlist[i].getAttribute( "long" ) ) ); map.addOverlay( createMarker( point, markerlist[i].getAttribute( "city" ), markerlist[i].getAttribute( "abs" ), markerlist[i].getAttribute( "dl" ) ) ); } // Grab finishing time. We have to do this here rather than in // the main part of the load() function because the map data // are loaded asynchronously. var endTime = new Date(); var numUA = xml.documentElement.getAttribute( "ua" ); var numUD = xml.documentElement.getAttribute( "ud" ); document.getElementById( "timer" ).innerHTML = '<span style="color:red;">' + xml.documentElement.getAttribute( "dl" ) + ' downloads' + ( ( numUD > 0 ) ? ( ' (+' + numUD + ' unmappable)' ) : '' ) + '</span> & <span style="color:blue;">' + xml.documentElement.getAttribute( "abs" ) + ' abstracts' + ( ( numUD > 0 ) ? ( ' (+' + numUA + ' unmappable)' ) : '' ) + '</span> from ' + markerlist.length + ' cities (' + xml.documentElement.getAttribute( "ips" ) + ' IP addresses), page generated in ' + ( endTime - startMillis ) + ' ms.'; } ); } }

Ignore Space Show notes View

Repositories/Maps/google_map.js

Ignore Space Show notes View Repositories/Maps/google_map.php
<?php list( $start_micro, $start_sec ) = explode( " ", microtime() ); ?> <!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>Repository hit visualisation using Google Maps</title> <script src="http://maps.google.com/maps?file=api&v=2&key=ABQIAAAAdiP-i78VGweF9QIs3Kzx5xSrBOD9wh0lHQGbvVgYRG7Dg2gE1xQNhJmY4S8_BwZb4md1JO0soLOr8w" type="text/javascript"></script> <script type="text/javascript" src="google_map.js"></script> </head> <?php echo '<body onload="load(' . ( ( (float)$start_micro + (float)$start_sec ) * 1000 ) . ',' . ( ( isset( $_REQUEST['top'] ) ) ? $_REQUEST['top'] : 10 ) . ')" onunload="GUnload()">'; ?> <h1>Repository hit visualisation using Google Maps</h1> <p>Stats current as of early afternoon 8 May 2006.</p> <div id="timer">Loading…</div> <div id="map" style="width:1024px; height:768px; border:1px solid black;"></div> </body> <?php list( $start_micro, $start_sec ) = explode( " ", microtime() ); ?> <!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>Repository hit visualisation using Google Maps</title> <script src="http://maps.google.com/maps?file=api&v=2&key=ABQIAAAAdiP-i78VGweF9QIs3Kzx5xSrBOD9wh0lHQGbvVgYRG7Dg2gE1xQNhJmY4S8_BwZb4md1JO0soLOr8w" type="text/javascript"></script> <script type="text/javascript" src="google_map.js"></script> </head> <?php echo '<body onload="load(' . ( ( (float)$start_micro + (float)$start_sec ) * 1000 ) . ',' . ( ( isset( $_REQUEST['top'] ) ) ? $_REQUEST['top'] : 10 ) . ')" onunload="GUnload()">'; ?> <h1>Repository hit visualisation using Google Maps</h1> <p>Stats current as of early afternoon 8 May 2006.</p> <div id="timer">Loading…</div> <div id="map" style="width:1024px; height:768px"></div> </body>

Ignore Space Show notes View

Repositories/Maps/google_map.php

<?php
	list( $start_micro, $start_sec ) = explode( " ", microtime() );
?>

<!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>Repository hit visualisation using Google Maps</title>
	<script src="http://maps.google.com/maps?file=api&amp;v=2&amp;key=ABQIAAAAdiP-i78VGweF9QIs3Kzx5xSrBOD9wh0lHQGbvVgYRG7Dg2gE1xQNhJmY4S8_BwZb4md1JO0soLOr8w" type="text/javascript"></script>
	<script type="text/javascript" src="google_map.js"></script>
</head>

<?php
	echo '<body onload="load('
		. ( ( (float)$start_micro + (float)$start_sec ) * 1000 )
		. ','
		. ( ( isset( $_REQUEST['top'] ) ) ? $_REQUEST['top'] : 10 )
		. ')" onunload="GUnload()">';
?>

<h1>Repository hit visualisation using Google Maps</h1>

<p>Stats current as of early afternoon 8 May 2006.</p>

<div id="timer">Loading&hellip;</div>

</body>

<?php
	list( $start_micro, $start_sec ) = explode( " ", microtime() );
?>

<?php
	echo '<body onload="load('
		. ( ( (float)$start_micro + (float)$start_sec ) * 1000 )
		. ','
		. ( ( isset( $_REQUEST['top'] ) ) ? $_REQUEST['top'] : 10 )
		. ')" onunload="GUnload()">';
?>

<h1>Repository hit visualisation using Google Maps</h1>

<p>Stats current as of early afternoon 8 May 2006.</p>

<div id="timer">Loading&hellip;</div>

</body>

Ignore Space Show notes View Repositories/Maps/google_map_generate_data.pl
#!/usr/bin/env perl use strict; use CGI; use DBI; use Geo::IP; my ($page); # Database connection. my ($dsn) = "DBI:mysql:database=eprintstats;host=localhost"; my ($user_name) = "eprintstatspriv"; my ($password) = "AuldGrizzel"; my ( $connect, $query, %types, %unmapped, $stat, $row, $num_rows, $vtype ); # Geolocation database. my ($gi); my ($gidb) = '/usr/local/share/GeoIP/GeoLiteCity.dat'; # Miscellaneous variable. my ( %cities, %IPs ); my ($num_entries) = -1; my ($num_hits) = 0; my ( $ip, $count, $location ); my ( $lat, $long, $city ) = ( 0, 0, '' ); $page = new CGI; print $page->header( -type => "text/xml", -Pragma => 'no-cache' ); $num_entries = $page->param('top'); $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; $unmapped{'download'} = $unmapped{'abstract'} = 0; $query = "SELECT ip, view_type, COUNT() AS count FROM view GROUP BY ip, view_type ORDER BY count DESC" . ( ( $num_entries > 0 ) ? " LIMIT $num_entries" : '' ); $stat = $connect->prepare($query); $stat->execute(); $num_rows = $stat->rows; if ( $num_rows > 0 ) { $num_entries = $num_rows if ( $num_entries < 1 ); while ( $row = $stat->fetchrow_hashref() ) { $ip = $row->{'ip'}; $count = $row->{'count'}; $vtype = $row->{'view_type'}; $IPs{$ip} = 1; $location = $gi->record_by_addr($ip); if ( defined($location) ) { $lat = $location->latitude; $long = $location->longitude; $city = ( ( $location->city eq '' ) ? 'Unknown' : $location->city ) . " ($lat, $long)"; if ( !defined( $cities{$city} ) ) { $cities{$city}{'lat'} = $lat; $cities{$city}{'long'} = $long; $cities{$city}{'abstract'} = 0; $cities{$city}{'download'} = 0; } $cities{$city}{$vtype} += $count; $types{$vtype} += $count; } else { $unmapped{$vtype} += $count; } } # Need to wait until we have all the counts before writing the data out. print '<?xml version="1.0"?>' . "\n"; print '<markers abs="' . $types{'abstract'} . '" dl="' . $types{'download'} . '" ips="' . scalar( keys %IPs ) . '" ua="' . $unmapped{'abstract'} . '" ud="' . $unmapped{'download'} . '">' . "\n"; foreach $city ( keys %cities ) { print '<marker city="' . $city . '" lat="' . $cities{$city}{'lat'} . '" long="' . $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 ) ); } #!/usr/bin/env perl use strict; use CGI; use DBI; use Geo::IP; my ($page); # Database connection. my ($dsn) = "DBI:mysql:database=eprintstats;host=localhost"; my ($user_name) = "eprintstatspriv"; my ($password) = "AuldGrizzel"; my ( $connect, $query, %types, %unmapped, $stat, $row, $num_rows, $vtype ); # Geolocation database. my ($gi); my ($gidb) = '/usr/local/share/GeoIP/GeoLiteCity.dat'; # Miscellaneous variable. my ( %cities, %IPs ); my ($num_entries) = -1; my ($num_hits) = 0; my ( $ip, $count, $location ); my ( $lat, $long, $city ) = ( 0, 0, '' ); $page = new CGI; print $page->header( -type => "text/xml", -Pragma => 'no-cache' ); $num_entries = $page->param('top'); $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; $unmapped{'download'} = $unmapped{'abstract'} = 0; $query = "SELECT ip, view_type, COUNT() AS count FROM view GROUP BY ip, view_type ORDER BY count DESC" . ( ( $num_entries > 0 ) ? " LIMIT $num_entries" : '' ); $stat = $connect->prepare($query); $stat->execute(); $num_rows = $stat->rows; if ( $num_rows > 0 ) { $num_entries = $num_rows if ( $num_entries < 1 ); while ( $row = $stat->fetchrow_hashref() ) { $ip = $row->{'ip'}; $count = $row->{'count'}; $vtype = $row->{'view_type'}; $IPs{$ip} = 1; $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; $types{$vtype} += $count; } else { $unmapped{$vtype} += $count; } } # Need to wait until we have all the counts before writing the data out. print '<?xml version="1.0"?>' . "\n"; print '<markers abs="' . $types{'abstract'} . '" dl="' . $types{'download'} . '" ips="' . scalar( keys %IPs ) . '" ua="' . $unmapped{'abstract'} . '" ud="' . $unmapped{'download'} . '">' . "\n"; foreach $city ( keys %cities ) { print '<marker city="' . $city . '" lat="' . $cities{$city}{'lat'} . '" long="' . $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

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

my ($page);

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

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

$page = new CGI;
print $page->header( -type => "text/xml", -Pragma => 'no-cache' );
$num_entries = $page->param('top');

$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 } );

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

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

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

$IPs{$ip} = 1;

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

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

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

# Need to wait until we have all the counts before writing the data out.
	print '<?xml version="1.0"?>' . "\n";
	print '<markers abs="'
	  . $types{'abstract'}
	  . '" dl="'
	  . $types{'download'}
	  . '" ips="'
	  . scalar( keys %IPs )
	  . '" ua="'
	  . $unmapped{'abstract'}
	  . '" ud="'
	  . $unmapped{'download'} . '">' . "\n";

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

print "</markers>\n";
}