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.

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"
}
}
}