[GNC] When will there be a new Finance::Quote version on CPAN?

[Eric Coates]

Hi

I am about to expose my ignorance - sensitive people should look away now!

I have found the file referred to (I think); on my Ubuntu system I found 
it at

~/.cpan/build/Finance-Quote-1.47-JrEF3h/lib/Finance/quote

The last few lines of the file are:

           # divide USD quotes by 100 if suffix is '.IL'
                 if ( ($suffix eq '.IL') && ($info{$stock,'currency'} eq 
'USD') ) {
                     foreach my $field ( 
$quoter->default_currency_fields ) {
                         next unless ( $info{ $stock, $field } );
                         $info{ $stock, $field } =
                             $quoter->scale_field( $info{ $stock, $field },
                                                   0.01 );
                     }
                 }
             }
         }
         else {
             $info{ $stock, 'currency' } = 'USD';
         }

         $info{ $stock, "currency_set_by_fq" } = 1;

         $quantity--;
         select(undef, undef, undef, .7) if ($quantity);
     }

     return wantarray() ? %info : \%info;
}

Unfortunately I am completely ignorant of Perl (I guess that's what it 
is). Could you please indicate exactly where the 'sleep 15' should be 
entered. And, if it's to be indented, is the indentation done with 
spaces or tabs and is the number of spaces/tabs critical.

Many thanks

Eric

And, because I enjoy coincidences, , best wishes from the Soar Valley - 
the Soar being our local river

============================

On 30/11/2018 04:50, nvsoar wrote:
> On 11/29/18 19:36, Mike Alexander wrote:
>>> On Nov 27, 2018, at 6:26 PM, John Ralls 
>>> <jralls at ceridwen.fremont.ca.us> wrote:
>>>
>>> Not here. It’s up to Erik Colson.
>> Who has been asking for help on the finance-quote list.  If you have 
>> Perl experience and want to volunteer, that would be helpful.
>>
>>          Mike
>
> FWIW - I made a similar query last October.  Two suggestions were 
> offered; use YahooJson as a quote source; or modify AlphaVantage.pm in 
> the FinanceQuote folder; (for Windows - in 
> C:\strawberry\perl\site\lib\Finance\Quote\)
>
> Ameet Sengar's modification suggestion is to add 'sleep(15)' as the 
> last line of the 'foreach' loop.  The text of his message is below.  
> If I remember correctly, the AlphaVantage.pm file is read only; change 
> that attribute before attempting to modify.  Restore the read only 
> attribute after modification.
>
> All the best from the Carson Valley,
> nvsoar
>
> _______________________________________________
> gnucash-user mailing list
> gnucash-user at gnucash.org
> To update your subscription preferences or to unsubscribe:
> https://lists.gnucash.org/mailman/listinfo/gnucash-user
> If you are using Nabble or Gmane, please see 
> https://wiki.gnucash.org/wiki/Mailing_Lists for more information.
> -----
> Please remember to CC this list on all your replies.
> You can do this by using Reply-To-List or Reply-All.