CALM/) {
$windspeed = "Calm";
}
elsif (/wxicons\/52\/(\d+).png.*class="obsTextA">(.+)<\/strong/) {
$skyCondition = $2; #Text
$forecastIcon[0] = $1; #Date
$forecastIcon[1] = $1; #Current
}
elsif (/wxicons\/52\/(\d+).gif.*
(.+)<\/B><\/TD>/) {
$skyCondition = $2; #Text
$forecastIcon[0] = $1; #Date
$forecastIcon[1] = $1; #Current
}
elsif (/>(\d+.\d+) \;in..*\/(.*)_pressure/) { #Bar. pressure value
$pressureIN = $1;
$pressureMB = $1 * 33.8639;
$pressureMB = int($pressureMB + .5 * ($pressureMB <=> 0)); #Funky round
if ($2 eq 'steady') {
$pressureT = '~';
}
elsif ($2 eq 'down') {
$pressureT = '-';
}
else {
$pressureT = '+';
}
}
elsif (/>(\d+.\d+) \;in./) { #Bar. pressure value
$pressureIN = $1;
$pressureMB = $1 * 33.8639;
$pressureMB = int($pressureMB + .5 * ($pressureMB <=> 0)); #Funky round
}
elsif (/up_pressure/) { #Bar. pressure trend
$pressureT = '+';
}
elsif (/steady_pressure/) { #Bar. pressure trend
$pressureT = '~';
}
elsif (/down_pressure/) { #Bar. pressure trend
$pressureT = '-';
}
elsif (/(\d+)°\;F<\/td>/) { #Dew point
$dewpointF = $1;
$dewpointC = FtoC($dewpointF);
}
elsif (/Dew Point:<\/div>(-?\d+)°\;F/) { #Dew point
$dewpointF = $1;
$dewpointC = FtoC($1);
}
elsif (/ (\d+)° F<\/nobr><\/font><\/td>/) {
if ($temptype == 0) { #Fahrenheit
push(@forecastTemps, $1);
}
else { #Celsius
my $temp = ($1-32)*5/9;
$temp = int($temp + .5 * ($temp <=> 0)); #Funky round
push(@forecastTemps, $temp);
}
}
elsif (/wxicons\/31\/(\d+).gif/) {
push(@forecastIcon, $1);
}
elsif (/(.+)<\/font><\/td>/) {
push(@skyConditions, $1);
}
elsif (/(.+)
/) {
push(@forecastTypes, uc($1));
}
elsif (/class="whiteArialLink11">(.+)<\/font><\/B><\/A>/) {
push(@forecastNames, $1);
}
elsif (/(.+ )(\d+)(F|s)(.*\.+)/) {
my $tempSymbol;
my $firstHalf;
#Temperature will either be a specific number (50F) or a group (50s)
if ($3 eq 'F') {
$tempSymbol = '°';
}
else {
$tempSymbol = 's';
}
if ($temptype == 0) { #Fahrenheit
$firstHalf = $1 . $2 . $tempSymbol;
#push(@forecastDescs, $1 . $2 . $tempSymbol . $4 . $wind . $7);
}
else { #Celsius
my $temp = ($2-32)*5/9;
$temp = int($temp + .5 * ($temp <=> 0)); #Funky round
$firstHalf = $1 . $temp . $tempSymbol;
#push(@forecastDescs, $1 . $temp . $tempSymbol . $4 . $wind . $7);
}
if ($4 =~ /(.*at )(\d+) to (\d+) mph(.*\.+)/) { #Wind portion
my $wind;
if ($windspeedUnit== 0) { #miles/hr
$wind = $2 . ' to ' . $3 . ' mph';
}
elsif ($windspeedUnit == 1) { #km/hr
my $wind1;
my $wind2;
$wind1 = $2*1.609344;
$wind1 = int($wind1 + .5 * ($wind1 <=> 0)); #Funky round
$wind2 = $3*1.609344;
$wind2 = int($wind2 + .5 * ($wind2 <=> 0)); #Funky round
$wind = $wind1 . ' to ' . $wind2 . ' km/hr';
}
elsif ($windspeedUnit == 3) { #m/s
my $wind1;
my $wind2;
$wind1 = $2*16.09344/36;
$wind1 = int($wind1 + .5 * ($wind1 <=> 0)); #Funky round
$wind2 = $3*16.09344/36;
$wind2 = int($wind2 + .5 * ($wind2 <=> 0)); #Funky round
$wind = $wind1 . ' to ' . $wind2 . ' m/s';
}
else { #kt/hr
my $wind1;
my $wind2;
$wind1 = $2/1.1515;
$wind1 = int($wind1 + .5 * ($wind1 <=> 0)); #Funky round
$wind2 = $3/1.1515;
$wind2 = int($wind2 + .5 * ($wind2 <=> 0)); #Funky round
$wind = $wind1 . ' to ' . $wind2 . ' kt';
}
push(@forecastDescs, $firstHalf . $1 . $wind . $4);
}
else { #No wind numbers to convert
push(@forecastDescs, $firstHalf . $4);
}
}
elsif (/blueVerdanaText.*">(\d+%)<\/td>/) { #Precip
if (scalar @precipItems ==0) {
$precipItems[0] = 'PREC '.$1; #Date
$precipItems[1] = 'PREC '.$1; #Current
$precipItems[2] = 'PREC '.$1;
}
else {
push(@precipItems, 'PREC '.$1);
}
}
elsif (/ (.+\.)/) { #Description didn't parse
$::d_plugins && msg("SuperDateTime: Error parsing weather forecast desc. \nTEXT:" . $1 . "\n");
push(@forecastDescs, $1 . '*');
}
}
my @minmax = ();
if ($show_averages) {
if ($forecastNames[0] ne $averages{'last'}) {
$::d_plugins && msg("SuperDateTime: Average data refresh started.\n");
# average data is out of date, refresh
getAverages(0); # for today/tonight
getAverages(1); # for tomorrow/tomorrow night
$averages{'last'} = $forecastNames[0];
}
for (my $i = 0; $i <= $#forecastNames; $i++) {
$minmax[$i] = "";
my $name = $forecastNames[$i];
sub buildMinMax {
my ($average, $record, $record_year, $forecast) = @_;
if (!$average || !$record || !$record_year || !$forecast) {
return "";
}
if ($temptype != 0) { #!Fahrenheit
my $average = FtoC($average);
my $record = FtoC($record);
my $forecast = FtoC($forecast);
}
my $diff = $forecast - $average;
if ($diff > 0) {
$diff = "+$diff"; # force a leading +
}
return " (${diff}°) (${record}° $record_year)"
}
if ($name eq 'Today') {
$minmax[$i] = buildMinMax($averages{0}{'average_high_F'},
$averages{0}{'record_high_F'},
$averages{0}{'record_high_year'},
$forecastTemps[$i]);
} elsif ($name eq 'Tonight') {
$minmax[$i] = buildMinMax($averages{0}{'average_low_F'},
$averages{0}{'record_low_F'},
$averages{0}{'record_low_year'},
$forecastTemps[$i]);
} elsif ($name eq 'Tomorrow') {
$minmax[$i] = buildMinMax($averages{1}{'average_high_F'},
$averages{1}{'record_high_F'},
$averages{1}{'record_high_year'},
$forecastTemps[$i]);
} elsif ($name eq 'Tomorrow Night') {
$minmax[$i] = buildMinMax($averages{1}{'average_low_F'},
$averages{1}{'record_low_F'},
$averages{1}{'record_low_year'},
$forecastTemps[$i]);
} else {
$::d_plugins && msg("SuperDateTime: ERROR, unknown name: $name\n");
}
}
}
#Draw/cache icons for each top line mode
my $hilow;
# Top location *0 and 1*
if ($forecastTypes[0] eq "LOW") {
$hilow = ' LOW ';
}
else {
$hilow = $forecastTypes[0].' ';
}
clearCanvas($client);
drawIcon($client,0,$ymax{$client}-1, $Icons[$Iconmap{$forecastIcon[0]}]);
drawText($client,42,$ymax{$client}-25,$precipItems[0]);
drawText($client,42,$ymax{$client}-13,$hilow.$forecastTemps[0].'g');
$btmLinePreSpace[0] = $iconPreSpace;
$forecastG[0] = getFramebuf($client,$gxwidth); #Date
$forecastG[1] = $forecastG[0]; #Current
#push(@TOPdisplayItems, Slim::Utils::Misc::longDateF()); #Long date
push(@TOPdisplayItems, Slim::Utils::DateTime::longDateF(undef,Slim::Utils::Prefs::get('dateFormat')));
push(@TOPdisplayItems, 'Currently: '.$skyCondition); #Current conditions
$btmLinePreSpace[0] = $iconPreSpace;
$btmLinePreSpace[1] = $iconPreSpace;
# Top location *2*
clearCanvas($client);
drawIcon($client,0,$ymax{$client}-1, $Icons[$Iconmap{$forecastIcon[2]}]);
drawText($client,42,$ymax{$client}-25,$precipItems[2]);
drawText($client,42,$ymax{$client}-13,$hilow.$forecastTemps[0].'g');
$forecastG[2] = getFramebuf($client,$gxwidth);
push(@TOPdisplayItems, $forecastNames[0].': '.$skyConditions[0].$minmax[0]);
$btmLinePreSpace[2] = $iconPreSpace;
# Top location *3*
if ($forecastTypes[1] eq "LOW") {
$hilow = ' LOW ';
}
else {
$hilow = $forecastTypes[1].' ';
}
clearCanvas($client);
drawIcon($client,0,$ymax{$client}-1, $Icons[$Iconmap{$forecastIcon[3]}]);
drawText($client,42,$ymax{$client}-25,$precipItems[3]);
drawText($client,42,$ymax{$client}-13,$hilow.$forecastTemps[1].'g');
$forecastG[3] = getFramebuf($client,$gxwidth);
push(@TOPdisplayItems, $forecastNames[1].': '.$skyConditions[1].$minmax[1]);
$btmLinePreSpace[3] = $iconPreSpace;
# Top location *4*
if ($forecastTypes[2] eq "LOW") {
$hilow = ' LOW ';
}
else {
$hilow = $forecastTypes[2].' ';
}
clearCanvas($client);
drawIcon($client,0,$ymax{$client}-1, $Icons[$Iconmap{$forecastIcon[4]}]);
drawText($client,42,$ymax{$client}-25,$precipItems[4]);
drawText($client,42,$ymax{$client}-13,$hilow.$forecastTemps[2].'g');
$forecastG[4] = getFramebuf($client,$gxwidth);
push(@TOPdisplayItems, $forecastNames[2].': '.$skyConditions[2].$minmax[2]);
$btmLinePreSpace[4] = $iconPreSpace;
# Top location *5*
#Custom top line with icon
my $weatherString1t = $weatherFormat1t;
for ($weatherString1t) {
s/%t/$temperatureF°/;
s/%T/$temperatureC°/;
s/%w/$windspeed/;
s/%h/$humidity/;
s/%p/$pressureIN$pressureT/;
s/%P/$pressureMB$pressureT/;
s/%d/$dewpointF°/;
s/%D/$dewpointC°/;
s/%f/$feelslikeF°/;
s/%F/$feelslikeC°/;
}
push(@TOPdisplayItems, $weatherString1t);
$forecastG[5] = $forecastG[1]; #Custom line forecast is same as current conditions
$btmLinePreSpace[5] = $iconPreSpace;
# Icon but no 3line text
# Top location *6 and 7*
if ($forecastTypes[0] eq "LOW") {
$hilow = ' LOW ';
}
else {
$hilow = $forecastTypes[0].' ';
}
clearCanvas($client);
drawIcon($client,0,$ymax{$client}-1, $Icons[$Iconmap{$forecastIcon[0]}]);
$btmLinePreSpace[6] = $iconPreSpace;
$forecastG[6] = getFramebuf($client,$gxwidth); #Date
$forecastG[7] = $forecastG[6]; #Current no 3line
#push(@TOPdisplayItems, Slim::Utils::Misc::longDateF()); #Long date
push(@TOPdisplayItems, Slim::Utils::DateTime::longDateF(undef,Slim::Utils::Prefs::get('dateFormat')));
push(@TOPdisplayItems, 'Currently: '.$skyCondition); #Current conditions
$btmLinePreSpace[6] = $icon2PreSpace;
$btmLinePreSpace[7] = $icon2PreSpace;
# Top location *8*
clearCanvas($client);
drawIcon($client,0,$ymax{$client}-1, $Icons[$Iconmap{$forecastIcon[2]}]);
$forecastG[8] = getFramebuf($client,$gxwidth);
push(@TOPdisplayItems, $forecastNames[0].': '.$skyConditions[0].$minmax[0]);
$btmLinePreSpace[8] = $icon2PreSpace;
# Top location *9*
if ($forecastTypes[1] eq "LOW") {
$hilow = ' LOW ';
}
else {
$hilow = $forecastTypes[1].' ';
}
clearCanvas($client);
drawIcon($client,0,$ymax{$client}-1, $Icons[$Iconmap{$forecastIcon[3]}]);
$forecastG[9] = getFramebuf($client,$gxwidth);
push(@TOPdisplayItems, $forecastNames[1].': '.$skyConditions[1].$minmax[1]);
$btmLinePreSpace[9] = $icon2PreSpace;
# Top location *10*
if ($forecastTypes[2] eq "LOW") {
$hilow = ' LOW ';
}
else {
$hilow = $forecastTypes[2].' ';
}
clearCanvas($client);
drawIcon($client,0,$ymax{$client}-1, $Icons[$Iconmap{$forecastIcon[4]}]);
$forecastG[10] = getFramebuf($client,$gxwidth);
push(@TOPdisplayItems, $forecastNames[2].': '.$skyConditions[2].$minmax[2]);
$btmLinePreSpace[10] = $icon2PreSpace;
# Top location *11*
#Custom top line with no 3line
my $weatherString1t = $weatherFormat1t;
for ($weatherString1t) {
s/%t/$temperatureF°/;
s/%T/$temperatureC°/;
s/%w/$windspeed/;
s/%h/$humidity/;
s/%p/$pressureIN$pressureT/;
s/%P/$pressureMB$pressureT/;
s/%d/$dewpointF°/;
s/%D/$dewpointC°/;
s/%f/$feelslikeF°/;
s/%F/$feelslikeC°/;
}
push(@TOPdisplayItems, $weatherString1t);
clearCanvas($client);
drawIcon($client,0,$ymax{$client}-1, $Icons[$Iconmap{$forecastIcon[0]}]);
$btmLinePreSpace[11] = $icon2PreSpace;
$forecastG[11] = getFramebuf($client,$gxwidth); #Current
#Top lines without icons
# Top location *12*
push(@TOPdisplayItems, $forecastNames[0].': '.$skyConditions[0].' - '.$forecastTypes[0].' '.$forecastTemps[0].'°'.$minmax[0]);
# Top location *13*
push(@TOPdisplayItems, $forecastNames[1].': '.$skyConditions[1].' - '.$forecastTypes[1].' '.$forecastTemps[1].'°'.$minmax[1]);
# Top location *14*
push(@TOPdisplayItems, $forecastNames[2].': '.$skyConditions[2].' - '.$forecastTypes[2].' '.$forecastTemps[2].'°'.$minmax[2]);
# Top location *15*
push(@TOPdisplayItems, $weatherString1t); #Custom top line, no icon
@WETdisplayItems2 = ();
push(@WETdisplayItems2, $forecastDescs[0]);
push(@WETdisplayItems2, $forecastDescs[1]);
push(@WETdisplayItems2, $forecastDescs[2]);
if ($wunderIdent eq "") {
$weatherString1b = $weatherFormat1b;
for ($weatherString1b) {
s/%t/$temperatureF°/;
s/%T/$temperatureC°/;
s/%w/$windspeed/;
s/%h/$humidity/;
s/%p/$pressureIN$pressureT/;
s/%P/$pressureMB$pressureT/;
s/%d/$dewpointF°/;
s/%D/$dewpointC°/;
s/%f/$feelslikeF°/;
s/%F/$feelslikeC°/;
}
$weatherString2b = $weatherFormat2b;
for ($weatherString2b) {
s/%t/$temperatureF°/;
s/%T/$temperatureC°/;
s/%w/$windspeed/;
s/%h/$humidity/;
s/%p/$pressureIN$pressureT/;
s/%P/$pressureMB$pressureT/;
s/%d/$dewpointF°/;
s/%D/$dewpointC°/;
s/%f/$feelslikeF°/;
s/%F/$feelslikeC°/;
}
$weatherString2t = $weatherFormat2t;
for ($weatherString2t) {
s/%t/$temperatureF°/;
s/%T/$temperatureC°/;
s/%w/$windspeed/;
s/%h/$humidity/;
s/%p/$pressureIN$pressureT/;
s/%P/$pressureMB$pressureT/;
s/%d/$dewpointF°/;
s/%D/$dewpointC°/;
s/%f/$feelslikeF°/;
s/%F/$feelslikeC°/;
}
}
$refreshCounter--;
checkRefreshStatus();
}
sub getWunderground { #Set up Async HTTP request for Weather
my $url = 'http://www.wunderground.com/weatherstation/WXDailyHistory.asp?ID=' . $wunderIdent . '&format=1';
my $http = Slim::Networking::SimpleAsyncHTTP->new(\&gotWunderground,
\&gotErrorViaHTTP,
{caller => 'getWunderground'});
$::d_plugins && msg("SuperDateTime: async request: $url\n");
$http->get($url);
}
sub gotWunderground { #Weather data was received
my $http = shift;
my $temperatureF;
my $temperatureC;
my $dewpointF;
my $dewpointC;
my $humidity;
my $pressureIN;
my $pressureMB;
my $pressureT; #Pressure trend
my $windspeed;
my $winddir; #Wind from direction
$::d_plugins && msg("SuperDateTime: got " . $http->url() . "\n");
my $content = $http->content();
my @ary=split /\n/,$content; #break large string into array
#$::d_plugins && msg("WU DATA: ".$ary[scalar(@ary)-3]."\n");
if($ary[scalar(@ary)-3] =~ /.*,(.*),(.*),(.*),(.*),.*,(.*),.*,(.*),.*,(.*),(.*),.*,.*,/) {
$temperatureF = $1;
$temperatureC = FtoC($temperatureF);
$dewpointF = $2;
$dewpointC = FtoC($dewpointF);
$pressureIN = $3;
$pressureMB = $3 * 33.8639;
$pressureMB = int($pressureMB + .5 * ($pressureMB <=> 0)); #Funky round
if ($5==0) {
$windspeed = "Calm";
}
else {
$winddir = $4;
if ($winddir eq "South") {
$winddir = "S";
}
elsif ($winddir eq "North") {
$winddir = "N";
}
elsif ($winddir eq "East") {
$winddir = "E";
}
elsif ($winddir eq "West") {
$winddir = "W";
}
if ($windspeedUnit == 0) { #miles/hr
$windspeed = $winddir . $5;
}
elsif ($windspeedUnit == 1) { #km/hr
$windspeed = $5*1.609344;
$windspeed = $winddir . int($windspeed + .5 * ($windspeed <=> 0)); #Funky round
}
elsif ($windspeedUnit == 3) { #m/s
$windspeed = $5*16.09344/36;
$windspeed = $winddir . int($windspeed + .5 * ($windspeed <=> 0)); #Funky round
}
else { #kt/hr
$windspeed = $5/1.1515;
$windspeed = $winddir . int($windspeed + .5 * ($windspeed <=> 0)); #Funky round
}
}
$humidity = $6 . '%';
#Current conditions is 7, clouds 8
}
$weatherString1b = $weatherFormat1b;
for ($weatherString1b) {
s/%t/$temperatureF°/;
s/%T/$temperatureC°/;
s/%w/$windspeed/;
s/%h/$humidity/;
s/%p/$pressureIN$pressureT/;
s/%P/$pressureMB$pressureT/;
s/%d/$dewpointF°/;
s/%D/$dewpointC°/;
}
$weatherString2b = $weatherFormat2b;
for ($weatherString2b) {
s/%t/$temperatureF°/;
s/%T/$temperatureC°/;
s/%w/$windspeed/;
s/%h/$humidity/;
s/%p/$pressureIN$pressureT/;
s/%P/$pressureMB$pressureT/;
s/%d/$dewpointF°/;
s/%D/$dewpointC°/;
}
$weatherString2t = $weatherFormat2t;
for ($weatherString2t) {
s/%t/$temperatureF°/;
s/%T/$temperatureC°/;
s/%w/$windspeed/;
s/%h/$humidity/;
s/%p/$pressureIN$pressureT/;
s/%P/$pressureMB$pressureT/;
s/%d/$dewpointF°/;
s/%D/$dewpointC°/;
}
$refreshCounter--;
checkRefreshStatus();
}
sub getStocks { #Set up Async HTTP request for Stocks
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $offset = $timeoffset;
while ($offset != 0) {
if ($offset >0) {
$offset = $offset -1;
$hour = $hour -1;
if ($hour == -1) {
$hour = 23;
$wday--;
}
}
else {
$offset = $offset +1;
$hour = $hour +1;
if ($hour == 24) {
$hour = 0;
$wday++;
}
}
}
#Market hours #After market hours but no market data from the day
if (($stocks ne "" && $wday >0 && $wday <6 && $hour <18 && $hour >8)|| ($stocks ne "" && $wday >0 && $wday <6 && $hour >17 && (scalar @STKdisplayItems1 == 0))) { #Make sure stocks data is needed. Update from 9am to 5pm.
my $url = 'http://finance.yahoo.com/d/quotes.csv?s=' . $stocks . '&f=sl1d1t1c1ohgvpn&e=.csv';
my $http = Slim::Networking::SimpleAsyncHTTP->new(\&gotStocks,
\&gotErrorViaHTTP,
{caller => 'getStocks'});
$::d_plugins && msg("SuperDateTime: async request: $url\n");
$http->get($url);
}
else {
$refreshCounter--;
checkRefreshStatus();
if ($hour <9 || $wday == 0 || $wday == 6) {
#Make sure stock arrays are empty
@STKdisplayItems1 = ();
@STKdisplayItems2 = ();
@STKdisplayIntervals = ();
}
}
}
sub gotStocks { #Stock data was received
my $http = shift;
@STKdisplayItems1 = ();
@STKdisplayItems2 = ();
@STKdisplayIntervals = ();
$::d_plugins && msg("SuperDateTime: got " . $http->url() . "\n");
my $content = $http->content();
my @ary=split /\n/,$content; #break large string into array
#$::d_plugins && msg("STOCK DATA: ".$ary[0]."\n");
for (@ary) {
if(/"(.*)",(.*),"(.*)","(.*)",(.*),(.*),(.*),(.*),(.*),(.*),"(.*)"/) {
my $ticker;
my $name;
my $lasttrade;
my $lastdate;
my $lasttime;
my $change;
my $open;
my $high;
my $low;
my $volume;
my $prev;
my $pchange;
$ticker = $1;
$lasttrade = Slim::Utils::Misc::delimitThousands($2);
$lastdate = $3;
$lasttime = $4;
$change = $5;
$open = Slim::Utils::Misc::delimitThousands($6);
$high = Slim::Utils::Misc::delimitThousands($7);
$low = Slim::Utils::Misc::delimitThousands($8);
$volume = $9;
$prev = Slim::Utils::Misc::delimitThousands($10);
if ($volume >1000000) {
$volume = $volume / 1000000;
$volume = sprintf("%.2f", $volume);
$volume = Slim::Utils::Misc::delimitThousands($volume);
$volume = $volume . 'M';
}
else {
$volume = Slim::Utils::Misc::delimitThousands($volume);
}
if ($ticker eq "^IXIC") { #Volume is not reported for Nasdaq composite
$volume = '';
}
if ($10 > 0) {
$pchange = ($5/$10)*100;
$pchange = sprintf("%.2f%", $pchange);
}
$name = $11;
my $line1 = $stockFormat1;
my $line2 = $stockFormat2;
for ($line1) {
s/%s/$ticker/;
s/%l/$lasttrade/;
s/%d/$lastdate/;
s/%t/$lasttime/;
s/%c/$change/;
s/%o/$open/;
s/%h/$high/;
s/%w/$low/;
s/%v/$volume/;
s/%n/$name/;
s/%p/$prev/;
s/%z/$pchange/;
}
for ($line2) {
s/%s/$ticker/;
s/%l/$lasttrade/;
s/%d/$lastdate/;
s/%t/$lasttime/;
s/%c/$change/;
s/%o/$open/;
s/%h/$high/;
s/%w/$low/;
s/%v/$volume/;
s/%n/$name/;
s/%p/$prev/;
s/%z/$pchange/;
}
push(@STKdisplayItems1, $line1);
push(@STKdisplayItems2, $line2);
push(@STKdisplayIntervals, 5);
}
}
$refreshCounter--;
checkRefreshStatus();
}
sub refreshSoon { #Disabled for now
my $client = shift;
#Clear previous display info
#What about clearing line 1?
@MLBdisplayItems2 =();
@NFLdisplayItems2 =();
@CBBdisplayItems2 =();
@CFBdisplayItems2 =();
@NBAdisplayItems2 =();
@NHLdisplayItems2 =();
@WETdisplayItems2 =();
@STKdisplayItems1 =();
@STKdisplayItems2 =();
@MLBdisplayIntervals =();
@NFLdisplayIntervals =();
@CBBdisplayIntervals =();
@CFBdisplayIntervals =();
@NBAdisplayIntervals =();
@NHLdisplayIntervals =();
@STKdisplayIntervals = ();
#No need to refresh data unless there are active clients
if ($activeClients >0) {
Slim::Utils::Timers::killTimers(undef, \&refreshData);
#Refresh in 7 seconds. Ensures settings are updated...
Slim::Utils::Timers::setTimer(undef, Time::HiRes::time() + 7, \&refreshData, $client);
}
}
sub refreshData {
$::d_plugins && msg("SuperDateTime: Data refresh in progress...\n");
my $timerObj = shift; #Should be undef
my $client = shift;
$errorCount = 0; #Reset network error counter for new refresh
#Update status indicator to show that a data refresh is in progress
$status = '*';
$refreshCounter = 9; #Counter to keep track of how many items could be refreshing
my $refreshDelay = 1.5; #Number of seconds to space inbetween timers to prevent hangs.
my $cumlativeDelay = Time::HiRes::time() + $refreshDelay; #Incrementer for spacing timers.
#Is this okay since old data is still being displayed?
$newActiveGames = 0; #Reset active game flag for upcoming sports data refresh
#Use timers to spread load to prevent server hangs
#Weather.com
Slim::Utils::Timers::setTimer(undef, $cumlativeDelay, \&getWeather, $client);
#Do we need to take into account $isdst??? How do we figure out if East Coast is observing if located in timezone that doesnt observe?
my ($mday,$mon,$year,$hour, $isdst) = (gmtime(time-(60*60*4)))[3,4,5,2,8]; #Figure out EST based on GMT time
if ($mday < 10) {
$mday = '0' . $mday;
}
$mon++; #Starts at 0
if ($mon < 10) {
$mon = '0' . $mon;
}
$year = $year + 1900;
$::d_plugins && msg("SuperDateTime: Eastern Hour/Date:$hour/$mday\n");
if ((($lastRefresh ne ($year . $mon . $mday)) && $hour >4) || $lastRefresh eq '') { #5AM EST start refreshing a new day
@refreshTracker = ();
$refreshTracker[0] = 1; #Need to refresh MLB again
$refreshTracker[1] = 1; #Need to refresh NBA again
$refreshTracker[2] = 1; #Need to refresh NHL again
$lastRefresh = $year.$mon.$mday;
}
#WUnderground
if ($wunderIdent ne "") { #Make sure wunderground data is needed
$cumlativeDelay = $cumlativeDelay + $refreshDelay;
Slim::Utils::Timers::setTimer(undef, $cumlativeDelay, \&getWunderground);
}
else {
$refreshCounter--;
}
#MLB
if (scalar(@MLBteams)>0 && $mon <11 && $mon >3 && $refreshTracker[0] !=0) { #Make sure a baseball team is chosen and its baseball season
$cumlativeDelay = $cumlativeDelay + $refreshDelay;
Slim::Utils::Timers::setTimer(undef, $cumlativeDelay, \&getMLB, $client);
}
else {
$refreshCounter--;
}
#NFL
if (scalar(@NFLteams)>0) { #Make sure a NFL team is chosen
$cumlativeDelay = $cumlativeDelay + $refreshDelay;
Slim::Utils::Timers::setTimer(undef, $cumlativeDelay, \&getNFL, $client);
}
else {
$refreshCounter--;
}
#NBA
if (scalar(@NBAteams)>0 && $refreshTracker[1] !=0) { #Make sure a basketball team is chosen
$cumlativeDelay = $cumlativeDelay + $refreshDelay;
Slim::Utils::Timers::setTimer(undef, $cumlativeDelay, \&getNBA);
}
else {
$refreshCounter--;
}
#NHL
if (scalar(@NHLteams)>0 && $refreshTracker[2] !=0) { #Make sure a hockey team is chosen
$cumlativeDelay = $cumlativeDelay + $refreshDelay;
Slim::Utils::Timers::setTimer(undef, $cumlativeDelay, \&getNHL);
}
else {
$refreshCounter--;
}
#CBB
if ((scalar(@CBBteams)>0) && ($cbballconf ne '0')) { #Make sure a college basketball team is chosen
$cumlativeDelay = $cumlativeDelay + $refreshDelay;
Slim::Utils::Timers::setTimer(undef, $cumlativeDelay, \&getCBB);
}
else {
$refreshCounter--;
}
#CFB
if (scalar(@CFBteams)>0 && ($cfballconf ne '0')) { #Make sure a team is chosen
$cumlativeDelay = $cumlativeDelay + $refreshDelay;
Slim::Utils::Timers::setTimer(undef, $cumlativeDelay, \&getCFB, $client);
}
else {
$refreshCounter--;
}
#Stocks --Has more complex logic, leave this way for now...
$cumlativeDelay = $cumlativeDelay + $refreshDelay;
Slim::Utils::Timers::setTimer(undef, $cumlativeDelay, \&getStocks);
Slim::Utils::Timers::killTimers(undef, \&refreshData); #Paranoia check
Slim::Utils::Timers::setTimer(undef, Time::HiRes::time() + ($refreshint * 60), \&refreshData, $client);
checkRefreshStatus(); #See if anything is still refreshing...
}
sub checkRefreshStatus {
if ($newActiveGames == 1) {
$activeGames = 1;
}
if ($refreshCounter == 0) { #Data refresh complete
if ($status eq '*') {
$::d_plugins && msg("SuperDateTime: Data refresh completed.\n");
$status = '';
}
else {
$::d_plugins && msg("SuperDateTime: Data refresh completed with errors.\n");
}
$activeGames = $newActiveGames;
}
}
sub getMLB { #Set up Async HTTP request for MLB
my $timerObj = shift; #Should be undef
my $client = shift;
#my $url ='http://sports.espn.go.com/mlb/scoreboard?date=20060404';
my $url = 'http://scores.espn.go.com/mlb/scoreboard?date=' . $lastRefresh;
#my $url = 'http://sports-ak.espn.go.com/mlb/scoreboard/printable/scoreboard_1_0_0?date=' . $year . $mon . $mday;
my $http = Slim::Networking::SimpleAsyncHTTP->new(\&gotMLB,
\&gotErrorViaHTTP,
{caller => 'getMLB',
client => $client});
$::d_plugins && msg("SuperDateTime: async request: $url\n");
$http->get($url);
}
sub gotMLB {
my $http = shift;
my $params = $http->params();
my $client = $params->{'client'};
@MLBdisplayItems1 = ();
@MLBdisplayItems2 = ();
@MLBdisplayIntervals = ();
@divideMLB = ();
$refreshTracker[0] = 0;
$::d_plugins && msg("SuperDateTime: got " . $http->url() . "\n");
#$::d_plugins && msg("SuperDateTime: content type is " . $http->headers()->{'Content-Type'} . "\n");
my $content = $http->content();
#my @ary=split /teamTop/,$content; #break large string into array of games
@divideMLB = split /teamTop/,$content; #break large string into array of games
Slim::Utils::Timers::killTimers(undef, \&processMLB); #Just in case there's a rogue timer
Slim::Utils::Timers::setTimer(undef, Time::HiRes::time() + .1, \&processMLB, $client);
}
sub processMLB {
$::d_plugins && msg("SuperDateTime: Processing MLB game...\n");
my $timerObj = shift; #Should be undef
my $client = shift;
my $line = pop @divideMLB;
my @todaysGames = split /\n/, $line; #break down to speed up regexp processing
for (@todaysGames) {
if (/>(\d+:\d+ .?M ET)<.+class="teamLine".+\d+">(.+)<\/a>.+teamLine".+id=\d+">(.+)<\/a><\/strong>/) { #Upcoming game
#my $gametime = $1; my $team1 = $2; my $team2 = $3;
if ((teamCheck($2, \@MLBteams)==1) || (teamCheck($3, \@MLBteams)==1)) {
MLBdisplayLines($client,$1, $2, $3, '', '');
}
}
elsif (/\d">(.+)<\/td><\/tr> (.+)<\/a><\/strong>.+teamLine".+id=\d+">(.+)<\/a><\/strong>.+awayRunsTotal.+".*>(\d+)<\/td>(\d+)<\/td> 0) {
#Slim::Utils::Timers::killTimers(undef, \&processMLB); #No way there are any right!?!?
Slim::Utils::Timers::setTimer(undef, Time::HiRes::time() + .1, \&processMLB, $client);
}
else {
$refreshCounter--;
checkRefreshStatus();
}
}
sub teamCheck {
my $teamToCheck = shift;
my $teamArrayRef = shift;
#Get rid of any ranking, if present (college).
if ($teamToCheck =~ /(\(\d+\)) (.+)/) {
$teamToCheck = $2;
}
my $endingValue = scalar(@$teamArrayRef);
for(my $counter=0 ; $counter < $endingValue; $counter++)
{
if (($teamToCheck eq @$teamArrayRef[$counter]) || (@$teamArrayRef[$counter] eq '1') || (@$teamArrayRef[$counter] eq 'All') || (@$teamArrayRef[$counter] eq 'all')) {
return 1;
}
}
return 0;
}
sub MLBdisplayLines {
#Figure out/Format display lines
my ($client, $MLBgametime, $MLBteam1, $MLBteam2, $MLBscore1, $MLBscore2) = @_;
$MLBgametime = convertTime($MLBgametime); #Clean up time display and convert to local time zone
my $team1 = '';
my $team2 = '';
if ($teamLogos == 0) { #No logos
$team1 = shortenMLB($MLBteam1);
$team2 = shortenMLB($MLBteam2)
}
elsif ($teamLogos == 1) { #Logo no text
if (defined $MLBmap{$MLBteam1}) { #Are there logos for team1?
$team1 = $client->symbols('mlb-'.$MLBmap{$MLBteam1});
}
else { #No logo available
$team1 = shortenMLB($MLBteam1);
}
if (defined $MLBmap{$MLBteam2}) { #Are there logos for team2
$team2 = $client->symbols('mlb-'.$MLBmap{$MLBteam2});
}
else { #No logo available
$team2 = shortenMLB($MLBteam2);
}
}
else { #Logo and text
if (defined $MLBmap{$MLBteam1}) { #Are there logos for team1?
$team1 = $client->symbols('mlb-'.$MLBmap{$MLBteam1});
}
if (defined $MLBmap{$MLBteam2}) { #Are there logos for team2
$team2 = $client->symbols('mlb-'.$MLBmap{$MLBteam2});
}
$team1 = $team1 . shortenMLB($MLBteam1);
$team2 = $team2 . shortenMLB($MLBteam2);
}
if ($MLBscore1 eq '' && $showgame>0) { #upcoming game
$refreshTracker[0] = 1;
push(@MLBdisplayItems1, 'MLB');
push(@MLBdisplayItems2, $team1 . ' @ ' . $team2 . '-' . $MLBgametime);
push(@MLBdisplayIntervals, $showgame);
}
elsif ($MLBgametime eq 'F' && $showgame>0) { #Finished game
push(@MLBdisplayItems1, 'MLB');
push(@MLBdisplayItems2, $team1 . ' ' . $MLBscore1 . ' @ ' . $team2 . ' ' . $MLBscore2 . ' -' . $MLBgametime);
push(@MLBdisplayIntervals, $showgame);
}
elsif ($MLBgametime ne 'F' && $showactivegame >0 && $MLBscore1 ne '') { #active game
$refreshTracker[0] = 1;
$newActiveGames = 1;
push(@MLBdisplayItems1, 'MLB');
push(@MLBdisplayItems2, $team1 . ' ' . $MLBscore1 . ' @ ' . $team2 . ' ' . $MLBscore2 . ' -' . $MLBgametime);
push(@MLBdisplayIntervals, $showactivegame);
}
}
sub getNBA { #Set up Async HTTP request for NBA
#my $url ='http://sports.espn.go.com/nba/scoreboard?date=20050623';
#my $url = 'http://sports.espn.go.com/nba/scoreboard?date=' . $year . $mon . $mday;
my $url = 'http://sports.espn.go.com/nba/scoreboard?date=' . $lastRefresh;
my $http = Slim::Networking::SimpleAsyncHTTP->new(\&gotNBA,
\&gotErrorViaHTTP,
{caller => 'getNBA'});
$::d_plugins && msg("SuperDateTime: async request: $url\n");
$http->get($url);
}
sub gotNBA {
@NBAdisplayItems1 = ();
@NBAdisplayItems2 = ();
@NBAdisplayIntervals = ();
$refreshTracker[1] = 0;
my $team1 = '';
my $team2 = '';
my $gametime = '';
my $team1score ='';
my $team2score ='';
my $http = shift;
#my $params = $http->params();
$::d_plugins && msg("SuperDateTime: got " . $http->url() . "\n");
#$::d_plugins && msg("SuperDateTime: content type is " . $http->headers()->{'Content-Type'} . "\n");
my $content = $http->content();
my @ary=split /\n/,$content; #break large string into array
for (@ary) {
if (/.+-clock">(.+)<\/div><\/div> (\d+)<\/div> (.*)<\/a><\/div><\/div> | |