Removed unnecessary edit file.

public/class-water-the-theme-public.php~

@@ -102,6 +102,207 @@ class Water_The_Theme_Public {
 	
 	public function water_the_theme($thePage) {
 
+		$doc = new DOMDocument();
+		$doc->loadHTML($thePage);
+		$xml_tree = simplexml_import_dom($doc);
+		
+		$short_code_name = (string)$xml_tree->body->div->attributes()->class;		
+
+		$thePage ="<table id='$short_code_name'>";				
+		
+		// front page	
+		// [usgs_custom name="Timely Information" location='03071590,03071600,03071605' parameters='00010,00065,62614'] 	
+		if ($short_code_name === 'Timely Information') {
+			foreach ($xml_tree->body->div->div as $div) {
+			
+				$value = (string)$div;
+				$class = (string)$div->attributes()->class;		
+
+				$datetime = (string)$div->attributes()->datetime;
+
+				list($sitename, $parameter) = explode(' ', $class);
+				$sitename = ucwords(preg_replace('/_/', ' ', $sitename));
+				$parameter = ucwords(preg_replace('/_/', ' ', $parameter));
+
+				if ($parameter === 'Lake Or Reservoir Water Surface Elevation Above Ngvd 1929') {
+					$parameter = '(AMSL)';
+				}
+				if ($sitename === 'Cheat Lake Near Stewartstown Wv') {
+					if ($parameter === '(AMSL)') {
+						$sitename = 'Lake Level';
+					} else { 
+						$sitename = 'Lake';
+					}				
+				}
+				if ($sitename === 'Cheat River At Lake Lynn Pa') {
+					if ($parameter === 'Gage Height') {
+						$sitename = 'Below Dam';
+					} else {
+						$sitename = 'At Dam';
+					}				
+				}
+				if ($sitename === 'Cheat River At Davidson Pa') {
+					$sitename = 'Below Dam';				
+				}
+
+				$thePage .= '<tr>';
+				$thePage .= "<td>$sitename $parameter</td><td>$value</td><td datetime='$datetime'></td>";
+				$thePage .= '</tr>';				
+				
+			}	
+			
+			//[nws_custom location='lldp1']
+			$att = [
+						'name' => 'Timely Information',
+						'location' => 'lldp1',
+						'parameters' => null,
+						'date_range' => 'current',
+						'order' => 'asc'
+					];			
+			
+			$nws_custom = Water_The_Theme_Public::nws_custom($att);			
+			
+			$thePage .= $nws_custom;			
+			
+		} // end Timely Information
+			
+		// Statics Page - last 5 lake data
+		// [usgs_custom name="Statistics" location='03071590,03071600' parameters='00010,00065,62614' date_range='previous,5,16:00' order='desc'] 		
+		if ($short_code_name === 'Statistics') {
+
+			$statistics = [];			
+			
+			foreach ($xml_tree->body->div->div as $div) {
+			
+				$value = (string)$div;
+				$class = (string)$div->attributes()->class;		
+
+				$datetime = (string)$div->attributes()->datetime;
+
+				list($sitename, $parameter) = explode(' ', $class);
+				$sitename = ucwords(preg_replace('/_/', ' ', $sitename));
+				$parameter = ucwords(preg_replace('/_/', ' ', $parameter));
+
+				if ($parameter === 'Lake Or Reservoir Water Surface Elevation Above Ngvd 1929') {
+					$parameter = '(AMSL)';
+				}
+				if ($sitename === 'Cheat Lake Near Stewartstown Wv') {
+					if ($parameter === '(AMSL)') {
+						$sitename = 'Lake Level';
+					} else { 
+						$sitename = 'Lake';
+					}				
+				}
+				if ($sitename === 'Cheat River At Lake Lynn Pa') {
+					$sitename = 'Tail Race Level';
+					$parameter = ' (AMSL)';				
+				}
+				if ($sitename === 'Cheat River At Davidson Pa') {
+					$sitename = 'Below Dam';				
+				}
+	
+				if ($sitename === 'Tail Race Level') {
+					$value = (float)$value + 776.63;				
+				}
+				$statistics[] = "<tr><td>$sitename $parameter</td><td>$value</td><td datetime='$datetime'></td></tr>";		
+				
+				//PC::debug($value . " " . $sitename . " " . $parameter);	
+			} // end foreach
+			
+			list($array1, $array2, $array3) = array_chunk($statistics, ceil(count($statistics) / 3));
+			foreach($array1 as $key => $value ) {
+				$thePage .= $array2[$key];				
+				$thePage .= $array3[$key];				
+				$thePage .= $value;
+			}
+
+			//PC::debug($count);	
+						
+		}	// end Statistics	
+		
+		$thePage .= '</table>';
+		return $thePage;
+	
+	} // function water the theme
+	
+	public function nws_custom( $att ) {
+			
+		
+		list($name, $location, $parameters, $date_range, $order) = [
+																				$att['name'],
+																				$att['location'],
+																				$att['parameters'],
+																				$att['date_range'],
+																				$att['order']
+																			];
+		$locations = explode(',', $location);
+		
+		// Tail Race Level = Gage Datum + Gage Height
+		foreach ($locations as $location) {
+
+			$thePage = get_transient('nws_custom-' . $name . $location . $date_range . $parameters . $order );
+
+			if ( !$thePage ) {
+			
+			$url = "http://water.weather.gov/ahps2/hydrograph_to_xml.php?gage=$location&output=xml";
+
+			$response = wp_remote_get( $url );
+			$data = wp_remote_retrieve_body( $response );
+
+			if ( ! $data ) {
+				return 'Nation Weather Service is not Responding.';
+			}
+
+
+			$xml_tree = simplexml_load_string( $data );
+			if ( False === $xml_tree ) {
+				return 'Unable to parse NWS XML';
 			}
 			
+			// space to underscore; all lower case; only special character allowed is underscored
+			$SiteName = (string)$xml_tree->attributes()->name;	
+			$SiteName = preg_replace('/[^A-Za-z0-9_]/', '', strtolower(preg_replace('/\s+/', '_', $SiteName)));
+
+			$waterlevel = (string)$xml_tree->zerodatum;								
+					
+			$c = 0;			
+			foreach ( $xml_tree->observed->datum as $datum ) {
+					
+				// in javascript this works out of the box (* 1000)
+				$datetime = strtotime($datum->valid) * 1000;
+				$gageheight = $datum->primary;
+				$waterflow = (string)$datum->secondary;
+				
+				if ($waterflow === '-999' || $waterflow === 0) {
+					$waterflow = '0 cfs';						
+				} else {
+					$waterflow = $waterflow * 1000;	
+					$waterflow = $waterflow . " cfs";					
+				}
+						
+				$tail_race_level = (float)$waterlevel + (float)$gageheight;
+
+				if($c === 0 && $date_range === 'current') {
+					$thePage .= "<tr><td>Tail Race Level (AMSL)</td><td>$tail_race_level ft</td><td datetime='$datetime'></td></tr>";
+					//$thePage .= "<tr><td>Gage Datum (AMSL)</td><td>$waterlevel ft</td><td datetime='$datetime'></td></tr>";
+					//$thePage .= "<tr><td>Tail Water Flow</td><td>$waterflow</td><td datetime='$datetime'></td></tr>";
+					break;			
+				} else {
+					$thePage .= "<tr><td>Tail Race Level (AMSL)</td><td>$tail_race_evel</td><td datetime='$datetime'></td></tr>";
+					//$thePage .= "<tr><td>Gage Datum (AMSL)</td><td>$waterlevel ft</td><td datetime='$datetime'></td></tr>";
+					//$thePage .= "<tr><td>Tail Water Flow</td><td>$waterflow</td><td datetime='$datetime'></td></tr>";				
+				}				
+				$c++;			
+					
+			} // foreach xml_tree as site data		
+			
+		} // foreach NWS location		
+
+
+		set_transient( 'nws_custom-' . $name . $location . $date_range . $parameters . $order, $thePage, 60 * 15 );
+		}
+
+		return $thePage;
+	}	// function nws_custom	
+
 }