ham-ref/xastir
1
0
Fork 0
mirror of https://github.com/Xastir/Xastir synced 2026-08-13 17:46:16 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions
xastir/scripts/ais_pp.pl
Tom Russo db523a33ee Update all copyright dates 
Make all copyright notices include this year.

Most say "2000-2026" but some files created later had later start
dates, and some created last year only had the start date.  They now
all have "-2026" regardless.

Closes #340
2026-01-24 20:04:37 -07:00

413 lines
19 KiB
Perl
Executable file
Raw Permalink Blame History

#!/usr/bin/env perl
use warnings;
###########################################################################
#
# XASTIR, Amateur Station Tracking and Information Reporting
# Copyright (C) 2000-2026 The Xastir Group
#
# "ais_pp.pl", a Perl script that prints a formatted list of the
# ships found in the vessel hash checkpoint file created by ais.pl
#
###########################################################################
#use IO::Socket;
use Storable;
#use File::HomeDir;
use Data::Dumper; # Only used for debugging vessel_hash
$home = `echo ~`;
chomp $home;
$persistentFileSpec = "$home/.xastir/config/vessel_hash";
#$persistentFileSpec = File::HomeDir->my_home . "/.xastir/config/vessel_hash";
#
#
# Hash to store vessel names in, for assigning tactical calls
# If it doesn't exist, create it with some initial values
# For final release this should simply create a dummy file
my %vessel_hash;
if ( !(-e $persistentFileSpec )) {
%vessel_hash = (
);
# Create the new hash file
# store \%vessel_hash , $persistentFileSpec;
}
# Retrieve the cache
%vessel_hash = %{retrieve($persistentFileSpec)};
# Debug - print the hash values
#print Dumper(\%vessel_hash);
#open(my $fh, '>', 'report.txt');
#print $fh Dumper(\%vessel_hash);
%countries = (
"201" => "Albania", #"Albania (Republic of)"
"202" => "Andorra", # "Andorra (Principality of)"
"203" => "Austria",
"204" => "Azores", # "Azores - Portugal"
"205" => "Belgium",
"206" => "Belarus", # "Belarus (Republic of)"
"207" => "Bulgaria", # "Bulgaria (Republic of)"
"208" => "Vatican", # "Vatican City State"
"209" => "Cyprus", # "Cyprus (Republic of)"
"210" => "Cyprus", # "Cyprus (Republic of)"
"211" => "Germany", # "Germany (Federal Republic of)"
"212" => "Cyprus", # "Cyprus (Republic of)"
"213" => "Georgia",
"214" => "Moldova", # "Moldova (Republic of)"
"215" => "Malta",
"216" => "Armenia", # "Armenia (Republic of)"
"218" => "Germany", # "Germany (Federal Republic of)"
"219" => "Denmark",
"220" => "Denmark",
"224" => "Spain",
"225" => "Spain",
"226" => "France",
"227" => "France",
"228" => "France",
"229" => "Malta",
"230" => "Finland",
"231" => "Faroe Is.", # "Faroe Islands - Denmark"
"232" => "U.K.", # "United Kingdom of Great Britain and Northern Ireland"
"233" => "U.K.", # "United Kingdom of Great Britain and Northern Ireland"
"234" => "U.K.", # "United Kingdom of Great Britain and Northern Ireland"
"235" => "U.K.", # "United Kingdom of Great Britain and Northern Ireland"
"236" => "Gibraltar", # "Gibraltar - United Kingdom of Great Britain and Northern Ireland"
"237" => "Greece",
"238" => "Croatia", # "Croatia (Republic of)"
"239" => "Greece",
"240" => "Greece",
"241" => "Greece",
"242" => "Morocco", # "Morocco (Kingdom of)"
"243" => "Hungary",
"244" => "Netherlands", # "Netherlands (Kingdom of the)"
"245" => "Netherlands", # "Netherlands (Kingdom of the)"
"246" => "Netherlands", # "Netherlands (Kingdom of the)"
"247" => "Italy",
"248" => "Malta",
"249" => "Malta",
"250" => "Ireland",
"251" => "Iceland",
"252" => "Liechtenstein", # "Liechtenstein (Principality of)"
"253" => "Luxembourg",
"254" => "Monaco", # "Monaco (Principality of)"
"255" => "Madeira", # "Madeira - Portugal"
"256" => "Malta",
"257" => "Norway",
"258" => "Norway",
"259" => "Norway",
"261" => "Poland", # "Poland (Republic of)"
"262" => "Montenegro",
"263" => "Portugal",
"264" => "Romania",
"265" => "Sweden",
"266" => "Sweden",
"267" => "Slovakia", # "Slovak Republic"
"268" => "San Marino", # "San Marino (Republic of)"
"269" => "Switzerland", # "Switzerland (Confederation of)"
"270" => "Czech Rep.", # "Czech Republic"
"271" => "Turkey",
"272" => "Ukraine",
"273" => "Russian Fed.", # "Russian Federation"
"274" => "Macedonia", # "The Former Yugoslav Republic of Macedonia"
"275" => "Latvia", # "Latvia (Republic of)"
"276" => "Estonia", # "Estonia (Republic of)"
"277" => "Lithuania", # "Lithuania (Republic of)"
"278" => "Slovenia", # "Slovenia (Republic of)"
"279" => "Serbia", # "Serbia (Republic of)"
"301" => "Anguilla", # "Anguilla - United Kingdom of Great Britain and Northern Ireland"
"303" => "Alaska - U.S.", # "Alaska (State of) - United States of America"
"304" => "Antigua & Barbuda", # "Antigua and Barbuda"
"305" => "Antigua & Barbuda", # "Antigua and Barbuda"
"306" => "Sint Maarten", # "Sint Maarten (Dutch part) - Netherlands (Kingdom of the)"
"306" => "Bonaire, Sint Eustatius & Saba", # "Bonaire, Sint Eustatius and Saba - Netherlands (Kingdom of the)"
"306" => "Cura<72>ao", # "Cura<72>ao - Netherlands (Kingdom of the)"
"307" => "Aruba", # "Aruba - Netherlands (Kingdom of the)"
"308" => "Bahamas", # "Bahamas (Commonwealth of the)"
"309" => "Bahamas", # "Bahamas (Commonwealth of the)"
"310" => "Bermuda", # "Bermuda - United Kingdom of Great Britain and Northern Ireland"
"311" => "Bahamas", # "Bahamas (Commonwealth of the)"
"312" => "Belize",
"314" => "Barbados",
"316" => "Canada",
"319" => "Cayman Is.", # "Cayman Islands - United Kingdom of Great Britain and Northern Ireland"
"321" => "Costa Rica",
"323" => "Cuba",
"325" => "Dominica", # "Dominica (Commonwealth of)"
"327" => "Dominican Rep.", # "Dominican Republic"
"329" => "Guadeloupe", # "Guadeloupe (French Department of) - France"
"330" => "Grenada",
"331" => "Greenland", # "Greenland - Denmark"
"332" => "Guatemala", # "Guatemala (Republic of)"
"334" => "Honduras", # "Honduras (Republic of)"
"336" => "Haiti", # "Haiti (Republic of)"
"338" => "U.S.", # "United States of America"
"339" => "Jamaica",
"341" => "St. Kitts & Nevis", # "Saint Kitts and Nevis (Federation of)"
"343" => "St. Lucia",
"345" => "Mexico",
"347" => "Martinique", # "Martinique (French Department of) - France"
"348" => "Montserrat", # "Montserrat - United Kingdom of Great Britain and Northern Ireland"
"350" => "Nicaragua",
"351" => "Panama", # "Panama (Republic of)"
"352" => "Panama", # "Panama (Republic of)"
"353" => "Panama", # "Panama (Republic of)"
"354" => "Panama", # "Panama (Republic of)"
"355" => "Panama", # "Panama (Republic of)"
"356" => "Panama", # "Panama (Republic of)"
"357" => "Panama", # "Panama (Republic of)"
"358" => "Puerto Rico - U.S.", # "Puerto Rico - United States of America"
"359" => "El Salvador", # "El Salvador (Republic of)"
"361" => "St. Pierre & Miquelon", # "Saint Pierre and Miquelon (Territorial Collectivity of) - France"
"362" => "Trinidad & Tobago", # "Trinidad and Tobago"
"364" => "Turks & Caicos Is.", # "Turks and Caicos Islands - United Kingdom of Great Britain and Northern Ireland"
"366" => "U.S.", # "United States of America"
"367" => "U.S.", # "United States of America"
"368" => "U.S.", # "United States of America"
"369" => "U.S.", # "United States of America"
"370" => "Panama", # "Panama (Republic of)"
"371" => "Panama", # "Panama (Republic of)"
"372" => "Panama", # "Panama (Republic of)"
"373" => "Panama", # "Panama (Republic of)"
"374" => "Panama", # "Panama (Republic of)"
"375" => "St. Vincent & the Grenadines", # "Saint Vincent and the Grenadines"
"376" => "St. Vincent & the Grenadines", # "Saint Vincent and the Grenadines"
"377" => "St. Vincent & the Grenadines", # "Saint Vincent and the Grenadines"
"378" => "British Virgin Is.", # "British Virgin Islands - United Kingdom of Great Britain and Northern Ireland"
"379" => "U.S. Virgin Is.", # "United States Virgin Islands - United States of America"
"401" => "Afghanistan",
"403" => "Saudi Arabia", # "Saudi Arabia (Kingdom of)"
"405" => "Bangladesh", # "Bangladesh (People's Republic of)"
"408" => "Bahrain", # "Bahrain (Kingdom of)"
"410" => "Bhutan", # "Bhutan (Kingdom of)"
"412" => "China", # "China (People's Republic of)"
"413" => "China", # "China (People's Republic of)"
"414" => "China", # "China (People's Republic of)"
"416" => "Taiwan", # "Taiwan (Province of China) - China (People's Republic of)"
"417" => "Sri Lanka", # "Sri Lanka (Democratic Socialist Republic of)"
"419" => "India", # "India (Republic of)"
"422" => "Iran", # "Iran (Islamic Republic of)"
"423" => "Azerbaijan", # "Azerbaijan (Republic of)"
"425" => "Iraq", # "Iraq (Republic of)"
"428" => "Israel", # "Israel (State of)"
"431" => "Japan",
"432" => "Japan",
"434" => "Turkmenistan",
"436" => "Kazakhstan", # "Kazakhstan (Republic of)"
"437" => "Uzbekistan", # "Uzbekistan (Republic of)"
"438" => "Jordan", # "Jordan (Hashemite Kingdom of)"
"440" => "Korea", # "Korea (Republic of)"
"441" => "Korea", # "Korea (Republic of)"
"443" => "Palestine", # "State of Palestine (In accordance with Resolution 99 Rev. Guadalajara, 2010)"
"445" => "N. Korea", # "Democratic People's Republic of Korea"
"447" => "Kuwait", # "Kuwait (State of)"
"450" => "Lebanon",
"451" => "Kyrgyzstan", # "Kyrgyz Republic"
"453" => "Macao", # "Macao (Special Administrative Region of China) - China (People's Republic of)"
"455" => "Maldives", # "Maldives (Republic of)"
"457" => "Mongolia",
"459" => "Nepal", # "Nepal (Federal Democratic Republic of)"
"461" => "Oman", # "Oman (Sultanate of)"
"463" => "Pakistan", # "Pakistan (Islamic Republic of)"
"466" => "Qatar", # "Qatar (State of)"
"468" => "Syria", # "Syrian Arab Republic"
"470" => "United Arab Emirates",
"471" => "United Arab Emirates",
"472" => "Tajikistan", # "Tajikistan (Republic of)"
"473" => "Yemen", # "Yemen (Republic of)"
"475" => "Yemen", # "Yemen (Republic of)"
"477" => "Hong Kong", # "Hong Kong (Special Administrative Region of China) - China (People's Republic of)"
"478" => "Bosnia & Herzegovina", # "Bosnia and Herzegovina"
"501" => "Adelie Land", # "Adelie Land - France"
"503" => "Australia",
"506" => "Myanmar", # "Myanmar (Union of)"
"508" => "Brunei Darussalam",
"510" => "Micronesia", # "Micronesia (Federated States of)"
"511" => "Palau", # "Palau (Republic of)"
"512" => "New Zealand",
"514" => "Cambodia", # "Cambodia (Kingdom of)"
"515" => "Cambodia", # "Cambodia (Kingdom of)"
"516" => "Christmas Is.", # "Christmas Island (Indian Ocean) - Australia"
"518" => "Cook Is.", # "Cook Islands - New Zealand"
"520" => "Fiji", # "Fiji (Republic of)",
"523" => "Cocos (Keeling) Is.", # "Cocos (Keeling) Islands - Australia"
"525" => "Indonesia", # "Indonesia (Republic of)"
"529" => "Kiribati", # "Kiribati (Republic of)"
"531" => "Laos", # "Lao People's Democratic Republic"
"533" => "Malaysia",
"536" => "N. Mariana Is. - U.S.", # "Northern Mariana Islands (Commonwealth of the) - United States of America"
"538" => "Marshall Is.", # "Marshall Islands (Republic of the)"
"540" => "New Caledonia", # "New Caledonia - France"
"542" => "Niue", # "Niue - New Zealand"
"544" => "Nauru", # "Nauru (Republic of)"
"546" => "French Polynesia", # "French Polynesia - France"
"548" => "Philippines", # "Philippines (Republic of the)"
"553" => "Papua New Guinea",
"555" => "Pitcairn Is.", # "Pitcairn Island - United Kingdom of Great Britain and Northern Ireland"
"557" => "Solomon Islands",
"559" => "American Samoa - U.S.", # "American Samoa - United States of America"
"561" => "Samoa", # "Samoa (Independent State of)"
"563" => "Singapore", # "Singapore (Republic of)"
"564" => "Singapore", # "Singapore (Republic of)"
"565" => "Singapore", # "Singapore (Republic of)"
"566" => "Singapore", # "Singapore (Republic of)"
"567" => "Thailand",
"570" => "Tonga", # "Tonga (Kingdom of)"
"572" => "Tuvalu",
"574" => "Viet Nam", # "Viet Nam (Socialist Republic of)"
"576" => "Vanuatu", # "Vanuatu (Republic of)"
"577" => "Vanuatu", # "Vanuatu (Republic of)"
"578" => "Wallis & Futuna Is.", # "Wallis and Futuna Islands - France"
"601" => "S. Africa", # "South Africa (Republic of)"
"603" => "Angola", # "Angola (Republic of)"
"605" => "Algeria", # "Algeria (People's Democratic Republic of)"
"607" => "St. Paul & Amsterdam Is.", # "Saint Paul and Amsterdam Islands - France"
"608" => "Ascension Is.", # "Ascension Island - United Kingdom of Great Britain and Northern Ireland"
"609" => "Burundi", # "Burundi (Republic of)"
"610" => "Benin", # "Benin (Republic of)"
"611" => "Botswana", # "Botswana (Republic of)"
"612" => "Central African Rep.", # "Central African Republic"
"613" => "Cameroon", # "Cameroon (Republic of)"
"615" => "Congo", # "Congo (Republic of the)"
"616" => "Comoros", # "Comoros (Union of the)"
"617" => "Cape Verde", # "Cabo Verde (Republic of)"
"618" => "Crozet Archipelago", # "Crozet Archipelago - France"
"619" => "C<>te d'Ivoire", # "C<>te d'Ivoire (Republic of)"
"620" => "Comoros", # "Comoros (Union of the)"
"621" => "Djibouti", # "Djibouti (Republic of)"
"622" => "Egypt", # "Egypt (Arab Republic of)"
"624" => "Ethiopia", # "Ethiopia (Federal Democratic Republic of)"
"625" => "Eritrea",
"626" => "Gabonese Rep.", # "Gabonese Republic"
"627" => "Ghana",
"629" => "Gambia", # "Gambia (Republic of the)"
"630" => "Guinea-Bissau", # "Guinea-Bissau (Republic of)"
"631" => "Equatorial Guinea", # "Equatorial Guinea (Republic of)"
"632" => "Guinea", # "Guinea (Republic of)"
"633" => "Burkina Faso",
"634" => "Kenya", # "Kenya (Republic of)"
"635" => "Kerguelen Is.", # "Kerguelen Islands - France"
"636" => "Liberia", # "Liberia (Republic of)"
"637" => "Liberia", # "Liberia (Republic of)"
"638" => "S. Sudan", # "South Sudan (Republic of)"
"642" => "Libya",
"644" => "Lesotho", # "Lesotho (Kingdom of)"
"645" => "Mauritius", # "Mauritius (Republic of)"
"647" => "Madagascar", # "Madagascar (Republic of)"
"649" => "Mali", # "Mali (Republic of)"
"650" => "Mozambique", # "Mozambique (Republic of)"
"654" => "Mauritania", # "Mauritania (Islamic Republic of)"
"655" => "Malawi",
"656" => "Niger", # "Niger (Republic of the)"
"657" => "Nigeria", # "Nigeria (Federal Republic of)"
"659" => "Namibia", # "Namibia (Republic of)"
"660" => "Reunion", # "Reunion (French Department of) - France"
"661" => "Rwanda", # "Rwanda (Republic of)"
"662" => "Sudan", # "Sudan (Republic of the)"
"663" => "Senegal", # "Senegal (Republic of)"
"664" => "Seychelles", # "Seychelles (Republic of)"
"665" => "St. Helena", # "Saint Helena - United Kingdom of Great Britain and Northern Ireland"
"666" => "Somalia", # "Somalia (Federal Republic of)"
"667" => "Sierra Leone",
"668" => "Sao Tome & Principe", # "Sao Tome and Principe (Democratic Republic of)"
"669" => "Swaziland", # "Swaziland (Kingdom of)"
"670" => "Chad", # "Chad (Republic of)"
"671" => "Togolese Rep.", # "Togolese Republic"
"672" => "Tunisia",
"674" => "Tanzania", # "Tanzania (United Republic of)"
"675" => "Uganda", # "Uganda (Republic of)",
"676" => "Dem. Rep. of the Congo", # "Democratic Republic of the Congo"
"677" => "Tanzania", # "Tanzania (United Republic of)"
"678" => "Zambia", # "Zambia (Republic of)"
"679" => "Zimbabwe", # "Zimbabwe (Republic of)"
"701" => "Argentine Rep.", # "Argentine Republic"
"710" => "Brazil", # "Brazil (Federative Republic of)"
"720" => "Bolivia", # "Bolivia (Plurinational State of)"
"725" => "Chile",
"730" => "Columbia", # "Colombia (Republic of)"
"735" => "Ecuador",
"740" => "Falkland Is.", # "Falkland Islands (Malvinas) - United Kingdom of Great Britain and Northern Ireland"
"745" => "Guiana", # "Guiana (French Department of) - France"
"750" => "Guyana",
"755" => "Paraguay", # "Paraguay (Republic of)"
"760" => "Peru",
"765" => "Suriname", # "Suriname (Republic of)"
"770" => "Uruguay", # "Uruguay (Eastern Republic of)"
"775" => "Venezuela", # "Venezuela (Bolivarian Republic of)"
);
# Main processing loop. Fetch lines from vessel_hash
# and print them out on stdio
# Format: MILLENIUM FALCON 366978720 U.S.
while(my($userID, $vesselName) = each %vessel_hash) {
my $country = &decode_MID($userID);
printf "%-20s %-9d %s\n",$vesselName,$userID,$country;
}
exit;
# Decode MID out of MMSI ($userID) too:
# 8MIDXXXXX Diver's radio (not used in the U.S. in 2013)
# MIDXXXXXX Ship
# 0MIDXXXXX Group of ships; the U.S. Coast Guard, for example, is 03699999
# 00MIDXXXX Coastal stations
# 111MIDXXX SAR (Search and Rescue) aircraft
# 99MIDXXXX Aids to Navigation
# 98MIDXXXX Auxiliary craft associated with a parent ship
# 970MIDXXX AIS SART (Search and Rescue Transmitter)
# 972XXXXXX MOB (Man Overboard) device
# 974XXXXXX EPIRB (Emergency Position Indicating Radio Beacon) AIS
#
# NOTE: U.S. ships sometimes incorrectly send "669" for those first 3 digits.
# http://www.itu.int/online/mms/glad/cga_mids.sh?lng=E
#
sub decode_MID {
my $userID = shift;
my $MID = $userID;
if ($userID =~ m/^8.*/) { # Diver's radio
$MID =~ s/^8(...).*/$1/;
}
elsif ($userID =~ m/^00.*/) { # Coastal station
$MID =~ s/^00(...).*/$1/;
}
elsif ($userID =~ m/^0.*/) { # Group of ships
$MID =~ s/^0(...).*/$1/;
}
elsif ($userID =~ m/^111.*/) { # SAR aircraft
$MID =~ s/^111(...).*/$1/;
}
elsif ($userID =~ m/^99.*/) { # Navigation aid
$MID =~ s/^99(...).*/$1/;
}
elsif ($userID =~ m/^98.*/) { # Auxiliary craft
$MID =~ s/^98(...).*/$1/;
}
elsif ($userID =~ m/^970.*/) { # AIS SART
$MID =~ s/^970(...).*/$1/;
}
elsif ($userID =~ m/^972.*/) { # Man overboard device
$MID = "MOB";
}
elsif ($userID =~ m/^974.*/) { # EPIRB
$MID = "EPIRB";
}
else { # Ship
$MID =~ s/^(...).*/$1/;
}
my $country = "";
if (defined($countries{$MID})) {
$country = $countries{$MID};
}
else {
$country = "Unknown";
}
return $country;
}
Reference in a new issue View git blame Copy permalink