sub cbcWeatherHandler { $html = shift; $type = shift; $type = shift; # This is very temp .. until I get a good solution for # removing the "noSymbolTable" flag ... hmmm maybe a # separate function ! $format = shift; my( @rValue ) = (); my( $done ) = 0; my( $cTable, $entry ); my( $textForecast ); my( $count ); print "---------------------- CBC Weather Handler ($type $format) ----------------------\n"; print "html: $html\n"; #exit; if( $type =~ /text/i ) { if( $html =~ /
.*?Environment Canada Weather Forecast.*?(Issued.*?)
/gsi ) { #print "Found the text forcast: $1\n"; $textForecast = $1; } # condition it a bit ... $textForecast =~ s/
" ); # Strip off the table formatting ... we'll add our own later $entry =~ s/ |