Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
CurrencyRates	[ DIR ]	drwxr-xr-x
AEX.pm	5.76 KB	-rw-r--r--
ASEGR.pm	5.26 KB	-rw-r--r--
ASX.pm	10.78 KB	-rw-r--r--
AlphaVantage.pm	12.23 KB	-rw-r--r--
BSEIndia.pm	4.59 KB	-rw-r--r--
Bloomberg.pm	2.68 KB	-rw-r--r--
Bourso.pm	6.71 KB	-rw-r--r--
CSE.pm	3.13 KB	-rw-r--r--
Cdnfundlibrary.pm	5.34 KB	-rw-r--r--
Comdirect.pm	4.32 KB	-rw-r--r--
Currencies.pm	32.6 KB	-rw-r--r--
DWS.pm	4.36 KB	-rw-r--r--
Deka.pm	3.17 KB	-rw-r--r--
FTfunds.pm	11.55 KB	-rw-r--r--
Fidelity.pm	4.72 KB	-rw-r--r--
Finanzpartner.pm	4.05 KB	-rw-r--r--
Fondsweb.pm	5.29 KB	-rw-r--r--
Fool.pm	5.2 KB	-rw-r--r--
Fundata.pm	5.96 KB	-rw-r--r--
GoldMoney.pm	7.66 KB	-rw-r--r--
HU.pm	7.07 KB	-rw-r--r--
IEXCloud.pm	4.94 KB	-rw-r--r--
IndiaMutual.pm	4.71 KB	-rw-r--r--
MStaruk.pm	9.13 KB	-rw-r--r--
MorningstarAU.pm	5.05 KB	-rw-r--r--
MorningstarJP.pm	5.55 KB	-rw-r--r--
NSEIndia.pm	4.87 KB	-rw-r--r--
NZX.pm	3.25 KB	-rw-r--r--
OnVista.pm	7.54 KB	-rw-r--r--
Oslobors.pm	2.29 KB	-rw-r--r--
SEB.pm	3.96 KB	-rw-r--r--
SIX.pm	5.45 KB	-rw-r--r--
TMX.pm	5.83 KB	-rw-r--r--
TSP.pm	4.35 KB	-rw-r--r--
Tiaacref.pm	13.85 KB	-rw-r--r--
Tradeville.pm	3.88 KB	-rw-r--r--
Troweprice.pm	5 KB	-rw-r--r--
USFedBonds.pm	4.89 KB	-rw-r--r--
Union.pm	4.5 KB	-rw-r--r--
UserAgent.pm	3.25 KB	-rw-r--r--
XETRA.pm	4.59 KB	-rw-r--r--
YahooJSON.pm	8.21 KB	-rw-r--r--
ZA.pm	3.33 KB	-rw-r--r--

Code Editor : GoldMoney.pm

#!/usr/bin/perl -w
#
#    Copyright (C) 1998, Dj Padzensky <djpadz@padz.net>
#    Copyright (C) 1998, 1999 Linas Vepstas <linas@linas.org>
#    Copyright (C) 2000, Yannick LE NY <y-le-ny@ifrance.com>
#    Copyright (C) 2000, Paul Fenwick <pjf@cpan.org>
#    Copyright (C) 2000, Brent Neal <brentn@users.sourceforge.net>
#    Copyright (C) 2000, Volker Stuerzl <volker.stuerzl@gmx.de>
#    Copyright (C) 2006, Klaus Dahlke <klaus.dahlke@gmx.de>
#    Copyright (C) 2008, Stephan Ebelt <stephan.ebelt@gmx.de>
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
#    02110-1301, USA
#
# $Id: $

package Finance::Quote::GoldMoney;
require 5.005;

use HTTP::Request::Common;
use JSON;

use strict;
use warnings;

our $VERSION = '1.51'; # VERSION

sub methods {
    return ( goldmoney => \&goldmoney );
}

sub labels {
    return ( goldmoney => [qw/exchange name date isodate price method/] );
}

# goldmoney($quoter, @symbols)
#
# - get 'gold' and 'silver' spot rates from goldmoney.com
# - error out properly (that is: ignore) all other symbols
#
sub goldmoney {
    my $quoter  = shift;
    my @symbols = @_;
    return unless @symbols;

my $ua = $quoter->user_agent;

# Set the ua to be blank. GoldMOney are using CloudFlare who block
    # the default useragent.
    $ua->agent('');
    my ( %symbolhash, @q, %info );
    my ( $html_string,    $te,          $table_gold, $table_silver,
         $table_platinum, $gold_gg,     $gold_oz,    $silver_oz,
         $platinum_oz,    $platinum_pg, $currency
    );

my $_want_gold     = 0;
    my $_want_silver   = 0;
    my $_want_platinum = 0;

# - feed all requested symbols into %info (to be returned later)
    # - set error state to false by default
    # - see if a gold or silver rate is requested
    foreach my $s (@symbols) {
        $info{ $s, 'success' }  = 0;
        $info{ $s, 'exchange' } = 'goldmoney.com';
        $info{ $s, 'method' }   = 'goldmoney';
        $info{ $s, 'symbol' }   = $s;

if ( $s eq 'gold' ) {
            $_want_gold = 1;
        }
        elsif ( $s eq 'silver' ) {
            $_want_silver = 1;
        }
        elsif ( $s eq 'platinum' ) {
            $_want_platinum = 1;
        }
        else {
            $info{ $s, 'errormsg' } =
                "No data returned (note: this module only works for 'gold' and 'silver')";
        }
    }

# get the JSON of the prices. Currently getting sell price,
    if ( $_want_gold or $_want_silver or $_want_platinum ) {

my $currency = $quoter->{"currency"} || 'EUR';
        my $GOLDMONEY_URL =
            "http://www.goldmoney.com/metal/prices/currentSpotPrices?currency="
            . lc($currency)
            . "&units=grams&price=bid";
        my $response = $ua->request( GET $GOLDMONEY_URL);

if ( $response->is_success ) {
            $html_string = $response->content;

my $json = from_json($html_string);

$table_gold     = $json->{spotPrices}[0];
            $table_silver   = $json->{spotPrices}[1];
            $table_platinum = $json->{spotPrices}[2];
        }
        else {
            # retrieval error - flag an error and return right away
            foreach my $s (@symbols) {
                %info = _goldmoney_error( @symbols,
                                      'HTTP error: ' . $response->status_line );
                return wantarray() ? %info : \%info;
            }
            return wantarray() ? %info : \%info;
        }

# get gold rate
        #
        if ($_want_gold) {

# assemble final dataset
            # - take "now" as date/time as the site is always current and does
            #   not provide this explicitly - so there is a time-slip
            $quoter->store_date( \%info, 'gold',
                                 { isodate => _goldmoney_time('isodate') } );

$info{ 'gold', 'time' }     = _goldmoney_time('time');
            $info{ 'gold', 'name' }     = 'Gold Spot';
            $info{ 'gold', 'last' }     = $table_gold->{spotPrice};
            $info{ 'gold', 'price' }    = $table_gold->{spotPrice};
            $info{ 'gold', 'currency' } = $currency;
            $info{ 'gold', 'success' }  = 1;
        }

# get silver rate
        #
        if ($_want_silver) {

$quoter->store_date( \%info, 'silver',
                                 { isodate => _goldmoney_time('isodate') } );
            $info{ 'silver', 'time' }     = _goldmoney_time('time');
            $info{ 'silver', 'name' }     = 'Silver Spot';
            $info{ 'silver', 'last' }     = $table_silver->{spotPrice};
            $info{ 'silver', 'price' }    = $table_silver->{spotPrice};
            $info{ 'silver', 'currency' } = $currency;
            $info{ 'silver', 'success' }  = 1;

}

# get platinum rate
        #
        if ($_want_platinum) {

# assemble final dataset
            # - take "now" as date/time as the site is always current and does
            #   not provide this explicitly - so there is a time-slip
            $quoter->store_date( \%info, 'platinum',
                                 { isodate => _goldmoney_time('isodate') } );
            $info{ 'platinum', 'time' }     = _goldmoney_time('time');
            $info{ 'platinum', 'name' }     = 'Platinum Spot';
            $info{ 'platinum', 'last' }     = $table_platinum->{spotPrice};
            $info{ 'platinum', 'price' }    = $table_platinum->{spotPrice};
            $info{ 'platinum', 'currency' } = $currency;
            $info{ 'platinum', 'success' }  = 1;

}
    }

return wantarray() ? %info : \%info;
}

# - populate %info with errormsg and status code set for all requested symbols
# - return a hash ready to pass back to fetch()
sub _goldmoney_error {
    my @symbols = shift;
    my $msg     = shift;
    my %info;

foreach my $s (@symbols) {
        $info{ $s, "success" }  = 0;
        $info{ $s, "errormsg" } = $msg;
    }

return (%info);
}

# - return current 'isodate' and 'time' string
sub _goldmoney_time {
    my $want = shift;
    my @now  = localtime();
    my $str;

if ( $want eq 'isodate' ) {
        $str = sprintf( '%4d-%02d-%02d', $now[5] + 1900, $now[4] + 1, $now[3] );
    }
    elsif ( $want eq 'time' ) {
        $str = sprintf( '%02d:%02d:%02d', $now[2], $now[1], $now[0] );
    }

return ($str);
}

=head1 NAME

Finance::Quote::GoldMoney - obtain spot rates from GoldMoney.

=head1 SYNOPSIS

use Finance::Quote;

$q = Finance::Quote->new;

%rates = $q->fetch('goldmoeny','gold', 'silver', 'platinum');

=head1 DESCRIPTION

This module obtains current spot rates for 'gold', 'silver' and
'platinum' from Goldmoney (http://www.goldmoney.com). All other
symbols are ignored.

Information returned by this module is governed by Net Transactions
Ltd.'s terms and conditions. This module is *not* affiliated with the
company in any way. Use at your own risk.

=head1 LABELS RETURNED

The following labels are returned by Finance::Quote::GoldMoney:

- exchange
	- name
	- date, time
	- price (per gram),
    - currency

=head1 SEE ALSO

GoldMoney (Net Transactions Ltd.), http://www.goldmoney.com/

=cut

${this.title}

Code Editor : GoldMoney.pm