/usr/share/perl5/Finance/Quote/Morningstar.pm is in libfinance-quote-perl 1.17+git20110918-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 | package Finance::Quote::Morningstar;
require 5.004;
use strict;
use vars qw($VERSION $MORNINGSTAR_SE_FUNDS_URL);
use LWP::UserAgent;
use HTTP::Request::Common;
use HTML::TableExtract;
$VERSION = '1.17';
$MORNINGSTAR_SE_FUNDS_URL = 'http://morningstar.se/funds/overview.asp?cid=';
sub methods { return (morningstar => \&morningstar); }
{
my @labels = qw/date isodate method source name currency price/;
sub labels { return (morningstar => \@labels); }
}
sub morningstar {
my $quoter = shift;
my @symbols = @_;
return unless @symbols;
my ($ua, $reply, $url, %funds, $te, $table, $row, @value_currency, $name);
foreach my $symbol (@symbols) {
$name = $symbol;
$url = $MORNINGSTAR_SE_FUNDS_URL;
$url = $url . $name;
$ua = $quoter->user_agent;
$reply = $ua->request(GET $url);
unless ($reply->is_success) {
foreach my $symbol (@symbols) {
$funds{$symbol, "success"} = 0;
$funds{$symbol, "errormsg"} = "HTTP failure";
}
return wantarray ? %funds : \%funds;
}
$te = new HTML::TableExtract();
$te->parse($reply->content);
#print "Tables: " . $te->tables_report() . "\n";
my $counter = 0;
my $dateset = 0;
for my $table ($te->tables()) {
for my $row ($table->rows()) {
if (defined(@$row[0])) {
if ('Senaste NAV' eq substr(@$row[0],0,11)) {
@value_currency = split(/ /, $$row[2]);
$funds{$name, 'method'} = 'morningstar_funds';
$funds{$name, 'price'} = $value_currency[0];
$funds{$name, 'currency'} = $value_currency[1];
$funds{$name, 'success'} = 1;
$funds{$name, 'symbol'} = $name;
$funds{$name, 'source'} = 'Finance::Quote::Morningstar';
$funds{$name, 'name'} = $name;
$funds{$name, 'p_change'} = ""; # p_change is not retrieved (yet?)
}
if ($counter == 7 && $dateset == 0) {
my $date = substr($$row[1],0,10);
$quoter->store_date(\%funds, $name, {isodate => $date});
$dateset = 1;
}
}
}
$counter++;
}
# Check for undefined symbols
foreach my $symbol (@symbols) {
unless ($funds{$symbol, 'success'}) {
$funds{$symbol, "success"} = 0;
$funds{$symbol, "errormsg"} = "Fund name not found";
}
}
}
return %funds if wantarray;
return \%funds;
}
1;
=head1 NAME
Finance::Quote::Morningstar - Obtain fund prices the Fredrik way
=head1 SYNOPSIS
use Finance::Quote;
$q = Finance::Quote->new;
%fundinfo = $q->fetch("morningstar","fund name");
=head1 DESCRIPTION
This module obtains information about Fredrik fund prices from
www.morningstar.se.
=head1 FUND NAMES
Use some smart fund name...
=head1 LABELS RETURNED
Information available from Fredrik funds may include the following labels:
date method source name currency price. The prices are updated at the
end of each bank day.
=head1 SEE ALSO
Perhaps morningstar?
=cut
|