Bug #49337 for Finance-Quote: france and bourso quotation as well as currency exchange rates

I had the same problem. I modified the "bourso" plugin to make it work. In "bourso", the problem was with delayed OPCVM. It uses a different html page so the regular stock parser don't work with it. I'm still trying to find a documentation on how to submit a patch to this project. I probably won't have the time to create a regular patch today. So here is the raw patch (diff -u).

--- Bourso.ori.pm 2009-10-05 19:39:57.000000000 +0200 +++ Bourso.vN.pm 2009-11-08 20:55:22.000000000 +0100 @@ -121,7 +121,7 @@ }; my $symbol = $symbolline[0]->as_text; - ($symbol) = ($symbol=~m/(\w+)-/); + ($symbol) = ($symbol=~m/(\w+) ?-/); $info{$stocks,"symbol"}=$symbol; # retrieve NAME @@ -139,31 +139,70 @@ # set method $info{$stocks,"method"} = "bourso" ; + #holds table data + my %tempinfo; + # retrieve other data my $infoclass = ($tree->look_down('class','info1'))[0]; unless ($infoclass) { - $info {$stocks,"success"} = 0; - $info {$stocks,"errormsg"} = "$stocks retrieval not supported."; - next ; - }; + my $opcvm = ($tree->look_down('id','cours_HeaderOPCVM_0'))[0]; + unless ($opcvm) { + $info {$stocks,"success"} = 0; + $info {$stocks,"errormsg"} = "$stocks retrieval not supported."; + next ; + } + + # the stock is a delayed OPCVM + + my $infoelem = ($tree->look_down('id','content-gauche'))[0]; + $infoelem = ($infoelem->look_down('class','TabContenu'))[1]; + $infoelem = ($infoelem->look_down('_tag','table'))[1]; + + my @rows = $infoelem->look_down('_tag','tr'); + foreach my $i (0..$#rows) { + my $row = $rows[$i]; + unless($row->attr('class')) { + next; + } + + my $keytext = (($row->look_down('align','left'))[0])->as_text; + my $valuetext = (($row->look_down('align','right'))[0])->as_text; + $tempinfo{$keytext} = $valuetext; + } + } + else { my $keys = ($infoclass->look_down('class','t01'))[0]; # this div contains all keys my $data = ($infoclass->look_down('class','t03'))[0]; # this div contains all values my @keys = $keys->look_down('_tag','li'); my @values = $data->look_down('_tag','li'); - my %tempinfo; #holds table data - foreach my $i (0..$#keys) { my $keytext = ($keys[$i])->as_text; my $valuetext = ($values[$i])->as_text; $tempinfo{$keytext} = $valuetext; } + } + foreach my $key (keys %tempinfo) { # print "$key -> $tempinfo{$key}\n"; ASSIGN: for ( $key ) { + # OPCVM + /Valeur liquidative/ && do { + my ($last, $currency) = ($tempinfo{$key} =~ m/(\d*.?\d*)\s*(\w*)/); + $info{$stocks,"last"} = $last; + $info{$stocks,"currency"} = $currency; + }; + /Date/ && do { + $info{$stocks,"date"} = $tempinfo{$key}; + $quoter->store_date(\%info, $stocks, {eurodate => $info{$stocks,"date"}}); + }; + /Variation Veille/ && do { + $info{$stocks,"p_change"}=$tempinfo{$key} + }; + # REGULAR STOCK /Cours/ && do { my ($last, $currency) = ($tempinfo{$key} =~ m/(\d*.?\d*)\(c\)\s*(\w*)/); $info{$stocks,"last"} = $last;

reformatted raw patch. re-created patch using: git diff

diff --git a/lib/Finance/Quote/Bourso.pm b/lib/Finance/Quote/Bourso.pm index 5166794..86bd3b0 100644 --- a/lib/Finance/Quote/Bourso.pm +++ b/lib/Finance/Quote/Bourso.pm @@ -121,7 +121,7 @@ sub bourso { }; my $symbol = $symbolline[0]->as_text; - ($symbol) = ($symbol=~m/(\w+)-/); + ($symbol) = ($symbol=~m/(\w+) ?-/); $info{$stocks,"symbol"}=$symbol; # retrieve NAME @@ -139,31 +139,70 @@ sub bourso { # set method $info{$stocks,"method"} = "bourso" ; + #holds table data + my %tempinfo; + # retrieve other data my $infoclass = ($tree->look_down('class','info1'))[0]; unless ($infoclass) { - $info {$stocks,"success"} = 0; - $info {$stocks,"errormsg"} = "$stocks retrieval not supported."; - next ; - }; + my $opcvm = ($tree->look_down('id','cours_HeaderOPCVM_0'))[0]; + unless ($opcvm) { + $info {$stocks,"success"} = 0; + $info {$stocks,"errormsg"} = "$stocks retrieval not supported."; + next ; + } + + # the stock is a delayed OPCVM + + my $infoelem = ($tree->look_down('id','content-gauche'))[0]; + $infoelem = ($infoelem->look_down('class','TabContenu'))[1]; + $infoelem = ($infoelem->look_down('_tag','table'))[1]; + + my @rows = $infoelem->look_down('_tag','tr'); + foreach my $i (0..$#rows) { + my $row = $rows[$i]; + unless($row->attr('class')) { + next; + } + + my $keytext = (($row->look_down('align','left'))[0])->as_text; + my $valuetext = (($row->look_down('align','right'))[0])->as_text; + $tempinfo{$keytext} = $valuetext; + } + } + else { my $keys = ($infoclass->look_down('class','t01'))[0]; # this div contains all keys my $data = ($infoclass->look_down('class','t03'))[0]; # this div contains all values my @keys = $keys->look_down('_tag','li'); my @values = $data->look_down('_tag','li'); - my %tempinfo; #holds table data - foreach my $i (0..$#keys) { my $keytext = ($keys[$i])->as_text; my $valuetext = ($values[$i])->as_text; $tempinfo{$keytext} = $valuetext; } + } + foreach my $key (keys %tempinfo) { # print "$key -> $tempinfo{$key}\n"; ASSIGN: for ( $key ) { + # OPCVM + /Valeur liquidative/ && do { + my ($last, $currency) = ($tempinfo{$key} =~ m/(\d*.?\d*)\s*(\w*)/); + $info{$stocks,"last"} = $last; + $info{$stocks,"currency"} = $currency; + }; + /Date/ && do { + $info{$stocks,"date"} = $tempinfo{$key}; + $quoter->store_date(\%info, $stocks, {eurodate => $info{$stocks,"date"}}); + }; + /Variation Veille/ && do { + $info{$stocks,"p_change"}=$tempinfo{$key} + }; + # REGULAR STOCK /Cours/ && do { my ($last, $currency) = ($tempinfo{$key} =~ m/(\d*.?\d*)\(c\)\s*(\w*)/); $info{$stocks,"last"} = $last;

Site has changed its layout, it's broken again.<br /> <br /> Here is the update of the patch that matches the new site.<br /> <br /> <br />

diff --git a/lib/Finance/Quote/Bourso.pm b/lib/Finance/Quote/Bourso.pm index 5166794..18ff338 100644 --- a/lib/Finance/Quote/Bourso.pm +++ b/lib/Finance/Quote/Bourso.pm @@ -121,7 +121,7 @@ sub bourso { }; my $symbol = $symbolline[0]->as_text; - ($symbol) = ($symbol=~m/(\w+)-/); + ($symbol) = ($symbol=~m/(\w+) ?-/); $info{$stocks,"symbol"}=$symbol; # retrieve NAME @@ -139,31 +139,71 @@ sub bourso { # set method $info{$stocks,"method"} = "bourso" ; + #holds table data + my %tempinfo; + # retrieve other data my $infoclass = ($tree->look_down('class','info1'))[0]; unless ($infoclass) { - $info {$stocks,"success"} = 0; - $info {$stocks,"errormsg"} = "$stocks retrieval not supported."; - next ; - }; + my $opcvm = ($tree->look_down('id','opcvm_headerFund_0'))[0]; + unless ($opcvm) { + $info {$stocks,"success"} = 0; + $info {$stocks,"errormsg"} = "$stocks retrieval not supported."; + next ; + } + + # the stock is a delayed OPCVM + + my $infoelem = ($tree->look_down('id','content-gauche'))[0]; + $infoelem = ($infoelem->look_down('class','TabContenu'))[0]; + + my @rows = $infoelem->look_down('_tag','tr'); + foreach my $i (0..$#rows) { + my $row = $rows[$i]; + unless($row->attr('class')) { + next; + } + + my @cells = $row->look_down('_tag','td'); + my $keytext = ($cells[0])->as_text; + my $valuetext = ($cells[2])->as_text; + + $tempinfo{$keytext} = $valuetext; + } + } + else { my $keys = ($infoclass->look_down('class','t01'))[0]; # this div contains all keys my $data = ($infoclass->look_down('class','t03'))[0]; # this div contains all values my @keys = $keys->look_down('_tag','li'); my @values = $data->look_down('_tag','li'); - my %tempinfo; #holds table data - foreach my $i (0..$#keys) { my $keytext = ($keys[$i])->as_text; my $valuetext = ($values[$i])->as_text; $tempinfo{$keytext} = $valuetext; } + } + foreach my $key (keys %tempinfo) { # print "$key -> $tempinfo{$key}\n"; ASSIGN: for ( $key ) { + # OPCVM + /Valeur liquidative/ && do { + my ($last, $currency) = ($tempinfo{$key} =~ m/(\d*.?\d*)\s*(\w*)/); + $info{$stocks,"last"} = $last; + $info{$stocks,"currency"} = $currency; + }; + /Date/ && do { + $info{$stocks,"date"} = $tempinfo{$key}; + $quoter->store_date(\%info, $stocks, {eurodate => $info{$stocks,"date"}}); + }; + /Variation Veille/ && do { + $info{$stocks,"p_change"}=$tempinfo{$key} + }; + # REGULAR STOCK /Cours/ && do { my ($last, $currency) = ($tempinfo{$key} =~ m/(\d*.?\d*)\(c\)\s*(\w*)/); $info{$stocks,"last"} = $last;