This is a script I wrote to create a custom filtered placefile for Spotter Network in GRLevel3 and GR2Analyst Edition. You just maintain the @show array with the names you wish to show and away you go. This script requires you to have a webserver running Perl and the ability to execute scripts. Also requires Perl LWP libraries to be installed on the web server. Once executed, the script will download the place file from the Spotter Network servers, parse for users, and display the matches creating a perfect placefile.

If you add a name with an apostrophe in it, you need to escape it first with a front slash \

If you have trouble getting this to run, please contact me

Download

#!/usr/bin/perl

use LWP::Simple;
use LWP::UserAgent;

$product_id = "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:45.0) Gecko/20100101 Firefox/45.0";

@show = (
'Ben Holcomb',
'Jr Hehnly',
'Bill Oosterbaan'
);

print "Content-type: text/plain\n\n";
print <<EOF;
Refresh: 1
Threshold: 999
Title: Custom SN Positions
Font: 1, 14, 0, "Arial"
IconFile: 1, 22, 22, 11, 11, "http://www.spotternetwork.org/icon/spotternet.png"
IconFile: 2, 15, 25, 8, 25, "http://www.spotternetwork.org/icon/arrows.png"
IconFile: 6, 22, 22, 11, 11, "http://www.spotternetwork.org/icon/spotternet_new.png"
EOF

$ua = LWP::UserAgent->new;
$ua->agent ($product_id);

my $sn = $ua->get ('http://www.spotternetwork.org/feeds/gr.txt');

$x = length $sn->decoded_content;
$sndec = substr($sn->decoded_content, 343, $x-343);

my @values = split('End:', $sndec);
foreach my $val (@values){
if($val =~ m/Text:\s15\,\s10\,\s1\,\s\"(.+)\"/g){
my $name = $1;
if ($name ~~ @show){
print $val;
print "End:\n"
}
}
}