1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
|
#!/usr/bin/perl
use warnings;
###########################################################################
#
# XASTIR, Amateur Station Tracking and Information Reporting
# Copyright (C) 2000-2023 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" => "Curaao", # "Curaao - 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" => "Cte d'Ivoire", # "Cte 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;
}
|
