<?php if (!defined('PmWiki')) exit();

/*  Copyright 2005 Christophe David (www.christophedavid.org)
    This file is CurrentVisitors.php; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published
    by the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This script makes it easy to show how may visitors have been browsing
    your site (or a given group or a given page) during the n last seconds.

    To use this script, simply copy it into the cookbook/ directory
    and add the following line to config.php or a per-page/per-group
    customization file.

        include_once('cookbook/CurrentVisitors.php');


    ----

    June 9th 2007 edited by Angelo Beck (http://becko.tabletop-minis.de)
    Added the following variables:

    (:MaxCurrentVisitors:) 	displays the maximum number of visitors online at
    						the same time.

    (:MaxCurrentVisitorsTime:)
    						displays the time when the maximum of visitors
    						was reached.

	Sep 26th 2007 edited by Angelo Beck
	Minor Bugfix
*/

################################################################################

SDV($MaximumNumberOfSecondsToConsiderAVisitorAsCurrent, 2100);
SDV($CurrentVisitorsDirectory, "$WorkDir/CurrentVisitors");

################################################################################
################################################################################
################################################################################

define(CURRENT_VISITORS, '1.23');

$NumberOfCurrentVisitors = 0;

if ($action == 'browse')
   {
   if (   (is_dir($CurrentVisitorsDirectory) == true)
       || (mkdirp($CurrentVisitorsDirectory) == true)
      )
      {
      # create a 0 byte file or update the timestamp of an existing one
      $FileName = $CurrentVisitorsDirectory . '/' . preg_replace('/[^0-9]/', '_', $_SERVER['REMOTE_ADDR']);
      touch($FileName);

      # cleanup too old files and count how many remain
      if (($DirectoryHandle = opendir($CurrentVisitorsDirectory)) == true)
         {
         $TimeNow = time();
         while (($file = readdir($DirectoryHandle)) == true)
            {
             if(!(is_dir($file) || $file==".." || $file=="maxvisitors.count"))
               {
               $FileFullPath = $CurrentVisitorsDirectory . '/' . $file;
               $FileStat     = stat($FileFullPath);
               $FileAge      = $TimeNow - $FileStat[9];

               if ($FileAge > $MaximumNumberOfSecondsToConsiderAVisitorAsCurrent)
                  {
		          unlink($FileFullPath);
                  }
               else
                  {
		  		  $NumberOfCurrentVisitors++;
                  }
               }
            }
         closedir($DirectoryHandle);
         }
      }

      # Store MaxCurrentVisitors
      $pagename = ResolvePageName($pagename);
	  $maxcurrentvisitorscounterfile = FmtPageName('$CurrentVisitorsDirectory/maxvisitors.count', $pagename);

	  # get the current $MaxVisitorsUserCount from the File
	  $fp = @fopen($maxcurrentvisitorscounterfile, 'r');
	  if ($fp) {
	      $MaxCurrentVisitorsCount = intval(fgets($fp));
	      fclose($fp);
 	  }

	  # save new $MaxCurrentVisitorsCount into the file
	  if ($NumberOfCurrentVisitors > $MaxCurrentVisitorsCount) {
			  $MaxCurrentVisitorsCount = $NumberOfCurrentVisitors;
			  if (($fp = @fopen($maxcurrentvisitorscounterfile, 'w'))) {
				  fputs($fp,$MaxCurrentVisitorsCount);
				  fclose($fp);
			  }
	  }

 	  # get the time when max visitors online
 	  $MaxCurrentVisitorsCountFileStat = stat($maxcurrentvisitorscounterfile);
      $MaxCurrentVisitorsCountTime     = strftime($TimeFmt, $MaxCurrentVisitorsCountFileStat[9]);

   }

Markup('MaxCurrentVisitors', 'fulltext', "/\(:MaxCurrentVisitors:\)/", $MaxCurrentVisitorsCount);
Markup('MaxCurrentVisitorsTime', 'fulltext', "/\(:MaxCurrentVisitorsTime:\)/", $MaxCurrentVisitorsCountTime);
Markup('CurrentVisitors', 'fulltext', "/\(:CurrentVisitors:\)/", $NumberOfCurrentVisitors);

################################################################################
?>