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

Updated: March 20, 2020 to include https support in URL

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



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

$product_id = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.132 Safari/537.36";

@show = (
   'Tim Marshall',
   'Jr Hehnly',
   'Bill Oosterbaan'

print "Content-type: text/plain\n\n";
print <<EOF;
Refresh: 1
Threshold: 999
Title: Ben Holcomb Custom SN Positions
Font: 1, 14, 0, "Arial"
IconFile: 1, 22, 22, 11, 11, ""
IconFile: 2, 15, 25, 8, 25, ""
IconFile: 6, 22, 22, 11, 11, ""

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

my $sn = $ua->get ('');

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

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"