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 : Deka.pm

#!/usr/bin/perl -w
#
#    Deka import modul based on Union.pm
#    Version 2016-01-12

package Finance::Quote::Deka;
require 5.005;

use strict;
use LWP::UserAgent;
use HTTP::Request::Common;

our $VERSION = '1.51'; # VERSION

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

# =======================================================================
# The deka routine gets quotes of DEKA funds (Deka Investments)
# On their website DEKA provides a csv file in the format
#    label1;label2;...
#    symbol1;name1;date1;date_before1;bid1;...
#    symbol2;name2;date2;date_before2,bid2,...
#    ...
#
# This subroutine was written by Andre Joost <andrejoost@gmx.de>

# Convert number separators to US values
sub convert_price {
	$_ = shift;
        tr/.,/,./ ;
	return $_;
}

sub deka
{
  my $quoter = shift;
  my @funds = @_;
  return unless @funds;
  my $ua = $quoter->user_agent;
  my (%fundhash, @q, %info, $tempdate);

# create hash of all funds requested
  foreach my $fund (@funds)
  {
    $fundhash{$fund} = 0;
  }

# get csv data
  my $response = $ua->request(GET &dekaurl);

if ($response->is_success)
  {

# process csv data
    foreach (split('\015?\012',$response->content))
        {
#      @q = $quoter->parse_csv($_) or next;
      @q = split(/;/) or next;
      next unless (defined $q[0]);
      if (exists $fundhash{$q[0]})
      {
        $fundhash{$q[0]} = 1;

$info{$q[0], "exchange"} = "DEKA";
        $info{$q[0], "name"}     = $q[1];
        $info{$q[0], "symbol"}   = $q[0];
        $tempdate  = $q[2];
	$quoter->store_date(\%info, $q[0], {eurodate => $tempdate});
        $info{$q[0], "price"}    = convert_price($q[4]);
        $info{$q[0], "last"}     = convert_price($q[4]);

$info{$q[0], "method"}   = "deka";
        $info{$q[0], "currency"} = $q[8];
        $info{$q[0], "success"}  = 1;
      }
    }

# check to make sure a value was returned for every fund requested
    foreach my $fund (keys %fundhash)
    {
      if ($fundhash{$fund} == 0)
      {
        $info{$fund, "success"}  = 0;
        $info{$fund, "errormsg"} = "No data returned";
      }
    }
  }
  else
  {
    foreach my $fund (@funds)
    {
      $info{$fund, "success"}  = 0;
      $info{$fund, "errormsg"} = "HTTP error";
    }
  }

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

# DEKA provides a csv file named fondspreise.csv containing the prices of all
# their funds for the most recent business day.

sub dekaurl
{
  return "https://www.deka.de/privatkunden/pflichtseiten/fondspreise?service=fondspreislisteExportController&action=exportCsv&typ=inVertrieb";
}

=head1 NAME

Finance::Quote::Deka	- Obtain quotes from DEKA (Wertpapierhaus der Sparkassen).

=head1 SYNOPSIS

use Finance::Quote;

$q = Finance::Quote->new;

%stockinfo = $q->fetch("deka","DE0008474503");

=head1 DESCRIPTION

This module obtains information about DEKA managed funds.

Information returned by this module is governed by DEKA's terms
and conditions.

=head1 LABELS RETURNED

The following labels may be returned by Finance::Quote::DEKA:
exchange, name, date, price, last.

=head1 SEE ALSO

DEKA (Deka Investments), http://www.deka.de/

=cut

${this.title}

Code Editor : Deka.pm