Update Tasks for Rain

Sep-29 2:59 am - Pre-Check reported no need to retrieve from forecast.weather.gov


(PRScheduledTaskExamples newForKernelNamed: 'Pier') reportCheck: [ :page | (PRPathLookup start: (PRKernel instanceNamed: 'Pier') root path: '/John Borden/Todo/Water Lawn') due < Date tomorrow ] thenRetrieveLink: 'https://forecast.weather.gov/MapClick.php?lat=40.0832&lon=-88.2938#.X0QOPy2ZPVo' using: [ :string | | index shortWeather waterTask | index := string indexOfSubCollection:  'id="seven-day-forecast-body"'. (index between: 10000 and: string size - 1000) ifFalse: [ 'Error: Seven day forcast not found' ] ifTrue: [ shortWeather := string copyFrom: index to: (index + 2000 min: string size). ((#('Chance of precipitation is 7' 'Chance of precipitation is 8' 'Chance of precipitation is 9' '9? percent chance of showers' '9* percent chance of showers' '8* percent chance of showers') contains: [ :str | ('*', str, '*') match: shortWeather ])) ifTrue: [ waterTask := PRPathLookup start: (PRKernel instanceNamed: 'Pier') root path: '/John Borden/Todo/Water Lawn'. waterTask due: waterTask due + 1 day. 'Rain likely today' ] ifFalse: [ 'Rain unlikely' ] ] ] onPageAt: '/John Borden/Todo/Update Tasks for Rain/Report'.