<?
	define( "__WEBSTATS_VERSION__", '0.0.3' );
	// 0.0.3
	// adding option of html page caching.  If there is an updated html page for today, 
	// just use that page, don't bother checking anything else.
	
	// 0.0.2
	// now builds entire directory structure from the xml/webstats through year/month and webstats.xml
	// previously did not build the last year and month of directory structure
	
	// 0.0.1
	// now copies just the month we're looking for, not the entire year we're looking for, 
	// so it doesn't build the entire year's directory structure...oop!  need to add stuff that
	// builds the complete directory structure manually...
	
	// 0.0.0
	// It Works!  No apparent bugs or anything!
	
	// generic webstats PHP file
	include_once( "/home/httpd/php_include/xml/SablotHack.class" );
	
	// determined statically here
	$vhosts = "/home/httpd/vhosts";
	$xml_server_ip = "littlejohn.blueridgedigital.net";
	$xml_server_user = "webstats";
	$xml_server_basedir = "/var/lib/local/webstats/xml";
	$xml_dir = xml_directory();
	$webstats_dir = $xml_dir . '/webstats';
	// default files are all stored here
	$WEBSTATS = "/home/httpd/vhosts/webstats";
	$gif_images_url = "http://www.blueridgedigital.net/images/webstats";
	// make sure we have a cascading style sheet in place
	check_css();
	// css is necessary for the $gif_color to work.
	$gif_color = get_gif_color();
	if ( !$gif_color ) {
		$gif_color = "gray";
	}

	$top_x_items = get_top_x_items();
	if ( !$top_x_items ) {
		$top_x_items = 5;
	}
	
	// what domain are we under
	$domain = base_domain( $HTTP_SERVER_VARS['SERVER_NAME'] );
	$subdomain = sub_domain( $HTTP_SERVER_VARS['SERVER_NAME'] );
	$domainname = $HTTP_SERVER_VARS['SERVER_NAME'];
	
	if ( !$subdomain ) {
		$subdomain = "www";
	}
	
	// get the month and year passed by user input
	$month = $HTTP_GET_VARS['month'];
	$year = $HTTP_GET_VARS['year'];
	
	// if we are not supplied with a month and year, use the current
	// month and year
	$current_year = date( "Y" );
	$current_month = date("m");
	if ( !$year ) {
		$year = $current_year;
	}
	if ( !$month ) {
		$month = $current_month;
	}
	$month_text = get_month_text( $month );
	
	// next_month and next_year for navigation
	$next_month = $month + 1;
	$next_year = $year;
	if ( $next_month == 13 ) {
		$next_month = 1;
		$next_year++;
	}
	if ( $next_month > $current_month && $next_year >= $current_year ) {
		$next_month = '';
		$next_year = '';
	}
	
	// ditto for prev_month and prev_year
	$prev_month = $month - 1;
	$prev_year = $year;
	if ( $prev_month < 1 ) {
		$prev_month = 12;
		$prev_year--;
	}
	
	// prep the webstats directory (make sure it exists)
	prep_webstats( $domain, $subdomain );
	$xmlfile = "";
	$cachefile = "";
	if ( $subdomain && $subdomain != "www" ) {
		$xmlfile = $vhosts .'/'.$domain.'/xml/webstats/'.$subdomain.'/'.$year.'/'.substr('00'.$month, -2).'/webstats.xml';
		$cachefile = $vhosts .'/'.$domain.'/xml/webstats/'.$subdomain.'/'.$year.'/'.substr('00'.$month, -2).'/webstats.html';
	} else {
		$xmlfile = $vhosts .'/'.$domain.'/xml/webstats/www/'.$year.'/'.substr('00'.$month, -2).'/webstats.xml';
		$cachefile = $vhosts .'/'.$domain.'/xml/webstats/www/'.$year.'/'.substr('00'.$month, -2).'/webstats.html';
	}
	
	// now find the xsl file
	//if ( $subdomain != "www" ) {
	//	$xslfile = $vhosts .'/'.$subdomain.'.'.$domain.'/xml/webstats/webstats.xsl';
	//} else {
	//	$xslfile = $vhosts .'/'.$domain.'/xml/webstats/webstats.xsl';
	//}
	
	// if this user doesn't have an xsl file of their own, use the global default
	// this is the most likely item
	if ( !file_exists( $xslfile ) ) {
		$xslfile = $WEBSTATS."/webstats.xsl";
	}
	
	// update forced because xml file doesn't exist
	if ( !file_exists( $xmlfile )) {
		update_webstats( $domain, $subdomain, $year, $month );
	} else {
		// check the modification date of the xml file
		// if the file is older than today, copy a new version 
		// over
		// also need to see if the xslfile has been modified
		$today = date('Ymd');
		clearstatcache();
		$xml_date = date('Ymd', filemtime($xmlfile));
		clearstatcache();
		$xsl_date = date('Ymd', filemtime($xslfile));
		
		//print "\n<!- comparing lastmtime: " . $lastmtime . " to today: " . $today . "-->\n";
		// if xml file or xsl file is newer than the cache file, redo it
		// if the xml file is older than today (yesterday's file) update it
		if ( $xml_date < $today ) {
			update_webstats( $domain, $subdomain, $year, $month );
		}
	}
	
	// if we have no data, redirect to the 'no data' xml file so we don't fry the xslt processor
	// no_data.xml file specific to this user
	if ( !file_exists( $xmlfile ) ) {
		$xmlfile = $vhosts .'/'.$domain.'/xml/webstats/nodata.xml';
		$cachefile = "";
	}
	
	// generic no_data.xml file for everyone
	if ( !file_exists( $xmlfile ) ) {
		$xmlfile = $WEBSTATS."/nodata.xml";
	}
	
	// now we decide whether or not to update the cachefile, or just send it out
	clearstatcache();
	if ( file_exists( $cachefile ) ) {
		$cache_lastmtime = filemtime( $cachefile );
		$cache_date = date('Ymd', filemtime($cachefile));
	} else {
		$cache_lastmtime = '0';
		$cache_date = '19700101';
	}
	clearstatcache();
	$xml_lastmtime = filemtime( $xmlfile );
	clearstatcache();
	$xsl_lastmtime = filemtime($xslfile);
	$now = time();
	// we already know what today is

	//print "\n<!- comparing lastmtime: " . $lastmtime . " to today: " . $today . "-->\n";
	// if there is no cache file, the cache hasn't been updated today, the xmlfile is newer, or the xsl file is newer
	// update the stored cache of information
	if ( !file_exists( $cachefile ) || ( $cache_date < $today ) || $xml_lastmtime > $cache_lastmtime || $xsl_lastmtime > $cache_lastmtime ) {
		// rebuild our html data from xml/xsl information
		
		// build the xml navigation data for this page
		$xmldata = "<?xml version='1.0'?>\n";
		$xmldata .= "    <document>\n";
		$xmldata .= "        <xmlfile>" . $xmlfile . "</xmlfile>\n";
		$xmldata .= "        <next_month>" . $next_month . "</next_month>\n";
		$xmldata .= "        <next_year>" . $next_year . "</next_year>\n";
		$xmldata .= "        <prev_month>" . $prev_month . "</prev_month>\n";
		$xmldata .= "        <prev_year>" . $prev_year . "</prev_year>\n";
		$xmldata .= "        <current_month>" . $month . "</current_month>\n";
		$xmldata .= "        <current_month_text>" . $month_text . "</current_month_text>\n";
		$xmldata .= "        <current_year>" . $year . "</current_year>\n";
		$xmldata .= "        <gif_images_url>" . $gif_images_url . "</gif_images_url>\n";
		$xmldata .= "        <gif_color>" . $gif_color . "</gif_color>\n";
		$xmldata .= "        <domain>".$domain."</domain>\n";
		$xmldata .= "        <domainname>" . $domainname . "</domainname>\n";
		$xmldata .= "        <top_x_items>" . $top_x_items . "</top_x_items>\n";
		$xmldata .= "    </document>\n";
		
		// dump the data out to a log file for debugging
		//dump_xml( "/var/log/httpd/xml_dump.log", $xmldata );
		
		// parse xml/xsl and send the output to the browser (duh!)
		//print "<!-- final xml file " . $xmlfile . " -->\n";
		//print "<!-- final xsl file " . $xslfile . " -->\n";
		$sablot = new SablotHack();
		$html = $sablot->parse_xml( $xslfile, $xmldata );
		// save the cachefile
		if ( $cachefile ) {
			$fh = fopen( $cachefile, 'w' );
			if ( $fh ) {
				fputs( $fh, $html );
				fclose( $fh );
			}
		}
	} else {
		// just spit out the cached html file
		$html = join( "\n", file( $cachefile ) );
	}
	
	print $html;
	exit;
	
	// functions (don't bother looking)
	function get_month_text( $month_int = 0 ) {
		if ( !$month_int ) {
			return $month_int;
		}
		
		$months_array = array( 'January', 
						 'February', 
						 'March', 
						 'April', 
						 'May', 
						 'June', 
						 'July', 
						 'August', 
						 'September', 
						 'October', 
						 'November', 
						 'December' );
		$month_text = $months_array[$month_int - 1];
		if ( !$month_text ) {
			$month_text = $month_int;
		}
		return $month_text;
	}
	
	function get_top_x_items() {
		$directory = dirname( __FILE__ );
		$css = $directory .'/webstats.css';
		
		if ( !file_exists( $css ) ) {
			return 5;
		}
		
		$array = file( $css );
		
		foreach ( $array as $line ) {
			if ( preg_match( '/\<!--\s+top_x_items\=(\w+)\s+--\>/', $line, $matches ) ) {
				if ( $matches[1] ) {
					return $matches[1];
				}
			}
		}
		return 5;
	}
	
	function get_gif_color() {
		$directory = dirname( __FILE__ );
		$css = $directory .'/webstats.css';
		
		if ( !file_exists( $css ) ) {
			return;
		}
		
		$array = file( $css );
		
		foreach ( $array as $line ) {
			if ( preg_match( '/\<!--\s+gif_color\=(\w+)\s+--\>/', $line, $matches ) ) {
				if ( $matches[1] ) {
					return $matches[1];
				}
			}
		}
		return;
	}
	
	function check_css() {
		global $WEBSTATS;
		
		$directory = dirname( __FILE__ );
		$css = $directory.'/webstats.css';
		
		if ( !file_exists( $css ) ) {
			// need to copy the default css into place
			copy( $WEBSTATS.'/webstats.css', $css );
		}
	}
	
	function dump_xml( $filename = "", $xml = "" ) {
		if ( !$filename ) {
			return;
		}
		$fh = fopen( $filename, "w" );
		if ( $fh ) {
			fputs( $fh, $xml );
			fputs( $fh, "\n" );
			fclose( $fh );
		}
	}
	
	function prep_xml( $domain = "", $subdomain = "" ) {
		global $vhosts;
		$xml = $vhosts . '/' . $domain . '/xml';
		
		if ( !file_exists($xml) ) {
			mkdir( $xml, 0700 );
		}
	}
	
	function prep_webstats( $domain = "", $subdomain = "" ) {
		global $vhosts;
		
		prep_xml( $domain, $subdomain );
		
		$webstats = $vhosts . '/' . $domain . '/xml/webstats';
		
		if ( !file_exists( $webstats ) ) {
			mkdir( $webstats, 0700 );
		}
		
		if ( file_exists( $webstats ) && !file_exists( $webstats.'/www') ) {
			mkdir( $webstats.'/www', 0700 );
		}
		
		if ( $subdomain && $subdomain != 'www' ) {
			if ( file_exists( $webstats ) && !file_exists( $webstats.'/'.$subdomain) ) {
				mkdir( $webstats.'/'.$subdomain, 0700 );
			}
		}
		
		if ( !file_exists( $webstats ) || !file_exists( $webstats.'/www') ) {
			return 0;
		}
		return 1;
	}

	function prep_year_dir( $domain = "", $subdomain = "", $year = "" ) {
		global $vhosts;

		if ( !$domain || !$subdomain || !$year ) {
			return;
		}
		
		$year_dir = $vhosts . '/' . $domain . '/xml/webstats/' . $subdomain . '/' . $year;
		if ( file_exists( $year_dir ) ) {
			return 1;
		}

		mkdir ( $year_dir, 0700 );

		if ( !file_exists( $year_dir ) ) {
			return 0;
		}
		return 1;
	}

	function prep_month_dir( $domain = "", $subdomain = "", $year = "", $month = "" ) {
		global $vhosts;
		
		if ( !$domain || !$subdomain || !$year || !$month ) {
			return;
		}
		
		$year_dir = $vhosts . '/' . $domain . '/xml/webstats/' . $subdomain . '/' . $year;
		$month_dir = $vhosts . '/' . $domain . '/xml/webstats/' . $subdomain . '/' . $year . '/' . substr( '00' . $month, -2 );

		if ( !prep_year_dir( $domain, $subdomain, $year ) ) {
			return;
		}

		if ( file_exists( $month_dir ) ) {
			return 1;
		}

		mkdir ( $month_dir, 0700 );

		if ( !file_exists( $month_dir ) ) {
			return 0;
		}
		return 1;

	}
	
	function update_webstats( $domain = "", $subdomain = "", $year = '', $month = '' ) {
		
		if ( !$domain || !$year || !$month ) {
			return;
		}

		if ( !$subdomain ) {
			$subdomain = "www";
		}
		
		if ( !prep_month_dir( $domain, $subdomain, $year, $month ) ) {
			return;
		}
		
		$cmd = "/usr/local/webstats/update_xml.sh ";
		$param1 = $domain . ' ';
		$param2 = $subdomain . ' ';
		$param3 = $year . ' ';
		$param4 = substr( '00' . $month, -2 );

		$result = exec( $cmd . $param1 . $param2 . $param3 . $param4 );
		return $result;

	}

	function xml_directory( $vhosts = "" ) {
		$cur_dir = dirname( __FILE__ );
		$vhost_dir = "";
		preg_match( '/(' . $vhosts . '\/[\w\d]+\.[\w\d]\/).*/', $cur_dir, $matches );
		if ( $matches[1] ) {
			$vhost_dir = $matches[1];
		}
		
		if ( $vhost_dir ) {
			$vhost_dir .= "xml";
		}
		return $vhost_dir;
	}
	
	function base_domain( $domain = "" ) {
		if ( preg_match( '/^[\w\d\_-]+\.[\w]+$/', $domain ) ) {
			return $domain;
		}
		
		if ( preg_match( '/[\w]+\.([\w\d\_-]+\.[\w]+)/', $domain, $matches ) ) {
			return $matches[1];
		}
		
		return "";
	}
	
	function sub_domain( $domain = "" ) {
		if ( !$domain ) {
			return "";
		}
		
		if ( preg_match( '/([\w]+)\.[\w\d\_-]+\.[\w]+/', $domain, $matches ) ) {
			return $matches[1];
		}
		
		return "";		
	}
?>