- Added support for filtering by eprint ID. - Moved hit type filtering into SQL query where it belongs.

nigel.stanger / Digital_Repository

Browse code - Added support for filtering by eprint ID. - Moved hit type filtering into SQL query where it belongs. master
1 parent ba446e7 commit 9a3cefb8fb4f160bf8e1c8ddfe859b9f95bd1ae2 nstanger authored on 16 May 2006

Patch

Showing 8 changed files

Ignore Space Show notes View Repositories/Maps/css_map.js
// Global XMLHttpRequest object. var httpRequest = new XMLHttpRequest(); function load( startMillis, numEntries, showOnly, eprintIDs ) { // 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 + "&show=" + showOnly + "&eprint=" + eprintIDs, 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, showOnly ) { // 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 + "&show=" + showOnly, 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); }

Ignore Space Show notes View

Repositories/Maps/css_map.js

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

}

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

}

Ignore Space Show notes View Repositories/Maps/css_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> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <meta http-equiv="cache-control" content="no-cache" /> <meta http-equiv="pragma" content="no-cache" /> <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 ) . ',' . ( ( isset( $_REQUEST['show'] ) ) ? ( "'" . $_REQUEST['show'] . "'" ) : "'both'" ) . ',' . ( ( isset( $_REQUEST['eprint'] ) ) ? ( "'" . $_REQUEST['eprint'] . "'" ) : "''" ) . ')">'; ?> <h1>Repository hit visualisation using CSS</h1> <div id="timer">Loading…</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> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <meta http-equiv="cache-control" content="no-cache" /> <meta http-equiv="pragma" content="no-cache" /> <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 ) . ',' . ( ( isset( $_REQUEST['show'] ) ) ? ( "'" . $_REQUEST['show'] . "'" ) : "'both'" ) . ')">'; ?> <h1>Repository hit visualisation using CSS</h1> <div id="timer">Loading…</div> <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

Repositories/Maps/css_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>
<head>
	<meta http-equiv="content-type" content="text/html; charset=utf-8" />
	<meta http-equiv="cache-control" content="no-cache" />
	<meta http-equiv="pragma" content="no-cache" />
	<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 )
		. ','
		. ( ( isset( $_REQUEST['show'] ) ) ? ( "'" . $_REQUEST['show'] . "'" ) : "'both'" )
		. ','
		. ( ( isset( $_REQUEST['eprint'] ) ) ? ( "'" . $_REQUEST['eprint'] . "'" ) : "''" )
		. ')">';
?>

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

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

</body>
</html>

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

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

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

</body>
</html>

Ignore Space Show notes View Repositories/Maps/css_map.pl
#!/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 ); my ($where) = ''; # 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; # include all entries from database my ($num_hits) = 0; my ( $ip, $count, $location ); my ( $city, $lat, $long, $x, $y ) = ( 0, 0, '', 0, 0 ); my ($show_only) = 'both'; # include both abstracts & downloads my ($eprint) = ''; my ($tc) = '#000000'; $page = new CGI; print $page->header( -type => "text/html", -Pragma => 'no-cache', -Cache-Control => 'no-cache' ); $num_entries = $page->param('top') if ( defined $page->param('top') ); $show_only = $page->param('show') if ( defined $page->param('show') ); $eprint = $page->param('eprint') if ( defined $page->param('eprint') ); $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; # Set up query. if ( $show_only eq 'both') { $where = "view_type IN ('download', 'abstract')"; } else { $where = "view_type = '$show_only'"; } $where .= " AND archiveid IN ($eprint)" unless ( $eprint eq '' ); $query = "SELECT ip, view_type, COUNT() AS count FROM view WHERE $where 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; $cities{$city}{'count'} = 0; } $cities{$city}{$vtype} += $count; $cities{$city}{'count'} += $count; $types{$vtype} += $count; $cities{$city}{'x'} = $x; $cities{$city}{'y'} = $y; } else { $unmapped{$vtype} += $count; } } } $stat->finish(); $connect->disconnect(); # Generate dots for each city. CITY: foreach $city ( keys %cities ) { if ( $show_only eq 'both' ) { # Blend colour according to the ratio of abstracts to downloads. $tc = sprintf( '#%02x00%02x', round( $cities{$city}{'download'} / $cities{$city}{'count'} * 255 ), round( $cities{$city}{'abstract'} / $cities{$city}{'count'} * 255 ) ); } elsif ( $show_only eq 'download' ) { next CITY if ( $cities{$city}{'download'} == 0 ); $tc = '#ff0000'; } elsif ( $show_only eq 'abstract' ) { next CITY if ( $cities{$city}{'abstract'} == 0 ); $tc = '#0000ff'; } else # ack, boom { last CITY; } print '<div style="position:absolute; width:3px; height:3px; left:' . ( $cities{$city}{'x'} - 1 ) . 'px; top:' . ( $cities{$city}{'y'} - 1 ) . 'px; background-color:' . $tc . ';"></div>' . "\n"; } # Output summary data. print '<div style="position:absolute; left:1px; top:1px; font-size:small;">'; if ( ( $show_only eq 'both' ) \|\| ( $show_only eq 'download' ) ) { print '<span style="color:red;">' . $types{'download'} . ' downloads' . ( ( $unmapped{'download'} > 0 ) ? " (+$unmapped{'download'} unmappable)" : '' ) . '</span>'; } print "<br />\n"; if ( ( $show_only eq 'both' ) \|\| ( $show_only eq 'abstract' ) ) { print '<span style="color:blue;">' . $types{'abstract'} . ' abstracts' . ( ( $unmapped{'abstract'} > 0 ) ? " (+$unmapped{'abstract'} unmappable)" : '' ) . '</span>'; } print "<br />\nfrom " . 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; # include all entries from database my ($num_hits) = 0; my ( $ip, $count, $location ); my ( $city, $lat, $long, $x, $y ) = ( 0, 0, '', 0, 0 ); my ($show_only) = 'both'; # include both abstracts & downloads my ($tc) = '#000000'; $page = new CGI; print $page->header( -type => "text/html", -Pragma => 'no-cache', -Cache-Control => 'no-cache' ); $num_entries = $page->param('top') if ( defined $page->param('top') ); $show_only = $page->param('show') if ( defined $page->param('show') ); $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; $cities{$city}{'count'} = 0; } $cities{$city}{$vtype} += $count; $cities{$city}{'count'} += $count; $types{$vtype} += $count; $cities{$city}{'x'} = $x; $cities{$city}{'y'} = $y; } else { $unmapped{$vtype} += $count; } } } $stat->finish(); $connect->disconnect(); CITY: foreach $city ( keys %cities ) { if ( $show_only eq 'both' ) { # Blend colour according to the ratio of abstracts to downloads. $tc = sprintf( '#%02x00%02x', round( $cities{$city}{'download'} / $cities{$city}{'count'} * 255 ), round( $cities{$city}{'abstract'} / $cities{$city}{'count'} * 255 ) ); } elsif ( $show_only eq 'download' ) { next CITY if ( $cities{$city}{'download'} == 0 ); $tc = '#ff0000'; } elsif ( $show_only eq 'abstract' ) { next CITY if ( $cities{$city}{'abstract'} == 0 ); $tc = '#0000ff'; } else # ack, boom { last CITY; } print '<div style="position:absolute; width:3px; height:3px; left:' . ( $cities{$city}{'x'} - 1 ) . 'px; top:' . ( $cities{$city}{'y'} - 1 ) . 'px; background-color:' . $tc . ';"></div>' . "\n"; } # Write out summary data. print '<div style="position:absolute; left:1px; top:1px; font-size:small;">'; if ( ( $show_only eq 'both' ) \|\| ( $show_only eq 'download' ) ) { print '<span style="color:red;">' . $types{'download'} . ' downloads' . ( ( $unmapped{'download'} > 0 ) ? " (+$unmapped{'download'} unmappable)" : '' ) . '</span>'; } print "<br />\n"; if ( ( $show_only eq 'both' ) \|\| ( $show_only eq 'abstract' ) ) { print '<span style="color:blue;">' . $types{'abstract'} . ' abstracts' . ( ( $unmapped{'abstract'} > 0 ) ? " (+$unmapped{'abstract'} unmappable)" : '' ) . '</span>'; } print "<br />\nfrom " . 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

Repositories/Maps/css_map.pl

#!/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 );
my ($where) = '';

# 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;    # include all entries from database
my ($num_hits)    = 0;
my ( $ip,   $count, $location );
my ( $city, $lat,   $long, $x, $y ) = ( 0, 0, '', 0, 0 );
my ($show_only) = 'both';    # include both abstracts & downloads
my ($eprint) = '';
my ($tc) = '#000000';

$page = new CGI;
print $page->header( -type => "text/html", -Pragma => 'no-cache', -Cache-Control => 'no-cache' );
$num_entries = $page->param('top')  if ( defined $page->param('top') );
$show_only   = $page->param('show') if ( defined $page->param('show') );
$eprint   = $page->param('eprint') if ( defined $page->param('eprint') );

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

# Set up query.
if ( $show_only eq 'both')
{
	$where = "view_type IN ('download', 'abstract')";
}
else
{
	$where = "view_type = '$show_only'";
}

$where .= " AND archiveid IN ($eprint)" unless ( $eprint eq '' );

$query = "SELECT ip, view_type, COUNT(*) AS count
	 FROM view
	 WHERE $where
	 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;
				$cities{$city}{'count'}    = 0;
			}
			$cities{$city}{$vtype} += $count;
			$cities{$city}{'count'} += $count;
			$types{$vtype}         += $count;

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

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

# Generate dots for each city.
CITY: foreach $city ( keys %cities )
{
	if ( $show_only eq 'both' )
	{
		# Blend colour according to the ratio of abstracts to downloads.
		$tc = sprintf( '#%02x00%02x',
			round( $cities{$city}{'download'} / $cities{$city}{'count'} * 255 ),
			round( $cities{$city}{'abstract'} / $cities{$city}{'count'} * 255 )
		);
	}
	elsif ( $show_only eq 'download' )
	{
		next CITY if ( $cities{$city}{'download'} == 0 );
		$tc = '#ff0000';
	}
	elsif ( $show_only eq 'abstract' )
	{
		next CITY if ( $cities{$city}{'abstract'} == 0 );
		$tc = '#0000ff';
	}
	else    # ack, boom
	{
		last CITY;
	}
	print
	  '<div style="position:absolute; width:3px; height:3px; left:'
	  . ( $cities{$city}{'x'} - 1 )
	  . 'px; top:'
	  . ( $cities{$city}{'y'} - 1 )
	  . 'px; background-color:'
	  . $tc
	  . ';"></div>' . "\n";
}

# Output summary data.
print '<div style="position:absolute; left:1px; top:1px; font-size:small;">';
if ( ( $show_only eq 'both' ) || ( $show_only eq 'download' ) )
{
	print '<span style="color:red;">'
	  . $types{'download'}
	  . ' downloads'
	  . (
		  ( $unmapped{'download'} > 0 ) ? " (+$unmapped{'download'} unmappable)"
		  : ''
	  )
	  . '</span>';
}
print "<br />\n";
if ( ( $show_only eq 'both' ) || ( $show_only eq 'abstract' ) )
{
	print '<span style="color:blue;">'
	  . $types{'abstract'}
	  . ' abstracts'
	  . (
		  ( $unmapped{'abstract'} > 0 ) ? " (+$unmapped{'abstract'} unmappable)"
		  : ''
	  )
	  . '</span>';
}
print "<br />\nfrom "
  . 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);

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

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

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

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

CITY: foreach $city ( keys %cities )
{
	if ( $show_only eq 'both' )
	{
		# Blend colour according to the ratio of abstracts to downloads.
		$tc = sprintf( '#%02x00%02x',
			round( $cities{$city}{'download'} / $cities{$city}{'count'} * 255 ),
			round( $cities{$city}{'abstract'} / $cities{$city}{'count'} * 255 )
		);
	}
	elsif ( $show_only eq 'download' )
	{
		next CITY if ( $cities{$city}{'download'} == 0 );
		$tc = '#ff0000';
	}
	elsif ( $show_only eq 'abstract' )
	{
		next CITY if ( $cities{$city}{'abstract'} == 0 );
		$tc = '#0000ff';
	}
	else    # ack, boom
	{
		last CITY;
	}
	print
	  '<div style="position:absolute; width:3px; height:3px; left:'
	  . ( $cities{$city}{'x'} - 1 )
	  . 'px; top:'
	  . ( $cities{$city}{'y'} - 1 )
	  . 'px; background-color:'
	  . $tc
	  . ';"></div>' . "\n";
}

# Write out summary data.
print '<div style="position:absolute; left:1px; top:1px; font-size:small;">';
if ( ( $show_only eq 'both' ) || ( $show_only eq 'download' ) )
{
	print '<span style="color:red;">'
	  . $types{'download'}
	  . ' downloads'
	  . (
		  ( $unmapped{'download'} > 0 ) ? " (+$unmapped{'download'} unmappable)"
		  : ''
	  )
	  . '</span>';
}
print "<br />\n";
if ( ( $show_only eq 'both' ) || ( $show_only eq 'abstract' ) )
{
	print '<span style="color:blue;">'
	  . $types{'abstract'}
	  . ' abstracts'
	  . (
		  ( $unmapped{'abstract'} > 0 ) ? " (+$unmapped{'abstract'} unmappable)"
		  : ''
	  )
	  . '</span>';
}
print "<br />\nfrom "
  . 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 Repositories/Maps/gd_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> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <meta http-equiv="cache-control" content="no-cache" /> <meta http-equiv="pragma" content="no-cache" /> <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> <div id="timer">Loading…</div> <div> <?php echo '<img id="map" src="gd_map.pl?width=1024&height=520&top=' . ( ( isset( $_REQUEST['top'] ) ) ? $_REQUEST['top'] : 10 ) . '&show=' . ( ( isset( $_REQUEST['show'] ) ) ? $_REQUEST['show'] : 'both' ) . '&eprint=' . ( ( isset( $_REQUEST['eprint'] ) ) ? $_REQUEST['eprint'] : '' ) . '" 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> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <meta http-equiv="cache-control" content="no-cache" /> <meta http-equiv="pragma" content="no-cache" /> <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> <div id="timer">Loading…</div> <div> <?php echo '<img id="map" src="gd_map.pl?width=1024&height=520&top=' . ( ( isset( $_REQUEST['top'] ) ) ? $_REQUEST['top'] : 10 ) . '&show=' . ( ( isset( $_REQUEST['show'] ) ) ? $_REQUEST['show'] : 'both' ) . '" onLoad="imageLoaded(' . ( ( (float)$start_micro + (float)$start_sec ) * 1000 ) . ')" width="1024" height="520" alt="" style="border:1px solid black;" />'; ?> </div> </body> </html>

Ignore Space Show notes View

Repositories/Maps/gd_map.php

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

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

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

</body>
</html>

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

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

<div id="timer">Loading&hellip;</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 ($where) = ''; # GD image stuff. my ( $mapimage, $mapimagefile ); my ( $red, $white, $black, $blue, $tc ); 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; # include all entries from database my ($num_hits) = 0; my ( $ip, $count, $location ); my ( $city, $lat, $long, $x, $y ) = ( 0, 0, '', 0, 0 ); my ($show_only) = 'both'; # include both abstracts & downloads my ($eprint) = ''; $page = new CGI; print $page->header( -type => "image/jpeg", -Pragma => 'no-cache', -Cache-Control => 'no-cache' ); $num_entries = $page->param('top') if ( defined $page->param('top') ); $show_only = $page->param('show') if ( defined $page->param('show') ); $eprint = $page->param('eprint') if ( defined $page->param('eprint') ); $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 ); for ( my $i = 1; $i < 255; $i++ ) { $tc = $mapimage->colorAllocate( $i, 0, ( 255 - $i ) ); } $connect = DBI->connect( $dsn, $user_name, $password, { RaiseError => 1 } ); $types{'download'} = $types{'abstract'} = 0; $unmapped{'download'} = $unmapped{'abstract'} = 0; # Set up query. if ( $show_only eq 'both') { $where = "view_type IN ('download', 'abstract')"; } else { $where = "view_type = '$show_only'"; } $where .= " AND archiveid IN ($eprint)" unless ( $eprint eq '' ); $query = "SELECT ip, view_type, COUNT() AS count FROM view WHERE $where 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; $cities{$city}{'count'} = 0; } $cities{$city}{$vtype} += $count; $cities{$city}{'count'} += $count; $types{$vtype} += $count; $cities{$city}{'x'} = $x; $cities{$city}{'y'} = $y; } else { $unmapped{$vtype} += $count; } } } $stat->finish(); $connect->disconnect(); # Generate dots for each city. CITY: foreach $city ( keys %cities ) { if ( $show_only eq 'both' ) { # Blend colour according to the ratio of abstracts to downloads. $tc = $mapimage->colorClosest( round( $cities{$city}{'download'} / $cities{$city}{'count'} * 255 ), 0, round( $cities{$city}{'abstract'} / $cities{$city}{'count'} * 255 ) ); } elsif ( $show_only eq 'download' ) { next CITY if ( $cities{$city}{'download'} == 0 ); $tc = $red; } elsif ( $show_only eq 'abstract' ) { next CITY if ( $cities{$city}{'abstract'} == 0 ); $tc = $blue; } else # ack, boom { last CITY; } $mapimage->filledRectangle( $cities{$city}{'x'} - 1, $cities{$city}{'y'} - 1, $cities{$city}{'x'} + 1, $cities{$city}{'y'} + 1, $tc ); } # Output summary data. if ( ( $show_only eq 'both' ) \|\| ( $show_only eq 'download' ) ) { $mapimage->string( gdSmallFont, 3, 3, "$types{'download'} downloads" . ( ( $unmapped{'download'} > 0 ) ? " (+$unmapped{'download'} unmappable)" : '' ), $red ); } if ( ( $show_only eq 'both' ) \|\| ( $show_only eq 'abstract' ) ) { $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); # 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 ); # GD image stuff. my ( $mapimage, $mapimagefile ); my ( $red, $white, $black, $blue, $tc ); 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; # include all entries from database my ($num_hits) = 0; my ( $ip, $count, $location ); my ( $city, $lat, $long, $x, $y ) = ( 0, 0, '', 0, 0 ); my ($show_only) = 'both'; # include both abstracts & downloads $page = new CGI; print $page->header( -type => "image/jpeg", -Pragma => 'no-cache', -Cache-Control => 'no-cache' ); $num_entries = $page->param('top') if ( defined $page->param('top') ); $show_only = $page->param('show') if ( defined $page->param('show') ); $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 ); for ( my $i = 1; $i < 255; $i++ ) { $tc = $mapimage->colorAllocate( $i, 0, ( 255 - $i ) ); } $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; $cities{$city}{'count'} = 0; } $cities{$city}{$vtype} += $count; $cities{$city}{'count'} += $count; $types{$vtype} += $count; $cities{$city}{'x'} = $x; $cities{$city}{'y'} = $y; } else { $unmapped{$vtype} += $count; } } } $stat->finish(); $connect->disconnect(); if ( ( $show_only eq 'both' ) \|\| ( $show_only eq 'download' ) ) { $mapimage->string( gdSmallFont, 3, 3, "$types{'download'} downloads" . ( ( $unmapped{'download'} > 0 ) ? " (+$unmapped{'download'} unmappable)" : '' ), $red ); } if ( ( $show_only eq 'both' ) \|\| ( $show_only eq 'abstract' ) ) { $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 ); CITY: foreach $city ( keys %cities ) { if ( $show_only eq 'both' ) { # Blend colour according to the ratio of abstracts to downloads. $tc = $mapimage->colorClosest( round( $cities{$city}{'download'} / $cities{$city}{'count'} * 255 ), 0, round( $cities{$city}{'abstract'} / $cities{$city}{'count'} * 255 ) ); } elsif ( $show_only eq 'download' ) { next CITY if ( $cities{$city}{'download'} == 0 ); $tc = $red; } elsif ( $show_only eq 'abstract' ) { next CITY if ( $cities{$city}{'abstract'} == 0 ); $tc = $blue; } else # ack, boom { last CITY; } $mapimage->filledRectangle( $cities{$city}{'x'} - 1, $cities{$city}{'y'} - 1, $cities{$city}{'x'} + 1, $cities{$city}{'y'} + 1, $tc ); } 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);

# GD image stuff.
my ( $mapimage, $mapimagefile );
my ( $red,      $white, $black, $blue, $tc );
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;    # include all entries from database
my ($num_hits)    = 0;
my ( $ip, $count, $location );
my ( $city, $lat, $long, $x, $y ) = ( 0, 0, '', 0, 0 );
my ($show_only) = 'both';    # include both abstracts & downloads
my ($eprint) = '';

$page = new CGI;
print $page->header(
					 -type          => "image/jpeg",
					 -Pragma        => 'no-cache',
					 -Cache-Control => 'no-cache'
);
$num_entries = $page->param('top')  if ( defined $page->param('top') );
$show_only   = $page->param('show') if ( defined $page->param('show') );
$eprint   = $page->param('eprint') if ( defined $page->param('eprint') );

$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 );
for ( my $i = 1; $i < 255; $i++ )
{
	$tc = $mapimage->colorAllocate( $i, 0, ( 255 - $i ) );
}