#!/usr/bin/perl -T $ENV{"PATH"} = ""; my $recip = 'nw7us.heliophile@hfradio.org'; my $bcc = $recip; my $esubject = ""; my $mail_prog = '/usr/lib/sendmail'; my $html_header = "Content-type: text/html\n\n"; my $rootDir = "/home/hfradio"; my $databaseDir = $rootDir . "/database/resources"; my $logDir = $rootDir . "/logs"; my $logFile = $logDir . "/prefix_lookup.log"; my $logLock = $logDir . "/pll.lck"; my ($pageTitle) = "Amateur Radio Callsign Prefix Search / Lookup :: HFRadio.org"; my $menuFile = $rootDir . "/html/includes/propmenu.txt"; require "/home/hfradio/html/cgi-bin/database_engine.pl" || die "Could not require /hfradio/html/cgi-bin/database_engine.pl - $!\n"; use CGI ; my $query = new CGI; my (@names) = $query->param; my $solarReport = ""; &doSolarData; my $theForm = "
\n"; $theForm .= "Look up an Amateur Radio Callsign prefix:
\n"; $theForm .= "   \n"; $theForm .= "
\n"; $theForm .= "Try the whole call first, like TX0DX,
or then try just a prefix, like 9M6 or BD\n"; $theForm .= "
\n"; my $theSearch = "http://en.wikipedia.org/wiki/_KEY_"; # Get the input if (defined($query->param('prefix'))) { # shorten prefix to make sure we are not hacked... #$query->param('prefix') =~ m|^([a-zA-Z0-9]{3,10})|; $query->param('prefix') =~ m|^([a-zA-Z0-9]{1,10}).*$|; my ($trueSearch) = $1; print STDERR "Prefix True search: [" . $trueSearch . "]\n"; my $prefix = $trueSearch; $prefix =~ s/^\s*(.+?)\s*$/$1/; print STDERR "Prefix 1 search: [" . $prefix . "]\n"; if (length($prefix) > 0) { $prefix =~ tr/[a-z]/[A-Z]/; $originalSearch = $prefix; print STDERR "Prefix cleaned originalSearch: [" . $originalSearch . "]\n"; # if ($prefix =~ m|^([A-Z][A-Z]\d)|) { # $prefix = $1; # } elsif ($prefix =~ m|^(\d[A-Z]\d)|) { # $prefix = $1; # } $noKey = 0; } else { $noKey = 1; } } else { $noKey = 1; } if ($noKey) { $prefix = ""; $originalSearch = ""; print STDERR "Prefix has noKey??\n"; } use Date::Manip; &Date_Init(); my $shortdate = &UnixDate("today","%D %H:%M:%S"); $shortdate =~ tr/\n\r//d; if ($noKey) { $thePrompt = ""; } else { &setDBfileName("$databaseDir/prefix.dat",$_PREFIX); print STDERR "Search: " . $originalSearch . "\n"; &open_db_dup_read($_PREFIX); @testList = (); &getAllRecFromKey($_PREFIX,$originalSearch,\@testList); $numFound = @testList; $found = 0; if ($numFound == 0) { $cycleKey = $originalSearch; $done = 0; while (!$done) { $cycleKey =~ s/^(.+?).$/$1/; if (length($cycleKey) == 1) { $done = 1; } @testList = (); print STDERR "Prefix cycle search: [" . $cycleKey . "]\n"; &getAllRecFromKey($_PREFIX,$cycleKey,\@testList); $numFound = @testList; if ($numFound) { $found = 1; $done = 1; } else { $found = 0; } } } else { $found = 1; } &close_db($_PREFIX); print STDERR "Prefix found? [" . $numFound . "]\n"; if ($found) { $thePrompt = "You searched for $originalSearch,
with the $prefix prefix.

Result:
\n"; $thePrompt .= "\n"; $thePrompt .= "(Click on the result to see information
on the country... from http://en.wikipedia.org/wiki/)
\n"; } else { &logThis("[$shortdate] $originalSearch did not match"); $thePrompt = "You searched for $originalSearch.
Nothing was found for $prefix prefix.\n"; $thePrompt .= "

\n"; $thePrompt .= "Try a partial prefix (for instance,
\n"; $thePrompt .= "instead of 9M6TTT, try 9M6 or
instead of YL3,\n"; $thePrompt .= "try YL...)
\n"; } } # end of test for noKey $theMainMenu = ""; open (INMENU, "$menuFile") || die "Could not read [$menuFile] :: $!\n"; while () { $theMainMenu .= $_; } close (INMENU); print $html_header; print < $pageTitle
Amateur Radio Callsign Prefix Lookup :: HFRadio.org
(what country is that prefix from?)
+ Main Propagation Center

$theMainMenu
$thePrompt
$theForm

Prefix not found? Perhaps the prefix has been retired. Check here: History of CTY.DAT revisions.

Comments? Bug Report? Please e-mail me.
$solarReport
I need your help to keep this service up and running.

Your help keeps the NW7US Propagation and DX Resource Center alive and well.

Thank you.
HFRadio.org :: Propagation Center :: Forums
Shortwave Resources :: SWL Frequency Search ::
About NW7US :: Award-Winning Space Weather and Propagation Education Course

I write the propagation columns for the following magazines:

CQ Magazine CQ Magazine America's fastest growing magazine for the active ham radio operator. CQ is the world's leading independent magazine devoted to amateur radio. For more than a half-century, CQ has been on ham radio's leading edge -- the first to promote mobile operating (in the 1950s), semiconductors (in the 1960s) and packet radio -- the original e-mail (in the 1980s). The amateur satellite program got its start with an idea in the pages of CQ!

CQ VHF Magazine CQ VHF Magazine It is back! May 2002 saw the return of this quarterly magazines that focuses on amateur radio above 50 MHz. Articles and columns target both the beginner as well as the expert.

Popular Communications Magazine Popular Communications Magazine Exciting reading for the shortwave and scanner listener. It features authoritative information on scanner monitoring of police, fire, utility and aircraft transmissions as well as short wave listening, monitoring short wave digital, fax and teletype broadcasts, cb radio, alternative radio, clandestine radio, telephones and wiretapping, bugging, surveillance, pirate broadcasters, military communications, amateur radio, satellite tv reception, radio history and nostalgia.

Copyright, 1998 - 2011 Tomas Hood (NW7US), all rights reserved.

developed by NW7US (Tomas)




H1 exit; #===== subs ===== sub logThis { my ($msg) = @_; my ($reties) = 15; my ($delay) = 3; my ($done) = 0; # do locking while (!$done) { if (-e $logLock) { if ($retries) { $retries--; $done = 0; sleep($delay); } else { print STDERR "Could not lock!\n"; $done = 1; } } else { open(LOCK, "> $logLock") || print STDERR "Could not create $logLock: $!\n"; close(LOCK); open(LOG, ">>$logFile") || print STDERR "Could not append to $logFile: $!\n"; print LOG "$msg\n"; close (LOG); unlink($logLock); $done = 1; } } } sub doSolarData { $solarReport = ""; $solarReport = "| Current Solar Flux: "; open (PIN, "/hfradio/html/prop/.flux.txt") || die "Could not open /hfradio/html/prop/.flux.txt : $!\n"; my ($line) = ""; while () { $line = $_; $line =~ tr/\n\r\t//d; $solarReport .= $line; }; close(PIN); $solarReport .= " |
\n| A-index: "; open (PIN, "/hfradio/html/prop/.aindex.txt") || die "Could not open /hfradio/html/prop/.aindex.txt : $!\n"; while () { $line = $_; $line =~ tr/\n\r\t//d; $solarReport .= $line; }; close(PIN); $solarReport .= " | K-index: "; open (PIN, "/hfradio/html/prop/.kindex.txt") || die "Could not open /hfradio/html/prop/.kindex.txt : $!\n"; while () { $line = $_; $line =~ tr/\n\r\t//d; $solarReport .= $line; }; close(PIN); $solarReport .= " | Aurora: "; open (PIN, "/hfradio/html/prop/.aurora_level.txt") || die "Could not open /hfradio/html/prop/.aurora_level.txt : $!\n"; while () { $line = $_; $line =~ tr/\n\r\t//d; $solarReport .= $line; }; close(PIN); $solarReport .= " | more... |\n"; }