61 lines
1.5 KiB
Perl
61 lines
1.5 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
print "Content-type: text/html\n\n";
|
||
|
|
|
||
|
|
BEGIN { use lib '/usr/home/cfg' ; require push_inc ; }
|
||
|
|
|
||
|
|
require cfg ;
|
||
|
|
|
||
|
|
&today ;
|
||
|
|
|
||
|
|
#------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
@ARGV = split(/\\*\&/, $ENV{'QUERY_STRING'});
|
||
|
|
|
||
|
|
foreach $ARG (@ARGV) { ($par,$val) = split(/\=/,$ARG) ; $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $param{$par} = $val ; }
|
||
|
|
|
||
|
|
my $curr = $param{currency} ; # https://www.itvadmin.co.za/cgi-bin/scripts/get/get_roe.pl?GBP
|
||
|
|
|
||
|
|
unless (length($curr) == 3) { exit ; } # $curr not used other than as a check to make sure this is being run properly
|
||
|
|
|
||
|
|
#------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
# use DBI;
|
||
|
|
use CGI::Carp qw(fatalsToBrowser);
|
||
|
|
use Fcntl qw(:flock);
|
||
|
|
|
||
|
|
&get_roe ;
|
||
|
|
|
||
|
|
print $json ;
|
||
|
|
|
||
|
|
exit ;
|
||
|
|
|
||
|
|
#------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub get_roe {
|
||
|
|
|
||
|
|
our %roe = () ; $roe{ZAR} = 1 ;
|
||
|
|
|
||
|
|
&common_exchange_rates ;
|
||
|
|
|
||
|
|
# foreach my $curr (keys %roe) { push @json, "'$curr':'$roe{$curr}'" ; }
|
||
|
|
|
||
|
|
my $sell_rate = $roe{$curr} ;
|
||
|
|
my $buy_rate = $roe_buy{$curr} ;
|
||
|
|
|
||
|
|
# if ($curr eq 'ZAR') {
|
||
|
|
# $sell_rate = sprintf("%.0f", $roe{$curr}) ;
|
||
|
|
# $buy_rate = sprintf("%.0f", $roe_buy{$curr}) ;
|
||
|
|
# }
|
||
|
|
|
||
|
|
$json = '[{' ;
|
||
|
|
$json .= qq("sell_rate":"$sell_rate","buy_rate":"$buy_rate");
|
||
|
|
$json .= '}]' ;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
use db ;
|
||
|
|
use today ;
|
||
|
|
use common ;
|
||
|
|
|
||
|
|
1;
|