Make sure '$inFile' is in this same directory.
"; return; } $showComments = false; if(isset($_REQUEST['comments'])) { $showComments = (strtolower($_REQUEST['comments']) == 'yes')?true:false; } $useBeta = true; if(isset($_REQUEST['beta'])) { $useBeta = (strtolower($_REQUEST['beta']) == 'no')?false:true; } $rawrecs = file($inFile); header("Content-type: text/plain"); print_start(); foreach ($rawrecs as $rec) { /* input: Parameters (Description) Cumulus Tag Variable <#date> The current date <#time> The current time and date. Example result: 18:30 on 30 December 2009. If you simply wish the time, use a combination of the day, month, year tags (below) <#timehhmmss> The current time. Example format: 18:30:27 output: temp|<#temp>|// The outside temperature:|: intemp|<#intemp>|// The inside temperature:|: temptrend|<#temptrend>|// The change in temperature over the last hour:|: temptrendtext|<#temptrendtext>|// Temperature change over the last hour - Rising/Falling/Steady:|: */ preg_match('|^(\S+)\s+<#([^>]+)>\s+(.*)$|i',$rec,$matches); if(!isset($matches[2])) {continue;} if(!$useBeta and $matches[1] == 'beta') {continue; } if($matches[1] == 'omit') {continue; } $ourname = $matches[2]; $descr = $matches[3]; $varname = "<#$ourname>"; if($useBeta and $matches[1] == 'beta') { $ourname = '!'.$ourname; // use ! as beta marker } $comment = ''; if($showComments) { $comment = '|// '.$descr; } print "$ourname|$varname$comment:|:\n"; } print_end(); // end of mainline function print_start() { global $Version,$WXsoftware,$defsFile,$inFile; print ' $line) { list($vname,$vval,$vcomment) = explode("|",trim($line).\'|||\'); if(substr($vname,0,1) == "#") { // continue; // ignore comment records } if(substr($vname,0,1) == "!") { // handle beta tags conditionally if($vval == "") { continue; // skip this one } else { $vname = substr($vname,1); if($vcomment <> "") {$vcomment .= " (Beta)"; } } } if ($vname <> "") { $WX[$vname] = trim($vval); if($vcomment <> "") { $WXComment[$vname] = trim($vcomment); } } $nscanned++; } if(isset($_REQUEST[\'debug\'])) { print "\n"; } if (isset($_REQUEST["sce"]) and strtolower($_REQUEST["sce"]) == "dump" ) { print "\n";
print "// \$WX[] array size = $nscanned entries.\n";
foreach ($WX as $key => $val) {
$t = "\$WX[\'$key\'] = \'$val\';";
if(isset($WXComment[$key])) {$t .= " $WXComment[$key]"; }
print "$t\n";
}
print "\n";
exit;
}
if(file_exists("'.$defsFile.'")) { include_once("'.$defsFile.'"); }
?>';
}