X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FExchange.pl;h=71dc58bdeef1164e5ab5fc69370a85b9a7433d6c;hb=3936a3e1255582305fc4200485b71fa692e66bd3;hp=ae8470f3e85f2f8cf74796793ab3e01385d1f97a;hpb=8b54ff5060a6605e169acc0694cb00b89ed22cab;p=infobot.git

diff --git a/src/Modules/Exchange.pl b/src/Modules/Exchange.pl
index ae8470f..71dc58b 100644
--- a/src/Modules/Exchange.pl
+++ b/src/Modules/Exchange.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# Exchange.pl - currency exchange "module"
+# Exchange.pl - currency exchange 'module'
 #
 # Last update: 990818 08:30:10, bobby@bofh.dk
 # 20021111 Tim Riker <Tim@Rikers.org>
@@ -30,245 +30,245 @@ sub GetAbb {
 
 sub GetTlds {
     my %Hash = (
-	"AF", "AFGHANISTAN",
-	"AL", "ALBANIA",
-	"DZ", "ALGERIA",
-	"AS", "AMERICAN SAMOA",
-	"AD", "ANDORRA",
-	"AO", "ANGOLA",
-	"AI", "ANGUILLA",
-	"AQ", "ANTARCTICA",
-	"AG", "ANTIGUA AND BARBUDA",
-	"AR", "ARGENTINA",
-	"AM", "ARMENIA",
-	"AW", "ARUBA",
-	"AU", "AUSTRALIA",
-	"AT", "AUSTRIA",
-	"AZ", "AZERBAIJAN",
-	"BS", "BAHAMAS",
-	"BH", "BAHRAIN",
-	"BD", "BANGLADESH",
-	"BB", "BARBADOS",
-	"BY", "BELARUS",
-	"BE", "BELGIUM",
-	"BZ", "BELIZE",
-	"BJ", "BENIN",
-	"BM", "BERMUDA",
-	"BT", "BHUTAN",
-	"BO", "BOLIVIA",
-	"BA", "BOSNIA AND HERZEGOWINA",
-	"BW", "BOTSWANA",
-	"BV", "BOUVET ISLAND",
-	"BR", "BRAZIL",
-	"IO", "BRITISH INDIAN OCEAN TERRITORY",
-	"BN", "BRUNEI DARUSSALAM",
-	"BG", "BULGARIA",
-	"BF", "BURKINA FASO",
-	"BI", "BURUNDI",
-	"KH", "CAMBODIA",
-	"CM", "CAMEROON",
-	"CA", "CANADA",
-	"CV", "CAPE VERDE",
-	"KY", "CAYMAN ISLANDS",
-	"CF", "CENTRAL AFRICAN REPUBLIC",
-	"TD", "CHAD",
-	"CL", "CHILE",
-	"CN", "CHINA",
-	"CX", "CHRISTMAS ISLAND",
-	"CC", "COCOS (KEELING) ISLANDS",
-	"CO", "COLOMBIA",
-	"KM", "COMOROS",
-	"CG", "CONGO",
-	"CD", "CONGO, THE DEMOCRATIC REPUBLIC OF THE",
-	"CK", "COOK ISLANDS",
-	"CR", "COSTA RICA",
-	"CI", "COTE D'IVOIRE",
-	"HR", "CROATIA (local name: Hrvatska)",
-	"CU", "CUBA",
-	"CY", "CYPRUS",
-	"CZ", "CZECH REPUBLIC",
-	"DK", "DENMARK",
-	"DJ", "DJIBOUTI",
-	"DM", "DOMINICA",
-	"DO", "DOMINICAN REPUBLIC",
-	"TP", "EAST TIMOR",
-	"EC", "ECUADOR",
-	"EG", "EGYPT",
-	"SV", "EL SALVADOR",
-	"GQ", "EQUATORIAL GUINEA",
-	"ER", "ERITREA",
-	"EE", "ESTONIA",
-	"ET", "ETHIOPIA",
-	"FK", "FALKLAND ISLANDS (MALVINAS)",
-	"FO", "FAROE ISLANDS",
-	"FJ", "FIJI",
-	"FI", "FINLAND",
-	"FR", "FRANCE",
-	"FX", "FRANCE, METROPOLITAN",
-	"GF", "FRENCH GUIANA",
-	"PF", "FRENCH POLYNESIA",
-	"TF", "FRENCH SOUTHERN TERRITORIES",
-	"GA", "GABON",
-	"GM", "GAMBIA",
-	"GE", "GEORGIA",
-	"DE", "GERMANY",
-	"GH", "GHANA",
-	"GI", "GIBRALTAR",
-	"GR", "GREECE",
-	"GL", "GREENLAND",
-	"GD", "GRENADA",
-	"GP", "GUADELOUPE",
-	"GU", "GUAM",
-	"GT", "GUATEMALA",
-	"GN", "GUINEA",
-	"GW", "GUINEA-BISSAU",
-	"GY", "GUYANA",
-	"HT", "HAITI",
-	"HM", "HEARD AND MC DONALD ISLANDS",
-	"VA", "HOLY SEE (VATICAN CITY STATE)",
-	"HN", "HONDURAS",
-	"HK", "HONG KONG",
-	"HU", "HUNGARY",
-	"IS", "ICELAND",
-	"IN", "INDIA",
-	"ID", "INDONESIA",
-	"IR", "IRAN (ISLAMIC REPUBLIC OF)",
-	"IQ", "IRAQ",
-	"IE", "IRELAND",
-	"IL", "ISRAEL",
-	"IT", "ITALY",
-	"JM", "JAMAICA",
-	"JP", "JAPAN",
-	"JO", "JORDAN",
-	"KZ", "KAZAKHSTAN",
-	"KE", "KENYA",
-	"KI", "KIRIBATI",
-	"KP", "KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF",
-	"KR", "KOREA, REPUBLIC OF",
-	"KW", "KUWAIT",
-	"KG", "KYRGYZSTAN",
-	"LA", "LAO PEOPLE'S DEMOCRATIC REPUBLIC",
-	"LV", "LATVIA",
-	"LB", "LEBANON",
-	"LS", "LESOTHO",
-	"LR", "LIBERIA",
-	"LY", "LIBYAN ARAB JAMAHIRIYA",
-	"LI", "LIECHTENSTEIN",
-	"LT", "LITHUANIA",
-	"LU", "LUXEMBOURG",
-	"MO", "MACAU",
-	"MK", "MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF",
-	"MG", "MADAGASCAR",
-	"MW", "MALAWI",
-	"MY", "MALAYSIA",
-	"MV", "MALDIVES",
-	"ML", "MALI",
-	"MT", "MALTA",
-	"MH", "MARSHALL ISLANDS",
-	"MQ", "MARTINIQUE",
-	"MR", "MAURITANIA",
-	"MU", "MAURITIUS",
-	"YT", "MAYOTTE",
-	"MX", "MEXICO",
-	"FM", "MICRONESIA, FEDERATED STATES OF",
-	"MD", "MOLDOVA, REPUBLIC OF",
-	"MC", "MONACO",
-	"MN", "MONGOLIA",
-	"MS", "MONTSERRAT",
-	"MA", "MOROCCO",
-	"MZ", "MOZAMBIQUE",
-	"MM", "MYANMAR",
-	"NA", "NAMIBIA",
-	"NR", "NAURU",
-	"NP", "NEPAL",
-	"NL", "NETHERLANDS",
-	"AN", "NETHERLANDS ANTILLES",
-	"NC", "NEW CALEDONIA",
-	"NZ", "NEW ZEALAND",
-	"NI", "NICARAGUA",
-	"NE", "NIGER",
-	"NG", "NIGERIA",
-	"NU", "NIUE",
-	"NF", "NORFOLK ISLAND",
-	"MP", "NORTHERN MARIANA ISLANDS",
-	"NO", "NORWAY",
-	"OM", "OMAN",
-	"PK", "PAKISTAN",
-	"PW", "PALAU",
-	"PA", "PANAMA",
-	"PG", "PAPUA NEW GUINEA",
-	"PY", "PARAGUAY",
-	"PE", "PERU",
-	"PH", "PHILIPPINES",
-	"PN", "PITCAIRN",
-	"PL", "POLAND",
-	"PT", "PORTUGAL",
-	"PR", "PUERTO RICO",
-	"QA", "QATAR",
-	"RE", "REUNION",
-	"RO", "ROMANIA",
-	"RU", "RUSSIAN FEDERATION",
-	"RW", "RWANDA",
-	"KN", "SAINT KITTS AND NEVIS",
-	"LC", "SAINT LUCIA",
-	"VC", "SAINT VINCENT AND THE GRENADINES",
-	"WS", "SAMOA",
-	"SM", "SAN MARINO",
-	"ST", "SAO TOME AND PRINCIPE",
-	"SA", "SAUDI ARABIA",
-	"SN", "SENEGAL",
-	"SC", "SEYCHELLES",
-	"SL", "SIERRA LEONE",
-	"SG", "SINGAPORE",
-	"SK", "SLOVAKIA (Slovak Republic)",
-	"SI", "SLOVENIA",
-	"SB", "SOLOMON ISLANDS",
-	"SO", "SOMALIA",
-	"ZA", "SOUTH AFRICA",
-	"GS", "SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS",
-	"ES", "SPAIN",
-	"LK", "SRI LANKA",
-	"SH", "ST. HELENA",
-	"PM", "ST. PIERRE AND MIQUELON",
-	"SD", "SUDAN",
-	"SR", "SURINAME",
-	"SJ", "SVALBARD AND JAN MAYEN ISLANDS",
-	"SZ", "SWAZILAND",
-	"SE", "SWEDEN",
-	"CH", "SWITZERLAND",
-	"SY", "SYRIAN ARAB REPUBLIC",
-	"TW", "TAIWAN, PROVINCE OF CHINA",
-	"TJ", "TAJIKISTAN",
-	"TZ", "TANZANIA, UNITED REPUBLIC OF",
-	"TH", "THAILAND",
-	"TG", "TOGO",
-	"TK", "TOKELAU",
-	"TO", "TONGA",
-	"TT", "TRINIDAD AND TOBAGO",
-	"TN", "TUNISIA",
-	"TR", "TURKEY",
-	"TM", "TURKMENISTAN",
-	"TC", "TURKS AND CAICOS ISLANDS",
-	"TV", "TUVALU",
-	"UG", "UGANDA",
-	"UA", "UKRAINE",
-	"AE", "UNITED ARAB EMIRATES",
-	"GB", "UNITED KINGDOM",
-	"US", "UNITED STATES",
-	"UM", "UNITED STATES MINOR OUTLYING ISLANDS",
-	"UY", "URUGUAY",
-	"UZ", "UZBEKISTAN",
-	"VU", "VANUATU",
-	"VE", "VENEZUELA",
-	"VN", "VIET NAM",
-	"VG", "VIRGIN ISLANDS (BRITISH)",
-	"VI", "VIRGIN ISLANDS (U.S.)",
-	"WF", "WALLIS AND FUTUNA ISLANDS",
-	"EH", "WESTERN SAHARA",
-	"YE", "YEMEN",
-	"YU", "YUGOSLAVIA",
-	"ZM", "ZAMBIA",
-	"ZW", "ZIMBABWE",
+	'AF', 'AFGHANISTAN',
+	'AL', 'ALBANIA',
+	'DZ', 'ALGERIA',
+	'AS', 'AMERICAN SAMOA',
+	'AD', 'ANDORRA',
+	'AO', 'ANGOLA',
+	'AI', 'ANGUILLA',
+	'AQ', 'ANTARCTICA',
+	'AG', 'ANTIGUA AND BARBUDA',
+	'AR', 'ARGENTINA',
+	'AM', 'ARMENIA',
+	'AW', 'ARUBA',
+	'AU', 'AUSTRALIA',
+	'AT', 'AUSTRIA',
+	'AZ', 'AZERBAIJAN',
+	'BS', 'BAHAMAS',
+	'BH', 'BAHRAIN',
+	'BD', 'BANGLADESH',
+	'BB', 'BARBADOS',
+	'BY', 'BELARUS',
+	'BE', 'BELGIUM',
+	'BZ', 'BELIZE',
+	'BJ', 'BENIN',
+	'BM', 'BERMUDA',
+	'BT', 'BHUTAN',
+	'BO', 'BOLIVIA',
+	'BA', 'BOSNIA AND HERZEGOWINA',
+	'BW', 'BOTSWANA',
+	'BV', 'BOUVET ISLAND',
+	'BR', 'BRAZIL',
+	'IO', 'BRITISH INDIAN OCEAN TERRITORY',
+	'BN', 'BRUNEI DARUSSALAM',
+	'BG', 'BULGARIA',
+	'BF', 'BURKINA FASO',
+	'BI', 'BURUNDI',
+	'KH', 'CAMBODIA',
+	'CM', 'CAMEROON',
+	'CA', 'CANADA',
+	'CV', 'CAPE VERDE',
+	'KY', 'CAYMAN ISLANDS',
+	'CF', 'CENTRAL AFRICAN REPUBLIC',
+	'TD', 'CHAD',
+	'CL', 'CHILE',
+	'CN', 'CHINA',
+	'CX', 'CHRISTMAS ISLAND',
+	'CC', 'COCOS (KEELING) ISLANDS',
+	'CO', 'COLOMBIA',
+	'KM', 'COMOROS',
+	'CG', 'CONGO',
+	'CD', 'CONGO, THE DEMOCRATIC REPUBLIC OF THE',
+	'CK', 'COOK ISLANDS',
+	'CR', 'COSTA RICA',
+	'CI', "COTE D'IVOIRE",
+	'HR', 'CROATIA (local name: Hrvatska)',
+	'CU', 'CUBA',
+	'CY', 'CYPRUS',
+	'CZ', 'CZECH REPUBLIC',
+	'DK', 'DENMARK',
+	'DJ', 'DJIBOUTI',
+	'DM', 'DOMINICA',
+	'DO', 'DOMINICAN REPUBLIC',
+	'TP', 'EAST TIMOR',
+	'EC', 'ECUADOR',
+	'EG', 'EGYPT',
+	'SV', 'EL SALVADOR',
+	'GQ', 'EQUATORIAL GUINEA',
+	'ER', 'ERITREA',
+	'EE', 'ESTONIA',
+	'ET', 'ETHIOPIA',
+	'FK', 'FALKLAND ISLANDS (MALVINAS)',
+	'FO', 'FAROE ISLANDS',
+	'FJ', 'FIJI',
+	'FI', 'FINLAND',
+	'FR', 'FRANCE',
+	'FX', 'FRANCE, METROPOLITAN',
+	'GF', 'FRENCH GUIANA',
+	'PF', 'FRENCH POLYNESIA',
+	'TF', 'FRENCH SOUTHERN TERRITORIES',
+	'GA', 'GABON',
+	'GM', 'GAMBIA',
+	'GE', 'GEORGIA',
+	'DE', 'GERMANY',
+	'GH', 'GHANA',
+	'GI', 'GIBRALTAR',
+	'GR', 'GREECE',
+	'GL', 'GREENLAND',
+	'GD', 'GRENADA',
+	'GP', 'GUADELOUPE',
+	'GU', 'GUAM',
+	'GT', 'GUATEMALA',
+	'GN', 'GUINEA',
+	'GW', 'GUINEA-BISSAU',
+	'GY', 'GUYANA',
+	'HT', 'HAITI',
+	'HM', 'HEARD AND MC DONALD ISLANDS',
+	'VA', 'HOLY SEE (VATICAN CITY STATE)',
+	'HN', 'HONDURAS',
+	'HK', 'HONG KONG',
+	'HU', 'HUNGARY',
+	'IS', 'ICELAND',
+	'IN', 'INDIA',
+	'ID', 'INDONESIA',
+	'IR', 'IRAN (ISLAMIC REPUBLIC OF)',
+	'IQ', 'IRAQ',
+	'IE', 'IRELAND',
+	'IL', 'ISRAEL',
+	'IT', 'ITALY',
+	'JM', 'JAMAICA',
+	'JP', 'JAPAN',
+	'JO', 'JORDAN',
+	'KZ', 'KAZAKHSTAN',
+	'KE', 'KENYA',
+	'KI', 'KIRIBATI',
+	'KP', "KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF",
+	'KR', 'KOREA, REPUBLIC OF',
+	'KW', 'KUWAIT',
+	'KG', 'KYRGYZSTAN',
+	'LA', "LAO PEOPLE'S DEMOCRATIC REPUBLIC",
+	'LV', 'LATVIA',
+	'LB', 'LEBANON',
+	'LS', 'LESOTHO',
+	'LR', 'LIBERIA',
+	'LY', 'LIBYAN ARAB JAMAHIRIYA',
+	'LI', 'LIECHTENSTEIN',
+	'LT', 'LITHUANIA',
+	'LU', 'LUXEMBOURG',
+	'MO', 'MACAU',
+	'MK', 'MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF',
+	'MG', 'MADAGASCAR',
+	'MW', 'MALAWI',
+	'MY', 'MALAYSIA',
+	'MV', 'MALDIVES',
+	'ML', 'MALI',
+	'MT', 'MALTA',
+	'MH', 'MARSHALL ISLANDS',
+	'MQ', 'MARTINIQUE',
+	'MR', 'MAURITANIA',
+	'MU', 'MAURITIUS',
+	'YT', 'MAYOTTE',
+	'MX', 'MEXICO',
+	'FM', 'MICRONESIA, FEDERATED STATES OF',
+	'MD', 'MOLDOVA, REPUBLIC OF',
+	'MC', 'MONACO',
+	'MN', 'MONGOLIA',
+	'MS', 'MONTSERRAT',
+	'MA', 'MOROCCO',
+	'MZ', 'MOZAMBIQUE',
+	'MM', 'MYANMAR',
+	'NA', 'NAMIBIA',
+	'NR', 'NAURU',
+	'NP', 'NEPAL',
+	'NL', 'NETHERLANDS',
+	'AN', 'NETHERLANDS ANTILLES',
+	'NC', 'NEW CALEDONIA',
+	'NZ', 'NEW ZEALAND',
+	'NI', 'NICARAGUA',
+	'NE', 'NIGER',
+	'NG', 'NIGERIA',
+	'NU', 'NIUE',
+	'NF', 'NORFOLK ISLAND',
+	'MP', 'NORTHERN MARIANA ISLANDS',
+	'NO', 'NORWAY',
+	'OM', 'OMAN',
+	'PK', 'PAKISTAN',
+	'PW', 'PALAU',
+	'PA', 'PANAMA',
+	'PG', 'PAPUA NEW GUINEA',
+	'PY', 'PARAGUAY',
+	'PE', 'PERU',
+	'PH', 'PHILIPPINES',
+	'PN', 'PITCAIRN',
+	'PL', 'POLAND',
+	'PT', 'PORTUGAL',
+	'PR', 'PUERTO RICO',
+	'QA', 'QATAR',
+	'RE', 'REUNION',
+	'RO', 'ROMANIA',
+	'RU', 'RUSSIAN FEDERATION',
+	'RW', 'RWANDA',
+	'KN', 'SAINT KITTS AND NEVIS',
+	'LC', 'SAINT LUCIA',
+	'VC', 'SAINT VINCENT AND THE GRENADINES',
+	'WS', 'SAMOA',
+	'SM', 'SAN MARINO',
+	'ST', 'SAO TOME AND PRINCIPE',
+	'SA', 'SAUDI ARABIA',
+	'SN', 'SENEGAL',
+	'SC', 'SEYCHELLES',
+	'SL', 'SIERRA LEONE',
+	'SG', 'SINGAPORE',
+	'SK', 'SLOVAKIA (Slovak Republic)',
+	'SI', 'SLOVENIA',
+	'SB', 'SOLOMON ISLANDS',
+	'SO', 'SOMALIA',
+	'ZA', 'SOUTH AFRICA',
+	'GS', 'SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS',
+	'ES', 'SPAIN',
+	'LK', 'SRI LANKA',
+	'SH', 'ST. HELENA',
+	'PM', 'ST. PIERRE AND MIQUELON',
+	'SD', 'SUDAN',
+	'SR', 'SURINAME',
+	'SJ', 'SVALBARD AND JAN MAYEN ISLANDS',
+	'SZ', 'SWAZILAND',
+	'SE', 'SWEDEN',
+	'CH', 'SWITZERLAND',
+	'SY', 'SYRIAN ARAB REPUBLIC',
+	'TW', 'TAIWAN, PROVINCE OF CHINA',
+	'TJ', 'TAJIKISTAN',
+	'TZ', 'TANZANIA, UNITED REPUBLIC OF',
+	'TH', 'THAILAND',
+	'TG', 'TOGO',
+	'TK', 'TOKELAU',
+	'TO', 'TONGA',
+	'TT', 'TRINIDAD AND TOBAGO',
+	'TN', 'TUNISIA',
+	'TR', 'TURKEY',
+	'TM', 'TURKMENISTAN',
+	'TC', 'TURKS AND CAICOS ISLANDS',
+	'TV', 'TUVALU',
+	'UG', 'UGANDA',
+	'UA', 'UKRAINE',
+	'AE', 'UNITED ARAB EMIRATES',
+	'GB', 'UNITED KINGDOM',
+	'US', 'UNITED STATES',
+	'UM', 'UNITED STATES MINOR OUTLYING ISLANDS',
+	'UY', 'URUGUAY',
+	'UZ', 'UZBEKISTAN',
+	'VU', 'VANUATU',
+	'VE', 'VENEZUELA',
+	'VN', 'VIET NAM',
+	'VG', 'VIRGIN ISLANDS (BRITISH)',
+	'VI', 'VIRGIN ISLANDS (U.S.)',
+	'WF', 'WALLIS AND FUTUNA ISLANDS',
+	'EH', 'WESTERN SAHARA',
+	'YE', 'YEMEN',
+	'YU', 'YUGOSLAVIA',
+	'ZM', 'ZAMBIA',
+	'ZW', 'ZIMBABWE',
 	);
     return %Hash;
 }
@@ -277,7 +277,7 @@ sub exchange {
     my ($message) = @_;
     &::DEBUG("exchange(@_)");
 
-    return "Exchange.pl needs LWP::UserAgent and HTTP::Request::Common"
+    return 'Exchange.pl needs LWP::UserAgent and HTTP::Request::Common'
 	if ($no_exchange);
 
     my ($From, $To, $Amount, $Country);
@@ -289,14 +289,14 @@ sub exchange {
 	# looking up the currency for a country
 	$Country = $1;
     } else {
-	return "that doesn't look right";
+	return 'that doesn't look right';
     }
 
     my $ua = new LWP::UserAgent;
     # Let's pretend
-    #$ua->agent("Mozilla/5.0 " . $ua->agent);
-    $ua->agent("Mozilla/5.0");
-    $ua->proxy('http', $::param{'httpProxy'}) if (&::IsParam("httpProxy"));
+    #$ua->agent('Mozilla/5.0 ' . $ua->agent);
+    $ua->agent('Mozilla/5.0');
+    $ua->proxy('http', $::param{'httpProxy'}) if (&::IsParam('httpProxy'));
     $ua->timeout(10);
 
     my $Referer = 'http://www.xe.net/ucc/full.shtml';
@@ -306,7 +306,7 @@ sub exchange {
     my $grab = GET $Referer;
     my $reply = $ua->request($grab);
     if (!$reply->is_success) {
-	return "EXCHANGE: ".$reply->status_line;
+	return 'EXCHANGE: '.$reply->status_line;
     }
     my $html = $reply->as_string;
     my %Currencies = (grep /\S+/,
@@ -373,7 +373,7 @@ sub exchange {
 		    return "$Cfrom $Currencies{$From} makes ".
 			"$Cto $Currencies{$To} (from http://www.xe.com/)"; # ." ($When)\n";
 		} else {
-		    return "i got some error trying that";
+		    return 'i got some error trying that';
 		}
 	    } else {
 		# Oh dear.