mirror of https://github.com/python/cpython.git
converted to python
This commit is contained in:
Barry Warsaw
parent
f1945466e8
commit
268a39fb84
|
|
@ -1,4 +1,4 @@
|
|||
#! /depot/gnu/plat/bin/perl
|
||||
#! /depot/sundry/plat/bin/python
|
||||
#
|
||||
# Note: you may have to edit the top line in this file.
|
||||
#
|
||||
|
|
@ -14,133 +14,132 @@
|
|||
# the speed in which political boundaries are changing these days, no
|
||||
# doubt there are some incorrect mappings.
|
||||
|
||||
$prog = $0;
|
||||
$ARGV[0] || die "No addresses provided.\nUsage: $prog addr1 [addr2 ...]\n";
|
||||
import sys
|
||||
prog = sys.argv[0]
|
||||
del sys.argv[0]
|
||||
if not sys.argv:
|
||||
print "No addresses provided.\nUsage:", prog, "addr1 [addr2 ...]\n"
|
||||
|
||||
|
||||
|
||||
# The mappings
|
||||
%nameorg = (
|
||||
"arpa", "Arpanet",
|
||||
'com', 'commercial',
|
||||
'edu', 'educational',
|
||||
'gov', 'government',
|
||||
'mil', 'military',
|
||||
'net', 'networking',
|
||||
'org', 'non-commercial',
|
||||
'int', 'international'
|
||||
);
|
||||
|
||||
|
||||
%country = (
|
||||
"ag", "Antigua and Barbuda",
|
||||
"al", "Albania",
|
||||
"aq", "Antarctica",
|
||||
"ar", "Argentina",
|
||||
"at", "Austria",
|
||||
"au", "Australia",
|
||||
"bb", "Barbados",
|
||||
"be", "Belgium",
|
||||
"bg", "Bulgaria",
|
||||
"bo", "Bolivia",
|
||||
"br", "Brazil",
|
||||
"bs", "Bahamas",
|
||||
"bz", "Belize",
|
||||
"ca", "Canada",
|
||||
"ch", "Switzerland",
|
||||
"cl", "Chile",
|
||||
"cm", "Cameroon",
|
||||
"cn", "China",
|
||||
"co", "Colombia",
|
||||
"cr", "Costa Rica",
|
||||
"cy", "Cyprus",
|
||||
"cz", "Czech Republic",
|
||||
"de", "Germany",
|
||||
"dk", "Denmark",
|
||||
"dm", "Dominica",
|
||||
"do", "Dominican Republic",
|
||||
"ec", "Ecuador",
|
||||
"ee", "Estonia",
|
||||
"eg", "Egypt",
|
||||
"es", "Spain",
|
||||
"fi", "Finland",
|
||||
"fj", "Fiji",
|
||||
"fr", "France",
|
||||
"gb", "Great Britain",
|
||||
"gh", "Ghana",
|
||||
"gr", "Greece",
|
||||
"hk", "Hong Kong",
|
||||
"hr", "Croatia",
|
||||
"hu", "Hungary",
|
||||
"id", "Indonesia",
|
||||
"ie", "Ireland",
|
||||
"il", "Israel",
|
||||
"in", "India",
|
||||
"is", "Iceland",
|
||||
"it", "Italy",
|
||||
"jm", "Jamaica",
|
||||
"jp", "Japan",
|
||||
"km", "Comoros",
|
||||
"kn", "Saint Kitts and Nevis",
|
||||
"kr", "Republic of Korea",
|
||||
"kw", "Kuwait",
|
||||
"lc", "Saint Lucia",
|
||||
"li", "Liechtenstein",
|
||||
"lk", "Sri Lanka",
|
||||
"lu", "Luxembourg",
|
||||
"lv", "Latvia",
|
||||
"my", "Malaysia",
|
||||
"mx", "Mexico",
|
||||
"na", "Namibia",
|
||||
"ni", "Nicaragua",
|
||||
"nl", "Netherlands",
|
||||
"no", "Norway",
|
||||
"nz", "New Zealand",
|
||||
"pe", "Peru",
|
||||
"pg", "Papua New Guinea",
|
||||
"ph", "Philippines",
|
||||
"pl", "Poland",
|
||||
"pr", "Puerto Rico",
|
||||
"pt", "Portugal",
|
||||
"py", "Paraguay",
|
||||
"ro", "Romania",
|
||||
"se", "Sweden",
|
||||
"sg", "Singapore",
|
||||
"si", "Slovenia",
|
||||
"sk", "Slovakia",
|
||||
"sr", "Suriname",
|
||||
"su", "USSR",
|
||||
"tw", "Taiwan",
|
||||
"th", "Thailand",
|
||||
"tn", "Tunisia",
|
||||
"tr", "Turkey",
|
||||
"tt", "Trinidad and Tobago",
|
||||
"uk", "United Kingdom",
|
||||
"us", "United States",
|
||||
"uy", "Uruguay",
|
||||
"vc", "Saint Vincent and the Grenadines",
|
||||
"ve", "Venezuela",
|
||||
"vi", "Virgin Islands",
|
||||
"yu", "Yugoslavia",
|
||||
"za", "South Africa",
|
||||
"zw", "Zimbabwe"
|
||||
);
|
||||
|
||||
|
||||
while ($addr = shift @ARGV) {
|
||||
($_) = $addr =~ /\.(.*)$/;
|
||||
$_ = $addr if !$_;
|
||||
|
||||
if ($nameorg{$_}) {
|
||||
# its one of the `special' USA organizational domains
|
||||
print "$addr is from a USA $nameorg{$_} organization\n";
|
||||
nameorg = {
|
||||
"arpa": "Arpanet",
|
||||
"com": "commercial",
|
||||
"edu": "educational",
|
||||
"gov": "government",
|
||||
"mil": "military",
|
||||
"net": "networking",
|
||||
"org": "non-commercial",
|
||||
"int": "international"
|
||||
}
|
||||
elsif ($country{$_}) {
|
||||
# its a country code
|
||||
print "$addr originated from $country{$_}\n";
|
||||
|
||||
|
||||
country = {
|
||||
"ag": "Antigua and Barbuda",
|
||||
"al": "Albania",
|
||||
"aq": "Antarctica",
|
||||
"ar": "Argentina",
|
||||
"at": "Austria",
|
||||
"au": "Australia",
|
||||
"bb": "Barbados",
|
||||
"be": "Belgium",
|
||||
"bg": "Bulgaria",
|
||||
"bo": "Bolivia",
|
||||
"br": "Brazil",
|
||||
"bs": "Bahamas",
|
||||
"bz": "Belize",
|
||||
"ca": "Canada",
|
||||
"ch": "Switzerland",
|
||||
"cl": "Chile",
|
||||
"cm": "Cameroon",
|
||||
"cn": "China",
|
||||
"co": "Colombia",
|
||||
"cr": "Costa Rica",
|
||||
"cy": "Cyprus",
|
||||
"cz": "Czech Republic",
|
||||
"de": "Germany",
|
||||
"dk": "Denmark",
|
||||
"dm": "Dominica",
|
||||
"do": "Dominican Republic",
|
||||
"ec": "Ecuador",
|
||||
"ee": "Estonia",
|
||||
"eg": "Egypt",
|
||||
"es": "Spain",
|
||||
"fi": "Finland",
|
||||
"fj": "Fiji",
|
||||
"fr": "France",
|
||||
"gb": "Great Britain",
|
||||
"gh": "Ghana",
|
||||
"gr": "Greece",
|
||||
"hk": "Hong Kong",
|
||||
"hr": "Croatia",
|
||||
"hu": "Hungary",
|
||||
"id": "Indonesia",
|
||||
"ie": "Ireland",
|
||||
"il": "Israel",
|
||||
"in": "India",
|
||||
"is": "Iceland",
|
||||
"it": "Italy",
|
||||
"jm": "Jamaica",
|
||||
"jp": "Japan",
|
||||
"km": "Comoros",
|
||||
"kn": "Saint Kitts and Nevis",
|
||||
"kr": "Republic of Korea",
|
||||
"kw": "Kuwait",
|
||||
"lc": "Saint Lucia",
|
||||
"li": "Liechtenstein",
|
||||
"lk": "Sri Lanka",
|
||||
"lu": "Luxembourg",
|
||||
"lv": "Latvia",
|
||||
"my": "Malaysia",
|
||||
"mx": "Mexico",
|
||||
"na": "Namibia",
|
||||
"ni": "Nicaragua",
|
||||
"nl": "Netherlands",
|
||||
"no": "Norway",
|
||||
"nz": "New Zealand",
|
||||
"pe": "Peru",
|
||||
"pg": "Papua New Guinea",
|
||||
"ph": "Philippines",
|
||||
"pl": "Poland",
|
||||
"pr": "Puerto Rico",
|
||||
"pt": "Portugal",
|
||||
"py": "Paraguay",
|
||||
"ro": "Romania",
|
||||
"se": "Sweden",
|
||||
"sg": "Singapore",
|
||||
"si": "Slovenia",
|
||||
"sk": "Slovakia",
|
||||
"sr": "Suriname",
|
||||
"su": "USSR",
|
||||
"tw": "Taiwan",
|
||||
"th": "Thailand",
|
||||
"tn": "Tunisia",
|
||||
"tr": "Turkey",
|
||||
"tt": "Trinidad and Tobago",
|
||||
"uk": "United Kingdom",
|
||||
"us": "United States",
|
||||
"uy": "Uruguay",
|
||||
"vc": "Saint Vincent and the Grenadines",
|
||||
"ve": "Venezuela",
|
||||
"vi": "Virgin Islands",
|
||||
"yu": "Yugoslavia",
|
||||
"za": "South Africa",
|
||||
"zw": "Zimbabwe"
|
||||
}
|
||||
else {
|
||||
# who knows?
|
||||
print "I have no idea where $addr came from!\n";
|
||||
}
|
||||
}
|
||||
|
||||
import string
|
||||
|
||||
while sys.argv:
|
||||
rawaddr = sys.argv[0]
|
||||
del sys.argv[0]
|
||||
|
||||
components = string.splitfields(rawaddr, ".")
|
||||
addr = components[-1]
|
||||
|
||||
if nameorg.has_key(addr):
|
||||
print addr, "is from a USA", nameorg[addr], "organization"
|
||||
elif country.has_key(addr):
|
||||
print addr, "originated from", country[addr]
|
||||
else:
|
||||
print "I have no idea where", addr, "came from!"
|
||||
|
|
|
|||
Loading…
Reference in New Issue