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.47
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 : Tradeville.pm
#!/usr/bin/perl -w # 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 package Finance::Quote::Tradeville; use strict; use warnings; use constant DEBUG => $ENV{DEBUG}; use if DEBUG, 'Smart::Comments'; use LWP::UserAgent; use Web::Scraper; our $VERSION = '1.51'; # VERSION my $TRADEVILLE_URL = 'https://tradeville.eu/actiuni/actiuni-'; sub methods { return (romania => \&tradeville, tradeville => \&tradeville, europe => \&tradeville); } our @labels = qw/symbol last close p_change volume open price/; sub labels { return (romania => \@labels, tradeville => \@labels, europe => \@labels); } sub tradeville { my $quoter = shift; my @stocks = @_; my %info; my $ua = $quoter->user_agent(); foreach my $stock (@stocks) { eval { my ($my_date, $my_last, $my_p_change, $my_volume, $my_open, $my_price); my $url = $TRADEVILLE_URL.join('', $stock); my $reply = $ua->get($url); ### [<now>] Fetched: $url my $data = scraper { process 'div.quotationTblLarge div', 'data[]' => ['TEXT', sub {s/\s//g}]; process 'div.quotationTblLarge + br + p', 'date' => ['TEXT', sub{return $1 if ($_ =~ /([0-9]{1,2}.[0-9]{1,2}.[0-9]{4}, [0-9]{2}:[0-9]{2} [AP]M)/)}]; }; my $result = $data->scrape($reply); ### [<now>] result: $result my %table = @{$result->{data}}; $info{$stock, 'success'} = 1; $info{$stock, 'method'} = 'tradeville'; $info{$stock, 'symbol'} = $stock; $info{$stock, 'last'} = $table{'Ultimulpret' . uc($stock)}; $info{$stock, 'p_change'} = $table{'Variatie:'}; $info{$stock, 'open'} = $table{'Deschidere:'}; $info{$stock, 'day_range'} = $table{'Maxim/Minim'}; $info{$stock, 'volume'} = $table{'Volum:'}; $info{$stock, 'div_yield'} = $table{'Divid.yield:'}; $info{$stock, 'currency'} = $table{'Valuta:'}; $info{$stock, 'cap'} = $table{'MktCap:'}; $info{$stock, 'exchange'} = $table{'Piata:'}; $quoter->store_date(\%info, $stock, {eurodate => $result->{date}}); }; if ($@) { $info{$stock, 'success'} = 0; $info{$stock, 'errormsg'} = "Error retreiving $stock: $@"; } } return wantarray() ? %info : \%info; } 1; =head1 NAME Finance::Quote::BSERO - Obtain quotes from Bucharest Stock Exchange. =head1 SYNOPSIS use Finance::Quote; $q = Finance::Quote->new; %info = Finance::Quote->fetch("tradeville", "tlv"); # Only query tradeville %info = Finance::Quote->fetch("romania", "brd"); # Failover to other sources OK. =head1 DESCRIPTION This module fetches information from https://tradeville.eu/, a leader in online trading and pioneer of the Romanian capital market. This module is loaded by default on a Finance::Quote object. It's also possible to load it explicitly by placing "tradeville" in the argument list to Finance::Quote->new(). This module provides "tradeville", "romania", and "europe" fetch methods. Information obtained by this module may be covered by tradeville.eu terms and conditions. =head1 LABELS RETURNED The following labels are returned: cap currency day_range div_yield exchange last method open p_change success symbol volume
Close