tyler.durden/pandorafms
1
0
Fork 0
mirror of https://github.com/pandorafms/pandorafms.git synced 2025-07-29 08:45:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

2013-01-23 Sergio Martin <sergio.martin@artica.es>

Browse Source 
* util/plugin/EU_10yrspread.pl: Updated the european countries
	10 years spread plugin to new bloomberg website



git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@7519 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
This commit is contained in:
zarzuelo 2013-01-23 10:09:55 +00:00
parent df527f203d
commit 529d26d729
2 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pandora_server/ChangeLog
View File

@ -1,3 +1,8 @@
2013-01-23 Sergio Martin <sergio.martin@artica.es>
* util/plugin/EU_10yrspread.pl: Updated the european countries
10 years spread plugin to new bloomberg website
2013-01-22 Juan Manuel Ramon <juanmanuel.ramon@artica.es> 2013-01-22 Juan Manuel Ramon <juanmanuel.ramon@artica.es>
* util/pandora_xml_stress.conf * util/pandora_xml_stress.conf

22
pandora_server/util/plugin/EU_10yrspread.pl
View File

@ -6,6 +6,7 @@ use warnings;
use LWP::Simple; use LWP::Simple;
use POSIX qw(strftime); use POSIX qw(strftime);
sub main sub main
{ {
my $agent_name = "EU_10yrspread"; my $agent_name = "EU_10yrspread";
@ -14,22 +15,27 @@ sub main
my $utimestamp = time (); my $utimestamp = time ();
my $timestamp = strftime ("%Y-%m-%d %H:%M:%S", localtime()); my $timestamp = strftime ("%Y-%m-%d %H:%M:%S", localtime());
my $germany_spread = get_10yspread('GDBR10:IND')*100;
my %codes; my %codes;
$codes{'Spain'} = '.SPAINGER10:IND'; $codes{'United Kingdom'} = 'GUKG10:IND';
$codes{'Greece'} = '.GRGER10:IND'; $codes{'Spain'} = 'GSPG10YR:IND';
$codes{'Italy'} = '.ITAGER10:IND'; $codes{'Greece'} = 'GGGB10YR:IND';
$codes{'Portugal'} = '.PORGER10:IND'; $codes{'Italy'} = 'GBTPGR10:IND';
$codes{'Ireland'} = '.IRGERSP:IND'; $codes{'Portugal'} = 'GSPT10YR:IND';
$codes{'France'} = '.FRAGER10:IND'; #$codes{'Ireland'} = '.IRGERSP:IND';
$codes{'Belgium'} = '.BELGER10:IND'; $codes{'France'} = 'GFRN10:IND';
$codes{'Netherlands'} = 'GNTH10YR:IND';
$codes{'Switzerland'} = 'GSWISS10:IND';
#$codes{'Belgium'} = '.BELGER10:IND';
my $xml_output = "<?xml version='1.0' encoding='ISO-8859-1' ?>"; my $xml_output = "<?xml version='1.0' encoding='ISO-8859-1' ?>";
$xml_output .= "<agent_data os_name='Linux' agent_name='".$agent_name."' interval='300' timestamp='".$timestamp."' >"; $xml_output .= "<agent_data os_name='Linux' agent_name='".$agent_name."' interval='300' timestamp='".$timestamp."' >";
foreach my $k (keys(%codes)) { foreach my $k (keys(%codes)) {
my $code = $codes{$k}; my $code = $codes{$k};
my $spread = get_10yspread($code)*100; my $spread = get_10yspread($code)*100-$germany_spread;
$xml_output .=" <module>"; $xml_output .=" <module>";
$xml_output .=" <name><![CDATA[$k]]></name>"; $xml_output .=" <name><![CDATA[$k]]></name>";