TIAA quote stop working again?

[Mike Alexander]

--On June 2, 2011 2:06:23 PM -0700 arhturk <arhturk at gmail.com> wrote:

> applied the patch to perl
> and it stopped working again :-(

There was a minor glitch over the long weekend in the US.  The TIAA 
script asks the web site for the quotes in the last 2 days and uses the 
most recent one returned.  On Tuesday there were no quotes in the last 
two days because of the holiday and as a result the script failed.  I 
changed my copy to ask for the quotes in the last 10 days and it fixed 
the problem, but waiting until Wednesday would have fixed it too.  If 
you want to fix your copy I've attached the trivial patch.

        Mike
 
-------------- next part --------------
--- /Users/mta/Downloads/Tiaacref.pm	2011-05-31 23:12:29.000000000 -0400
+++ /opt/local/lib/perl5/vendor_perl/5.12.3/Finance/Quote/Tiaacref.pm	2011-05-31 23:12:54.000000000 -0400
@@ -568,9 +568,9 @@
     my $cbResulti = 'cbResults=';
 
     $urlc  = $CREF_URL;
-    $urlc .= "page=input&numdays=2&sqlorder=asc&dldformat=1&submit.x=29&submit.y=7";
+    $urlc .= "page=input&numdays=10&sqlorder=asc&dldformat=1&submit.x=29&submit.y=7";
     $urlci  = $CREF_URL_INST;
-    $urlci .= "page=input&numdays=2&sqlorder=asc&dldformat=1&submit.x=29&submit.y=7";
+    $urlci .= "page=input&numdays=10&sqlorder=asc&dldformat=1&submit.x=29&submit.y=7";
 
     $urlt = $TIAA_URL;
 #Initialize counters for the two types of URL. If either counter is zero, then