Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.13
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Finance /
Quote /
[ HOME SHELL ]
Name
Size
Permission
Action
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--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Finanzpartner.pm
# Finance::Quote Perl module to retrieve quotes from Finanzpartner.de # Copyright (C) 2007 Jan Willamowius <jan@willamowius.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 St, Fifth Floor, Boston, MA 02110-1301 USA package Finance::Quote::Finanzpartner; use strict; use constant DEBUG => $ENV{DEBUG}; use if DEBUG, 'Smart::Comments'; use Web::Scraper; use Encode; our $VERSION = '1.51'; # VERSION my $FINANZPARTNER_URL = "https://www.finanzpartner.de/fi/"; sub methods {return (finanzpartner => \&finanzpartner);} sub labels { return (finanzpartner=>[qw/name date price last method/]); } # TODO sub finanzpartner { my $quoter = shift; # The Finance::Quote object. my @stocks = @_; my $ua = $quoter->user_agent(); my %info; foreach my $stock (@stocks) { eval { my @headers = ( "authority" => "www.finanzpartner.de", "sec-ch-ua" => '"Google Chrome";v="87", " Not;A Brand";v="99", "Chromium";v="87"', "sec-ch-ua-mobile" => "?0", "upgrade-insecure-requests" => "1", "user-agent" => 'Mozilla/5.0 (Macintosh; Intel Mac OS X 11_1_0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/87.0.4280.88 Safari/537.36', "accept" => "text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9", "accept-language" => "en-US,en;q=0.9", "sec-ch-ua" => "\"Google Chrome\";v=\"87\", \" Not;A Brand\";v=\"99\", \"Chromium\";v=\"87\"", "sec-fetch-dest" => "document", "sec-fetch-mode" => "navigate", "sec-fetch-site" => "none", ); my $url = $FINANZPARTNER_URL . $stock . '/'; ### url : $url my $reply = $ua->get($url, @headers); my $processor = scraper { process 'span.kurs-m.pull-left', 'price[]' => 'TEXT'; process 'h1 > small', 'isin[]' => 'TEXT'; process 'div.col-md-2', 'date[]' => 'TEXT'; process 'h1 > span', 'name[]' => 'TEXT'; }; my $data = $processor->scrape(decode_utf8 $reply->content); ### data: $data die "Unexpected price format" unless exists $data->{price} and $data->{price}->[0] =~ /^([0-9.]+) ([A-Z]+)$/; $info{$stock, "last"} = $1; $info{$stock, "currency"} = $2; die "Unexpected date format" unless exists $data->{date} and $data->{date}->[0] =~ /([0-9]{2}[.][0-9]{2}[.][0-9]{4})$/; $quoter->store_date(\%info, $stock, {eurodate => $1}); $info{$stock,"method"} = "finanzpartner"; $info{$stock,"symbol"} = $stock; $info{$stock,"success"} = 1; }; if ($@) { $info{$stock,"errormsg"} = $@; $info{$stock,"success"} = 0; } } return wantarray ? %info : \%info; } 1; =head1 NAME Finance::Quote::Finanzpartner - Obtain quotes from Finanzpartner.de. =head1 SYNOPSIS use Finance::Quote; $q = Finance::Quote->new("Finanzpartner"); %info = $q->fetch("finanzpartner","LU0055732977"); =head1 DESCRIPTION This module obtains quotes from Finanzpartner.de (http://www.finanzpartner.de) by WKN or ISIN. =head1 LABELS RETURNED The following labels may be returned by Finance::Quote::Finanzpartner: name, date, price, last, method. =head1 SEE ALSO Finanzpartner, http://www.finanzpartner.de/ Finance::Quote; =cut
Close