- Renamed "coordinates" to "gd_map". - Added JavaScript and HTML for GD map. - Finished off Google map timing code.

nigel.stanger / Digital_Repository

Browse code - Renamed "coordinates" to "gd_map". - Added JavaScript and HTML for GD map. - Finished off Google map timing code. - Updated layout of web pages. master
1 parent 54f5a1f commit 3ec725f5e1bb70e9ead0de8aeeab135e897685d4 nstanger authored on 12 May 2006

Patch

Showing 6 changed files

Ignore Space Show notes View Repositories/Maps/gd_map.js 0 → 100755
/****************************************************************************** * Code adapted from Rasmus' 30 second AJAX Tutorial at: * http://rajshekhar.net/blog/archives/85-Rasmus-30-second-AJAX-Tutorial.html ****************************************************************************/ /**************************************************************************** * Create XMLHttpRequest object. This happens once when the page * is loaded. / function createRequestObject() { var ro; var browser = navigator.appName; // In typical fashion, Microsoft does things differently. if (browser == "Microsoft Internet Explorer") { ro = new ActiveXObject("Microsoft.XMLHTTP"); } else { ro = new XMLHttpRequest(); } return ro; } // Global XMLHttpRequest object. var http = createRequestObject(); /***************************************************************************** * Send a request to the back end application (written in PHP here, but * could be ASP, Java servlets, etc.). To use this, attach it to an (X)HTML * element either as a direct link, e.g.: * * <a href="javascript:sendRequest('foo', 'on')">[foo]</a> * * or via an onclick event, e.g.: * * <img src="foo.jpg" onclick="javascript:sendRequest('foo', 'off')" /> * * If you need different handlers for different things, just create them as * separate PHP files on the back end, and dispatch appropriately from here. * For example, if you want a separate handler for database operations, you * could add another function called "sendDBRequest", or something similar. */ function load() { // Somewhere to write the timing information to. var timer = document.getElementById( "timer" ); timer.innerHTML = "Loading..."; // Grab start time. var startTime = new Date(); // Open the request. http.open('GET', 'coordinates.pl?width=900&height=457', true); // Set callback function. http.onreadystatechange = function() { if(http.readyState == 4) { if (http.status == 200) // Did it work? { // Grab the response content. var response = http.responseText; document.getElementById( "timer" ).innerHTML = ''; } } // 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(); timer.innerHTML = 'Generated in ' + ( endTime - startTime ) + ' ms.'; }; // Send the request. http.send(null); }

Ignore Space Show notes View

Repositories/Maps/gd_map.js 0 → 100755

/******************************************************************************
 * Code adapted from Rasmus' 30 second AJAX Tutorial at:
 *  http://rajshekhar.net/blog/archives/85-Rasmus-30-second-AJAX-Tutorial.html
 ******************************************************************************/

/******************************************************************************
 * Create XMLHttpRequest object. This happens once when the page
 * is loaded.
 */
function createRequestObject()
{
	var ro;
	var browser = navigator.appName;
	// In typical fashion, Microsoft does things differently.
	if (browser == "Microsoft Internet Explorer")
	{
		ro = new ActiveXObject("Microsoft.XMLHTTP");
	}
	else
	{
		ro = new XMLHttpRequest();
	}
	return ro;
}

// Global XMLHttpRequest object.
var http = createRequestObject();

/******************************************************************************
 * Send a request to the back end application (written in PHP here, but
 * could be ASP, Java servlets, etc.). To use this, attach it to an (X)HTML
 * element either as a direct link, e.g.:
 *
 * <a href="javascript:sendRequest('foo', 'on')">[foo]</a>
 *
 * or via an onclick event, e.g.:
 *
 * <img src="foo.jpg" onclick="javascript:sendRequest('foo', 'off')" />
 *
 * If you need different handlers for different things, just create them as
 * separate PHP files on the back end, and dispatch appropriately from here.
 * For example, if you want a separate handler for database operations, you
 * could add another function called "sendDBRequest", or something similar.
 */
function load()
{
	// Somewhere to write the timing information to.
	var timer = document.getElementById( "timer" );
	timer.innerHTML = "Loading...";
	
	// Grab start time.
	var startTime = new Date();
	
	// Open the request.
	http.open('GET', 'coordinates.pl?width=900&height=457', true);
	
	// Set callback function.
	http.onreadystatechange =
		function()
		{
			if(http.readyState == 4)
			{
				if (http.status == 200) // Did it work?
				{
					// Grab the response content.
					var response = http.responseText;
					document.getElementById( "timer" ).innerHTML = '';
				}
			}
			// 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();
			timer.innerHTML = 'Generated in ' + ( endTime - startTime ) + 	' ms.';
		};
	
	// Send the request.
	http.send(null);
}

Ignore Space Show notes View Repositories/Maps/gd_map.php 0 → 100755
<!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 onload="load()"> <h1>Repository hit visualisation using GD</h1> <p>Stats current as of early afternoon 8 May 2006. You can also view the <a href="coordinates.pl?width=3599&height=1826"><strong>REALLY BIG</strong> version</a>.</p> <div id="timer"></div> <div id="map" style="width:900px; height:457px"></div> <!-- <p><img src="coordinates.pl?width=900&height=457" width="900" height="457" alt="Small version loading --- please wait..." /></p> --> </body> </html>

Ignore Space Show notes View

Repositories/Maps/gd_map.php 0 → 100755

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 ($page); my ($dsn) = "DBI:mysql:database=eprintstats;host=localhost"; my ($user_name) = "eprintstatspriv"; my ($password) = "AuldGrizzel"; my ($connect, $query, %types, $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); my ($num_IPs) = -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' ); $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; $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; ($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; } } } $stat->finish(); $connect->disconnect(); $mapimage->string( gdSmallFont, 3, 3, "$types{'download'} downloads", $red ); $mapimage->string( gdSmallFont, 3, 15, "$types{'abstract'} abstracts", $blue ); $mapimage->string( gdSmallFont, 3, 27, 'from ' . scalar( keys %cities ) . ' cities', $black ); $mapimage->string( gdSmallFont, 3, 39, "($num_rows IP addresses)", $black ); my ($finish_sec, $finish_micro) = gettimeofday(); $mapimage->string( gdSmallFont, 3, $height - 15, 'Generated in ' . round( ( $finish_micro - $start_micro ) / 1000 ) . ' ms', $black ); binmode(STDOUT); print $mapimage->jpeg(); sub round { my ($n) = shift; return int( $n + .5 * ($n <=> 0) ); } #!/usr/bin/env perl use strict; use CGI; use DBI; use GD; use Geo::IP; use Geo::Proj4; my ($start_time) = time(); my ($page); my ($dsn) = "DBI:mysql:database=eprintstats;host=localhost"; my ($user_name) = "eprintstatspriv"; my ($password) = "AuldGrizzel"; my ($connect, $query, %types, $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); my ($num_IPs) = -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' ); $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; $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; ($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; } } } $stat->finish(); $connect->disconnect(); $mapimage->string( gdSmallFont, 3, 3, "$types{'download'} downloads", $red ); $mapimage->string( gdSmallFont, 3, 15, "$types{'abstract'} abstracts", $blue ); $mapimage->string( gdSmallFont, 3, 27, 'from ' . scalar( keys %cities ) . ' cities', $black ); $mapimage->string( gdSmallFont, 3, 39, "($num_rows IP addresses)", $black ); $mapimage->string( gdSmallFont, 3, $height - 15, 'Generated in ' . ( time() - $start_time ) . ' seconds', $black ); binmode(STDOUT); print $mapimage->jpeg(); sub round { my ($n) = shift; return int( $n + .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 ($page);

my ($dsn) = "DBI:mysql:database=eprintstats;host=localhost";
my ($user_name) = "eprintstatspriv";
my ($password) = "AuldGrizzel";
my ($connect, $query, %types, $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);
my ($num_IPs) = -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' );

$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;
$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;
			($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;
		}
	}
}
	
$stat->finish();
$connect->disconnect();
	
$mapimage->string( gdSmallFont, 3, 3, "$types{'download'} downloads", $red );
$mapimage->string( gdSmallFont, 3, 15, "$types{'abstract'} abstracts", $blue );
$mapimage->string( gdSmallFont, 3, 27, 'from ' . scalar( keys %cities ) . ' cities', $black );
$mapimage->string( gdSmallFont, 3, 39, "($num_rows IP addresses)", $black );

my ($finish_sec, $finish_micro) = gettimeofday();
$mapimage->string( gdSmallFont, 3, $height - 15, 'Generated in ' . round( ( $finish_micro - $start_micro ) / 1000 ) . ' ms', $black );

binmode(STDOUT);

print $mapimage->jpeg();

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

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

my ($start_time) = time();