47c47,48
< $CREF_URL = ("
https://www3.tiaa-cref.org/ddata/DownloadData?");
---
> $CREF_URL = ("
http://www.tiaa-cref.org/public/performance/retirement/data/results?");
> #
https://www3.tiaa-cref.org/ddata/DownloadData?");
258a260,273
> my $cbResult = 'cbResults=';
>
> my ($Fsec,$Fmin,$Fhour,$Fmday,$Fmon,$Fyear,$Fwday,$Fyday,$Fisdst) = localtime(time() - 24 * 60 * 60);
> my ($Tsec,$Tmin,$Thour,$Tmday,$Tmon,$Tyear,$Twday,$Tyday,$Tisdst) = localtime(time());
>
> $urlc = $CREF_URL;
> $urlc .= "page=input";
> $urlc .= "&frommonth=" . ($Fmon + 1);
> $urlc .= "&fromday=" . ($Fmday);
> $urlc .= "&fromyear=" . ($Fyear + 1900);
> $urlc .= "&tomonth=" . ($Tmon + 1);
> $urlc .= "&today=" . ($Tmday);
> $urlc .= "&toyear=" . ($Tyear + 1900);
> $urlc .= "&sqlorder=desc&dldformat=1&submit.x=29&submit.y=7";
260,261d274
< # $url = $TIAACREF_URL;
< $urlc = $CREF_URL;
272c285,286
< $urlc .= "f" . $cntc . "=" . $tiaacref_vals{$fund} . "&";
---
> $urlc .= "&fundid" . $tiaacref_vals{$fund} . "=" . $tiaacref_vals{$fund};
> $cbResult .= ($cntc > 1) ? ( "%2C" . $tiaacref_vals{$fund}) : ($tiaacref_vals{$fund})
283,284c297
< $urlc .= "days=1";
< $urlc .= "&dldformat=1";
---
> $urlc .= "&$cbResult";
300a314
>
302c316,319
< foreach (split('\012',$qdata) ){
---
> foreach (split(/<br .>/,$qdata) ){
> next unless m/.+,.+/;
> s/^ +//g;
> s/ +$//g;
303a321
>
RT for rt.cpan.org