src/Modules/Exchange.pl

   1 #!/usr/bin/perl
   2
   3 # exchange.pl - currency exchange "module"
   4 #
   5 # Last update: 990818 08:30:10, bobby@bofh.dk
   6 #
   7
   8 BEGIN {
   9     eval qq{
  10         use LWP::UserAgent;
  11         use HTTP::Request::Common qw(POST GET);
  12     };
  13
  14     $no_exchange++ if($@);
  15 }
  16
  17 sub exchange {
  18     my($From, $To, $Amount) = @_;
  19
  20     return "exchange.pl: not configured. needs LWP::UserAgent and HTTP::Request::Common"
  21         if( $no_exchange );
  22
  23     my $retval = '';
  24
  25     my $ua = new LWP::UserAgent;
  26     $ua->agent("Mozilla/4.5 " . $ua->agent);        # Let's pretend
  27     if (my $proxy = main::getparam('httpproxy')) { $ua->proxy('http', $proxy) };
  28     $ua->timeout(10);
  29
  30     my $Referer = 'http://www.xe.net/ucc/full.shtml';
  31     my $Converter='http://www.xe.net/ucc/convert.cgi';
  32
  33     # Get a list of currency abbreviations...
  34     my $grab = GET $Referer;
  35     my $reply = $ua->request($grab);
  36     if (!$reply->is_success) {
  37         return "EXCHANGE: ".$reply->status_line;
  38     }
  39     my $html = $reply->as_string;
  40     my %Currencies = (grep /\S+/,
  41             ($html =~ /option value="([^"]+)">.*?,\s*([^<]+)</gi)
  42         );
  43
  44     my %CurrLookup = reverse ($html =~ /option value="([^"]+)">([^<]+)</gi);
  45
  46     %tld2country = &GetTlds;
  47     if( $From =~ /^\.(\w\w)$/ ){        # Probably a tld
  48         $From = $tld2country{uc $1};
  49     }
  50     if( $To =~ /^\.(\w\w)$/ ){  # Probably a tld
  51         $To = $tld2country{uc $1};
  52     }
  53
  54     if($#_ == 0){
  55         # Country lookup
  56         # crysflame++ for the space fix.
  57         $retval = '';
  58         foreach my $Found (grep /$From/i, keys %CurrLookup){
  59             $Found =~ s/,/ uses/g;
  60             $retval .= "$Found, ";
  61         }
  62         $retval =~ s/(?:, )?\|?$//;
  63         return substr($retval, 0, 510);
  64     }else{
  65
  66         # Make sure that $Amount is of the form \d+(\.\d\d)?
  67         $Amount =~ s/[,.](\d\d)$/\01$1/;
  68         $Amount =~ s/[,.]//g;
  69         $Amount =~ s/\01/./;
  70
  71         # Get the exact currency abbreviations
  72         my $newFrom = &GetAbb($From, %CurrLookup);
  73         my $newTo = &GetAbb($To, %CurrLookup);
  74
  75         $From = $newFrom if $newFrom;
  76         $To   = $newTo   if $newTo;
  77
  78         if( exists $Currencies{$From} and exists $Currencies{$To} ){
  79
  80             my $req = POST $Converter,
  81                         [   timezone    => 'UTC',
  82                             From        => $From,
  83                             To          => $To,
  84                             Amount      => $Amount,
  85                         ];
  86
  87             # Falsify where we came from
  88             $req->referer($Referer);
  89
  90             my $res = $ua->request($req);                   # Submit request
  91
  92             if ($res->is_success) {                         # Went through ok
  93                 my $html = $res->as_string;
  94
  95                 my ($When, $Cfrom, $Cto) =
  96                     grep /\S+/, ($html =~ m/ as of (\d{4}\.\d\d.\d\d\s\d\d:\d\d:\d\d\s\S+)|(\d[\d,.]+)\s*$From|(\d[\d,.]+)\s* $To/gi);
  97
  98                 if ($When) {
  99                     return "$Cfrom ($Currencies{$From}) makes ".
 100                         "$Cto ($Currencies{$To})"; # ." ($When)\n";
 101                 } else {
 102                     return "i got some error trying that";
 103                 }
 104             } else {                                        # Oh dear.
 105                 return "EXCHANGE: ". $res->status_line;
 106             }
 107         }else{
 108             return "Don't know about \"$From\" as a currency" if( ! exists $Currencies{$From} );
 109             return "Don't know about \"$To\" as a currency" if( ! exists $Currencies{$To} );
 110         }
 111     }
 112 }
 113
 114 sub GetAbb {
 115     my($LookFor,%Hash) = @_;
 116
 117     my $Found = (grep /$LookFor/i, keys %Hash)[0];
 118     $Found =~ m/\((\w\w\w)\)/;
 119     return $1;
 120 }
 121
 122 sub GetTlds {
 123         my %Hash = (
 124                         "AF", "AFGHANISTAN",
 125                         "AL", "ALBANIA",
 126                         "DZ", "ALGERIA",
 127                         "AS", "AMERICAN SAMOA",
 128                         "AD", "ANDORRA",
 129                         "AO", "ANGOLA",
 130                         "AI", "ANGUILLA",
 131                         "AQ", "ANTARCTICA",
 132                         "AG", "ANTIGUA AND BARBUDA",
 133                         "AR", "ARGENTINA",
 134                         "AM", "ARMENIA",
 135                         "AW", "ARUBA",
 136                         "AU", "AUSTRALIA",
 137                         "AT", "AUSTRIA",
 138                         "AZ", "AZERBAIJAN",
 139                         "BS", "BAHAMAS",
 140                         "BH", "BAHRAIN",
 141                         "BD", "BANGLADESH",
 142                         "BB", "BARBADOS",
 143                         "BY", "BELARUS",
 144                         "BE", "BELGIUM",
 145                         "BZ", "BELIZE",
 146                         "BJ", "BENIN",
 147                         "BM", "BERMUDA",
 148                         "BT", "BHUTAN",
 149                         "BO", "BOLIVIA",
 150                         "BA", "BOSNIA AND HERZEGOWINA",
 151                         "BW", "BOTSWANA",
 152                         "BV", "BOUVET ISLAND",
 153                         "BR", "BRAZIL",
 154                         "IO", "BRITISH INDIAN OCEAN TERRITORY",
 155                         "BN", "BRUNEI DARUSSALAM",
 156                         "BG", "BULGARIA",
 157                         "BF", "BURKINA FASO",
 158                         "BI", "BURUNDI",
 159                         "KH", "CAMBODIA",
 160                         "CM", "CAMEROON",
 161                         "CA", "CANADA",
 162                         "CV", "CAPE VERDE",
 163                         "KY", "CAYMAN ISLANDS",
 164                         "CF", "CENTRAL AFRICAN REPUBLIC",
 165                         "TD", "CHAD",
 166                         "CL", "CHILE",
 167                         "CN", "CHINA",
 168                         "CX", "CHRISTMAS ISLAND",
 169                         "CC", "COCOS (KEELING) ISLANDS",
 170                         "CO", "COLOMBIA",
 171                         "KM", "COMOROS",
 172                         "CG", "CONGO",
 173                         "CD", "CONGO, THE DEMOCRATIC REPUBLIC OF THE",
 174                         "CK", "COOK ISLANDS",
 175                         "CR", "COSTA RICA",
 176                         "CI", "COTE D'IVOIRE",
 177                         "HR", "CROATIA (local name: Hrvatska)",
 178                         "CU", "CUBA",
 179                         "CY", "CYPRUS",
 180                         "CZ", "CZECH REPUBLIC",
 181                         "DK", "DENMARK",
 182                         "DJ", "DJIBOUTI",
 183                         "DM", "DOMINICA",
 184                         "DO", "DOMINICAN REPUBLIC",
 185                         "TP", "EAST TIMOR",
 186                         "EC", "ECUADOR",
 187                         "EG", "EGYPT",
 188                         "SV", "EL SALVADOR",
 189                         "GQ", "EQUATORIAL GUINEA",
 190                         "ER", "ERITREA",
 191                         "EE", "ESTONIA",
 192                         "ET", "ETHIOPIA",
 193                         "FK", "FALKLAND ISLANDS (MALVINAS)",
 194                         "FO", "FAROE ISLANDS",
 195                         "FJ", "FIJI",
 196                         "FI", "FINLAND",
 197                         "FR", "FRANCE",
 198                         "FX", "FRANCE, METROPOLITAN",
 199                         "GF", "FRENCH GUIANA",
 200                         "PF", "FRENCH POLYNESIA",
 201                         "TF", "FRENCH SOUTHERN TERRITORIES",
 202                         "GA", "GABON",
 203                         "GM", "GAMBIA",
 204                         "GE", "GEORGIA",
 205                         "DE", "GERMANY",
 206                         "GH", "GHANA",
 207                         "GI", "GIBRALTAR",
 208                         "GR", "GREECE",
 209                         "GL", "GREENLAND",
 210                         "GD", "GRENADA",
 211                         "GP", "GUADELOUPE",
 212                         "GU", "GUAM",
 213                         "GT", "GUATEMALA",
 214                         "GN", "GUINEA",
 215                         "GW", "GUINEA-BISSAU",
 216                         "GY", "GUYANA",
 217                         "HT", "HAITI",
 218                         "HM", "HEARD AND MC DONALD ISLANDS",
 219                         "VA", "HOLY SEE (VATICAN CITY STATE)",
 220                         "HN", "HONDURAS",
 221                         "HK", "HONG KONG",
 222                         "HU", "HUNGARY",
 223                         "IS", "ICELAND",
 224                         "IN", "INDIA",
 225                         "ID", "INDONESIA",
 226                         "IR", "IRAN (ISLAMIC REPUBLIC OF)",
 227                         "IQ", "IRAQ",
 228                         "IE", "IRELAND",
 229                         "IL", "ISRAEL",
 230                         "IT", "ITALY",
 231                         "JM", "JAMAICA",
 232                         "JP", "JAPAN",
 233                         "JO", "JORDAN",
 234                         "KZ", "KAZAKHSTAN",
 235                         "KE", "KENYA",
 236                         "KI", "KIRIBATI",
 237                         "KP", "KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF",
 238                         "KR", "KOREA, REPUBLIC OF",
 239                         "KW", "KUWAIT",
 240                         "KG", "KYRGYZSTAN",
 241                         "LA", "LAO PEOPLE'S DEMOCRATIC REPUBLIC",
 242                         "LV", "LATVIA",
 243                         "LB", "LEBANON",
 244                         "LS", "LESOTHO",
 245                         "LR", "LIBERIA",
 246                         "LY", "LIBYAN ARAB JAMAHIRIYA",
 247                         "LI", "LIECHTENSTEIN",
 248                         "LT", "LITHUANIA",
 249                         "LU", "LUXEMBOURG",
 250                         "MO", "MACAU",
 251                         "MK", "MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF",
 252                         "MG", "MADAGASCAR",
 253                         "MW", "MALAWI",
 254                         "MY", "MALAYSIA",
 255                         "MV", "MALDIVES",
 256                         "ML", "MALI",
 257                         "MT", "MALTA",
 258                         "MH", "MARSHALL ISLANDS",
 259                         "MQ", "MARTINIQUE",
 260                         "MR", "MAURITANIA",
 261                         "MU", "MAURITIUS",
 262                         "YT", "MAYOTTE",
 263                         "MX", "MEXICO",
 264                         "FM", "MICRONESIA, FEDERATED STATES OF",
 265                         "MD", "MOLDOVA, REPUBLIC OF",
 266                         "MC", "MONACO",
 267                         "MN", "MONGOLIA",
 268                         "MS", "MONTSERRAT",
 269                         "MA", "MOROCCO",
 270                         "MZ", "MOZAMBIQUE",
 271                         "MM", "MYANMAR",
 272                         "NA", "NAMIBIA",
 273                         "NR", "NAURU",
 274                         "NP", "NEPAL",
 275                         "NL", "NETHERLANDS",
 276                         "AN", "NETHERLANDS ANTILLES",
 277                         "NC", "NEW CALEDONIA",
 278                         "NZ", "NEW ZEALAND",
 279                         "NI", "NICARAGUA",
 280                         "NE", "NIGER",
 281                         "NG", "NIGERIA",
 282                         "NU", "NIUE",
 283                         "NF", "NORFOLK ISLAND",
 284                         "MP", "NORTHERN MARIANA ISLANDS",
 285                         "NO", "NORWAY",
 286                         "OM", "OMAN",
 287                         "PK", "PAKISTAN",
 288                         "PW", "PALAU",
 289                         "PA", "PANAMA",
 290                         "PG", "PAPUA NEW GUINEA",
 291                         "PY", "PARAGUAY",
 292                         "PE", "PERU",
 293                         "PH", "PHILIPPINES",
 294                         "PN", "PITCAIRN",
 295                         "PL", "POLAND",
 296                         "PT", "PORTUGAL",
 297                         "PR", "PUERTO RICO",
 298                         "QA", "QATAR",
 299                         "RE", "REUNION",
 300                         "RO", "ROMANIA",
 301                         "RU", "RUSSIAN FEDERATION",
 302                         "RW", "RWANDA",
 303                         "KN", "SAINT KITTS AND NEVIS",
 304                         "LC", "SAINT LUCIA",
 305                         "VC", "SAINT VINCENT AND THE GRENADINES",
 306                         "WS", "SAMOA",
 307                         "SM", "SAN MARINO",
 308                         "ST", "SAO TOME AND PRINCIPE",
 309                         "SA", "SAUDI ARABIA",
 310                         "SN", "SENEGAL",
 311                         "SC", "SEYCHELLES",
 312                         "SL", "SIERRA LEONE",
 313                         "SG", "SINGAPORE",
 314                         "SK", "SLOVAKIA (Slovak Republic)",
 315                         "SI", "SLOVENIA",
 316                         "SB", "SOLOMON ISLANDS",
 317                         "SO", "SOMALIA",
 318                         "ZA", "SOUTH AFRICA",
 319                         "GS", "SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS",
 320                         "ES", "SPAIN",
 321                         "LK", "SRI LANKA",
 322                         "SH", "ST. HELENA",
 323                         "PM", "ST. PIERRE AND MIQUELON",
 324                         "SD", "SUDAN",
 325                         "SR", "SURINAME",
 326                         "SJ", "SVALBARD AND JAN MAYEN ISLANDS",
 327                         "SZ", "SWAZILAND",
 328                         "SE", "SWEDEN",
 329                         "CH", "SWITZERLAND",
 330                         "SY", "SYRIAN ARAB REPUBLIC",
 331                         "TW", "TAIWAN, PROVINCE OF CHINA",
 332                         "TJ", "TAJIKISTAN",
 333                         "TZ", "TANZANIA, UNITED REPUBLIC OF",
 334                         "TH", "THAILAND",
 335                         "TG", "TOGO",
 336                         "TK", "TOKELAU",
 337                         "TO", "TONGA",
 338                         "TT", "TRINIDAD AND TOBAGO",
 339                         "TN", "TUNISIA",
 340                         "TR", "TURKEY",
 341                         "TM", "TURKMENISTAN",
 342                         "TC", "TURKS AND CAICOS ISLANDS",
 343                         "TV", "TUVALU",
 344                         "UG", "UGANDA",
 345                         "UA", "UKRAINE",
 346                         "AE", "UNITED ARAB EMIRATES",
 347                         "GB", "UNITED KINGDOM",
 348                         "US", "UNITED STATES",
 349                         "UM", "UNITED STATES MINOR OUTLYING ISLANDS",
 350                         "UY", "URUGUAY",
 351                         "UZ", "UZBEKISTAN",
 352                         "VU", "VANUATU",
 353                         "VE", "VENEZUELA",
 354                         "VN", "VIET NAM",
 355                         "VG", "VIRGIN ISLANDS (BRITISH)",
 356                         "VI", "VIRGIN ISLANDS (U.S.)",
 357                         "WF", "WALLIS AND FUTUNA ISLANDS",
 358                         "EH", "WESTERN SAHARA",
 359                         "YE", "YEMEN",
 360                         "YU", "YUGOSLAVIA",
 361                         "ZM", "ZAMBIA",
 362                         "ZW", "ZIMBABWE",
 363                         );
 364     return %Hash;
 365 }
 366
 367 "That's all folks ;-)";
 368
 369 __END__
 370
 371 =head1 NAME
 372
 373 exchange.pl - Exchange between currencies
 374
 375 =head1 PREREQUISITES
 376
 377         LWP::UserAgent
 378         HTTP::Request::Common
 379
 380 =head1 PARAMETERS
 381
 382 exchange
 383
 384 =head1 PUBLIC INTERFACE
 385
 386         Exchange <amount> <currency> for|[in]to <currency>
 387
 388 =head1 DESCRIPTION
 389
 390 Contacts C<www.xe.net> and grabs the exchange rates; warning - the
 391 currency code is a bit cranky.
 392
 393 =head1 AUTHORS
 394
 395 Bobby <bobby@bofh.dk>