<?
  /*
    RunAProg-Counter Main-PHP-Script V1.3 12.08.2006
    (c) Jürgen Liebenstein 2004-2006 
    Dieses Script ist Copyright geschützt und darf nicht verändert werden und nur im Rahmen
    der Lizenzbedingungen auf http://online.liebenstein.de genutzt werden
    This Script is copyright protected and it is only allowed to use it in order of the
    license you see on http://online.liebenstein.de
  */
  if (isset($_GET["Counter_Site"]))
  {
    $Counter_Site = $_GET["Counter_Site"];
  }
  else
  {
    $Counter_Site = "";
  }
  if (isset($_GET["Counter_Script"]))
  {
    $Counter_Script = $_GET["Counter_Script"];
  }
  else
  {
    $Counter_Script = "";
  }
  if (isset($_GET["Aufruf"]))
  {
    $Aufruf = $_GET["Aufruf"];
  }
  else
  {
    $Aufruf = "";
  }
  if (isset($_GET["Admin"]))
  {
    $Admin = $_GET["Admin"];
  }
  else
  {
    $Admin = "";
  }
  $DOCUMENT_ROOT = $_SERVER["DOCUMENT_ROOT"];
  
  if ((substr($Counter_Site, 0, 7) == "http://") || (substr($Counter_Script, 0, 7) == "http://"))

  {
    $Counter_Site = "";
    $Counter_Script = "";
  }
  
if ($Counter_Site)
{
  $Counter_Dateiname = __FILE__;
  if (strpos($Counter_Dateiname, "\\"))
    $Counter_Dateiname = str_replace("\\", "/", $Counter_Dateiname);
  $Counter_Pfad_Pos = 0;
  while ((!strpos($Counter_Dateiname, substr($DOCUMENT_ROOT, $Counter_Pfad_Pos))) && ($Counter_Pfad_Pos < strlen($DOCUMENT_ROOT)))
  {
    $Counter_Pfad_Pos++;
  }
  $Counter_Pfad_Start = strpos($Counter_Dateiname, substr($DOCUMENT_ROOT, $Counter_Pfad_Pos));
  $Counter_Dateiname = substr($Counter_Dateiname, $Counter_Pfad_Start + strlen(substr($DOCUMENT_ROOT, $Counter_Pfad_Pos)));
  if (($Counter_Dateiname == $_SERVER["SCRIPT_NAME"]) || ($Counter_Dateiname == substr($_SERVER["SCRIPT_NAME"], 1)))
  {
    //Script
    //$Counter_Pfad = substr($_SERVER["SCRIPT_FILENAME"], strlen($DOCUMENT_ROOT));
    //$Counter_Orig_Pfad = $_SERVER["HTTP_REFERER"];
    //$Counter_Pos = strpos($Counter_Orig_Pfad, "//");
    //if ($Counter_Pos) $Counter_Orig_Pfad = substr($Counter_Orig_Pfad, $Counter_Pos + 2);
    //$Counter_Pos = strpos($Counter_Orig_Pfad, "/");
    //if ($Counter_Pos) $Counter_Orig_Pfad = substr($Counter_Orig_Pfad, $Counter_Pos);
    $Counter_Neuer_Pfad = $_SERVER["REQUEST_URI"];
    $Counter_Pos = strpos($Counter_Neuer_Pfad, "/Counter.php");
    if ($Counter_Pos)
      $Counter_Neuer_Pfad = substr($Counter_Neuer_Pfad, 0, $Counter_Pos + 1);
    $Counter_Art = 1;
  }
  else
  {
    //PHP-Include
    $Counter_Pfad = $Counter_Dateiname;
    $Counter_Orig_Pfad = $_SERVER["SCRIPT_NAME"];
    $Counter_Art = 2;
    while (substr($Counter_Pfad, 0, 2) == "//")
    {
      $Counter_Pfad = substr($Counter_Pfad, 1);
    }
    while (substr($Counter_Orig_Pfad, 0, 2) == "//")
    {
      $Counter_Orig_Pfad = substr($Counter_Orig_Pfad, 1);
    }
    $Counter_Pfad_Teile = explode("/", $Counter_Pfad);
    $Counter_Pfad_Teile_Anzahl = count($Counter_Pfad_Teile) - 1;
    $Counter_Orig_Pfad_Teile = explode("/", $Counter_Orig_Pfad);
    $Counter_Orig_Pfad_Teile_Anzahl = count($Counter_Orig_Pfad_Teile) - 1;
    $Counter_Neuer_Pfad = "";
    $Counter_Index = 0;
    while (($Counter_Orig_Pfad_Teile[$Counter_Index] == $Counter_Pfad_Teile[$Counter_Index]) && ($Counter_Index + 1 < $Counter_Orig_Pfad_Teile_Anzahl)  && ($Counter_Index + 1 < $Counter_Pfad_Teile_Anzahl))
    {
      $Counter_Index++;
    }
    if ($Counter_Orig_Pfad_Teile[$Counter_Index] != $Counter_Pfad_Teile[$Counter_Index])
    {
      for ($Index = $Counter_Index; $Index < $Counter_Orig_Pfad_Teile_Anzahl; $Index++)
      {
        $Counter_Neuer_Pfad = $Counter_Neuer_Pfad . "../";
      }
    }
    for ($Index = $Counter_Index; $Index < $Counter_Pfad_Teile_Anzahl; $Index++)
    {
      $Counter_Neuer_Pfad = $Counter_Neuer_Pfad . $Counter_Pfad_Teile[$Index] . "/";
    }
  }
  if ($Counter_Art == 2)
  {
    $Counter_Script_Pfad = $Counter_Neuer_Pfad;
    while (substr($Counter_Script_Pfad, 0, 1) == "/")
      $Counter_Script_Pfad = substr($Counter_Script_Pfad, 1);
  }
  else
  {
    $Counter_Script_Pfad = "";
  }
  
  if (!isset($Konfig))
  {
    $Konfig = $Counter_Script_Pfad . "Setting";
  }
  include $Konfig . ".php";
  $Counter_IP = $_SERVER["REMOTE_ADDR"];
  $Counter_Now = explode(" ", microtime());
  $Counter_Now[2] = (double)$Counter_Now[0] + (double)$Counter_Now[1];
  $Counter_Now[3] = intval(date("n"));
  $Counter_Now[4] = intval(date("Y"));
  $Counter_Browser = $_SERVER["HTTP_USER_AGENT"];
  $Counter_Fueller = str_repeat(" ", 255);
  if (!isset($Counter_Pfad))
  {
    $Counter_Pfad = dirname($_SERVER["SCRIPT_NAME"]) . "/";
  }
  
  /*IP laden und prüfen*/
  $Counter_IP_Anzahl = 0;
  $Counter_Gefunden = -1;
  $Counter_Online = 0;
  $Counter_Browser_Allow = 0;
  if (file_exists($Counter_Script_Pfad . $Counter_Datei_IP))
  {
    $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Datei_IP, "r");
    if ($Counter_Handle)
    {
      while ($Counter_Gelesen = fgets($Counter_Handle, 1000))
      {
        $Counter_IP_Spalten = explode("|", $Counter_Gelesen);
        if (intval($Counter_IP_Spalten[2]) + $Counter_Reloadsperre > $Counter_Now[2])
        {
          $Counter_Online++;
          $Counter_IP_Online[0][$Counter_IP_Anzahl] = $Counter_IP_Spalten[0];
          $Counter_IP_Online[1][$Counter_IP_Anzahl] = $Counter_IP_Spalten[1];
          $Counter_IP_Online[2][$Counter_IP_Anzahl] = $Counter_IP_Spalten[2];
          $Counter_IP_Online[3][$Counter_IP_Anzahl] = substr($Counter_IP_Spalten[3], 0, strlen($Counter_IP_Spalten[3]) -1);
          if ($Counter_IP == $Counter_IP_Spalten[0])
          {
            if ($Counter_IP_Online[3][$Counter_IP_Anzahl] == "No")
            {
              $Admin = "No";
              $Counter_Browser_Allow = 2;
            }
            else
            {
              $Counter_Admin_OK = 1;
              if (isset($Counter_Admin[$Admin]))
              {
                if ($Counter_Admin[$Admin] == "OK")
                {
                  $Counter_IP_Online[3][$Counter_IP_Anzahl] = $Admin;
                  $Counter_Admin_OK = 0;
                }
              }
              if ($Counter_Admin_OK == 1)
              {
                $Admin = $Counter_IP_Online[3][$Counter_IP_Anzahl];
                $Counter_Browser_Allow = 1;
                if (isset($Counter_Admin[$Admin]))
                {
                  if ($Counter_Admin[$Admin] == "OK")
                  {
                    $Counter_Browser_Allow = 2;
                  }
                }
              }
            }
            $Counter_IP_Online[2][$Counter_IP_Anzahl] = $Counter_Now[2];
            $Counter_Gefunden = $Counter_IP_Anzahl;
          }
          $Counter_IP_Anzahl++;
        }
      }
      fclose($Counter_Handle);
    }
  }
  
  /*Neuer Eintrag in IP*/
  $Counter_Neue_IP = 0;
  $Counter_IP_Name = "";
  if ($Counter_Gefunden == -1)
  {
    $Counter_Neue_IP = -1;
    $Counter_IP_Name = gethostbyaddr($_SERVER["REMOTE_ADDR"]);
    $Counter_IP_Online[0][$Counter_IP_Anzahl] = $Counter_IP;
    $Counter_IP_Online[1][$Counter_IP_Anzahl] = $Counter_IP_Name;
    $Counter_IP_Online[2][$Counter_IP_Anzahl] = $Counter_Now[2];
    if ((isset($Counter_Admin[$Admin])) && ($Counter_Admin[$Admin] == "OK"))
    {
      $Counter_IP_Online[3][$Counter_IP_Anzahl] = $Admin;
      if (file_exists($Counter_Script_Pfad . $Counter_Admin_Datei[$Admin]))
      {
        $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Admin_Datei[$Admin], "a");
      }
      else
      {
        $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Admin_Datei[$Admin], "w");
      }
      if ($Counter_Handle)
      {
        fputs($Counter_Handle, $Counter_IP . "|" . $Counter_IP_Name . "|" . date("d.m.Y H:i:s", $Counter_Now[2]) . "|\n");
        fclose($Counter_Handle);
      }
      $Counter_Browser_Allow = 2;
    }
    else
    {
      if (file_exists($Counter_Script_Pfad . $Counter_Datei_Browser))
      {
        $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Datei_Browser, "r");
        if ($Counter_Handle)
        {
          $Counter_Browser_Allow = 1;
          while ($Counter_Gelesen = fgets($Counter_Handle, 1000))
          {
            if (strpos(" " . $Counter_Browser, substr($Counter_Gelesen, 1)) > 0)
            {
              if (substr($Counter_Gelesen, 0, 1) == "-")
              {
                $Counter_Browser_Allow = 0;
              }
            }
          }
          fclose($Counter_Handle);    
        }
        else
        {
          $Counter_Browser_Allow = 1;
        }
      }
      else
      {
        $Counter_Browser_Allow = 1;
      }
    }
    if ($Counter_Browser_Allow == 0)
    {
      $Counter_IP_Online[3][$Counter_IP_Anzahl] = "No";
    }
    if ($Counter_Browser_Allow == 1)
    {
      $Counter_IP_Online[3][$Counter_IP_Anzahl] = " ";
    }
    $Counter_Gefunden = $Counter_IP_Anzahl;
    $Counter_IP_Anzahl++;
  }

  /*Seite lesen*/
  $Counter_Site_Nr = -1;
  $Counter_Site_Nr_Max = 0;
  $Counter_Site_Anzahl = 0;
  $Counter_Site_Monat_Anzahl = 0;
  $Counter_Site_Position = -1;
  $Counter_Script_Nr = -1;
  $Counter_Script_Nr_Max = 0;
  $Counter_Script_Anzahl = 0;
  $Counter_Script_Monat_Anzahl = 0;
  $Counter_Script_Position = -1;
  $Counter_Unique_Nr = -1;
  $Counter_Unique_Art_Aktuell = 0;
  $Counter_Unique_Anzahl = 0;
  $Counter_Unique_Monat_Anzahl = 0;
  $Counter_Unique_Position = -1;
  $Counter_Unique_Nr_Max = 0;
  if (file_exists($Counter_Script_Pfad . $Counter_Datei_Seite))
  {
    $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Datei_Seite, "r");
    if ($Counter_Handle)
    {
      $Counter_Position = 0;
      while ($Counter_Gelesen = fgets($Counter_Handle, 5000))
      {
        if (strlen($Counter_Gelesen) == 18)
        {
          $Counter_Init_Monat = intval(substr($Counter_Gelesen, 0, 2));
          $Counter_Init_Jahr = intval(substr($Counter_Gelesen, 2, 4));
          $Counter_Last_Jahr = intval(substr($Counter_Gelesen, 6, 4));
          $Counter_Name_Stellen_Akt = intval(substr($Counter_Gelesen, 10, 3));
          $Counter_Gesamt_Stellen_Akt = intval(substr($Counter_Gelesen, 13, 2));
          $Counter_Monat_Stellen_Akt = intval(substr($Counter_Gelesen, 15, 2));
          $Counter_Start_Monat = 12 - $Counter_Init_Monat + 1;
          if ($Counter_Init_Jahr == $Counter_Now[4])
          {
            $Counter_Monat_Pos = $Counter_Now[3] - $Counter_Init_Monat;
          }
          else
          {
            $Counter_Monat_Pos = (13 - $Counter_Init_Monat) + ($Counter_Now[4] - $Counter_Init_Jahr - 1) * 12 + $Counter_Now[3] - 1;
          }
          $Counter_Monat_Anzahl = (13 - $Counter_Init_Monat) + ($Counter_Now[4] - $Counter_Init_Jahr) * 12;
        }
        else
        {
          if (strpos($Counter_Gelesen, $Counter_Site . " ") == 10)
          {
            $Counter_Site_Nr = intval(substr($Counter_Gelesen, 0, 5));
            $Counter_Art_Aktuell = intval(substr($Counter_Gelesen, 5, 5));
            $Counter_Site_Anzahl = intval(substr($Counter_Gelesen, 10 + $Counter_Name_Stellen, $Counter_Gesamt_Stellen));
            $Counter_Site_Monat_Anzahl = intval(substr($Counter_Gelesen, 10 + $Counter_Name_Stellen + $Counter_Gesamt_Stellen + ($Counter_Monat_Pos * $Counter_Monat_Stellen), $Counter_Monat_Stellen));
            $Counter_Site_Position = $Counter_Position;
          }
          else
          {
            if (($Counter_Site_Nr_Max < intval(substr($Counter_Gelesen, 0, 5))) && ($Counter_Site_Position == -1))
            {
              $Counter_Site_Nr_Max = intval(substr($Counter_Gelesen, 0, 5));
            }
          }
          if ($Counter_Script)
          {
            if (strpos($Counter_Gelesen, $Counter_Script . " ") == 10)
            {
              $Counter_Script_Nr = intval(substr($Counter_Gelesen, 0, 5));
              $Counter_Script_Art_Aktuell = intval(substr($Counter_Gelesen, 5, 5));
              $Counter_Script_Anzahl = intval(substr($Counter_Gelesen, 10 + $Counter_Name_Stellen, $Counter_Gesamt_Stellen));
              $Counter_Script_Monat_Anzahl = intval(substr($Counter_Gelesen, 10 + $Counter_Name_Stellen + $Counter_Gesamt_Stellen + ($Counter_Monat_Pos * $Counter_Monat_Stellen), $Counter_Monat_Stellen));
              $Counter_Script_Position = $Counter_Position;
            }
            else
            {
              if (($Counter_Script_Nr_Max < intval(substr($Counter_Gelesen, 0, 5))) && ($Counter_Script_Position == -1))
              {
                $Counter_Script_Nr_Max = intval(substr($Counter_Gelesen, 0, 5));
              }
            }
          }
          if ($Counter_Unique_Position == -1)
          {
            if (strpos($Counter_Gelesen, "Unique_Visitor ") == 10)
            {
              $Counter_Unique_Nr = intval(substr($Counter_Gelesen, 0, 5));
              $Counter_Unique_Art_Aktuell = intval(substr($Counter_Gelesen, 5, 5));
              $Counter_Unique_Anzahl = intval(substr($Counter_Gelesen, 10 + $Counter_Name_Stellen, $Counter_Gesamt_Stellen));
              $Counter_Unique_Monat_Anzahl = intval(substr($Counter_Gelesen, 10 + $Counter_Name_Stellen + $Counter_Gesamt_Stellen + ($Counter_Monat_Pos * $Counter_Monat_Stellen), $Counter_Monat_Stellen));
              $Counter_Unique_Position = $Counter_Position;
            }
            else
            {
              if (($Counter_Unique_Nr_Max < intval(substr($Counter_Gelesen, 0, 5))) && ($Counter_Unique_Position == -1))
              {
                $Counter_Unique_Nr_Max = intval(substr($Counter_Gelesen, 0, 5));
              }
            }
          }
        }
        $Counter_Position = ftell($Counter_Handle);
      }
      fclose($Counter_Handle);    
    }
    /*Umkopieren*/
    if (($Counter_Name_Stellen_Akt != $Counter_Name_Stellen) || ($Counter_Gesamt_Stellen_Akt != $Counter_Gesamt_Stellen) || ($Counter_Monat_Stellen_Akt != $Counter_Monat_Stellen) || (!$Counter_Init_Monat) || ($Counter_Last_Jahr != $Counter_Now[4]) || (isset($Counter_Init_Monat_Neu)) || (isset($Counter_Init_Jahr_Neu)))
    {
      if (!isset($Counter_Init_Monat_Neu))
      {
        $Counter_Init_Monat_Neu = $Counter_Init_Monat;
      }
      if (!isset($Counter_Init_Jahr_Neu))
      {
        $Counter_Init_Jahr_Neu = $Counter_Init_Jahr;
      }
      include $Counter_Script_Pfad . "Change.php";
    }
  }
  else
  {
    $Counter_Site_Nr = 1;
    $Counter_Init_Monat = $Counter_Now[3];
    $Counter_Init_Jahr = $Counter_Now[4];
    $Counter_Last_Jahr = $Counter_Now[4];
    $Counter_Monat_Pos = 0;
    $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Datei_Seite, "w");
    if ($Counter_Handle)
    {
      $Counter_Ausgabe = sprintf("%02d", $Counter_Init_Monat) . sprintf("%04d", $Counter_Init_Jahr) . sprintf("%04d", $Counter_Last_Jahr);
      $Counter_Ausgabe = $Counter_Ausgabe . sprintf("%03d", $Counter_Name_Stellen) . sprintf("%02d", $Counter_Gesamt_Stellen) . sprintf("%02d", $Counter_Monat_Stellen);
      fputs($Counter_Handle, $Counter_Ausgabe . "\n");
      fclose($Counter_Handle);    
    }
  }
  
  if ($Counter_Browser_Allow == 1)
  {
    if ($Counter_Site_Position == -1)
    {
      $Counter_Site_Nr_Max++;
      $Counter_Site_No = $Counter_Site_Nr_Max;
    }
    else
    {
      $Counter_Site_No = $Counter_Site_Nr;
    }
    if ($Counter_Script_Position == -1)
    {
      $Counter_Script_Nr_Max++;
      if ($Counter_Site_Nr_Max >= $Counter_Script_Nr_Max)
        $Counter_Script_Nr_Max++;
      $Counter_Script_No = $Counter_Script_Nr_Max;
    }
    else
    {
      $Counter_Script_No = $Counter_Script_Nr;
    }
    if ($Counter_Unique_Position == -1)
    {
      $Counter_Unique_Nr_Max++;
      while (($Counter_Site_Nr_Max >= $Counter_Unique_Nr_Max) || ($Counter_Script_Nr_Max >= $Counter_Unique_Nr_Max))
        $Counter_Unique_Nr_Max++;
      $Counter_Unique_No = $Counter_Unique_Nr_Max;
    }
    else
    {
      $Counter_Unique_No = $Counter_Unique_Nr;
    }
    if (!strpos("-" . $Counter_IP_Online[3][$Counter_Gefunden], " " . $Counter_Site_No . " "))
    {
      $Counter_Neue_Seite = 1;
      $Counter_IP_Online[3][$Counter_Gefunden] = $Counter_IP_Online[3][$Counter_Gefunden] . " " . $Counter_Site_No . " ";
      $Counter_Site_Anzahl++;
      $Counter_Site_Monat_Anzahl++;
    }
    else
    {
      $Counter_Neue_Seite = 0;
    }
    $Counter_Script_Anzahl++;
    $Counter_Script_Monat_Anzahl++;
    $Counter_Unique_Anzahl++;
    $Counter_Unique_Monat_Anzahl++;
  }
  
  /*Pruefe E-Mail-Benachrichtigung für bestimmte IPs*/
  $Counter_E_Mail_Anzahl = 0;
  for ($Counter_Index = 0; $Counter_Index <= $Counter_Real_Inform_Anzahl; $Counter_Index++)
  {
    if (strstr($Counter_IP_Name, $Counter_Real_Inform[$Counter_Index]))
    {
      $Counter_E_Mail[$Counter_E_Mail_Anzahl] = $Counter_Real_Inform[$Counter_Index];
      $Counter_E_Mail_Anzahl++;
    }
  }

  /*Seite schreiben*/
  if (($Counter_Browser_Allow == 1) && ($Counter_Neue_Seite == 1))
  {
    if ($Counter_Site_Position == -1)
    {
      $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Datei_Seite, "a+");
    }
    else
    {
      $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Datei_Seite, "r+");
    }
    if ($Counter_Handle)
    {
      if ($Counter_Site_Position == -1)
      {
        $Counter_Ausgabe = sprintf("%05d", $Counter_Site_No) . "    0" . substr($Counter_Site . $Counter_Fueller, 0, $Counter_Name_Stellen) . sprintf("%" . $Counter_Gesamt_Stellen . "d", $Counter_Site_Anzahl);
        for ($Counter_Jahr = $Counter_Init_Jahr; $Counter_Jahr <= $Counter_Last_Jahr; $Counter_Jahr++)
        {
          if ($Counter_Jahr == $Counter_Init_Jahr)
          {
            $Counter_Start_Monat = $Counter_Init_Monat;
          }
          else
          {
            $Counter_Start_Monat = 1;
          }
          for ($Counter_Index = $Counter_Start_Monat; $Counter_Index <= 12; $Counter_Index++)
          {
            if (($Counter_Index == $Counter_Now[3]) && ($Counter_Jahr == $Counter_Last_Jahr))
            {
              $Counter_Ausgabe = $Counter_Ausgabe . sprintf("%" . $Counter_Monat_Stellen . "d", $Counter_Site_Monat_Anzahl);
            }
            else
            {
              $Counter_Ausgabe = $Counter_Ausgabe . str_repeat(" ", $Counter_Monat_Stellen - 1) . "0";
            }
          }
        }
        $Counter_Ausgabe = $Counter_Ausgabe . date("d.m.Y H:i:s", $Counter_Now[2]);
        fputs($Counter_Handle, $Counter_Ausgabe . "\n");
      }
      else
      {
        fseek($Counter_Handle, $Counter_Site_Position + 10 + $Counter_Name_Stellen);
        fputs($Counter_Handle, sprintf("%" . $Counter_Gesamt_Stellen . "d", $Counter_Site_Anzahl), $Counter_Gesamt_Stellen);
        fseek($Counter_Handle, $Counter_Site_Position + 10 + $Counter_Name_Stellen + $Counter_Gesamt_Stellen + $Counter_Monat_Pos * $Counter_Monat_Stellen);
        fputs($Counter_Handle, sprintf("%" . $Counter_Monat_Stellen . "d", $Counter_Site_Monat_Anzahl), $Counter_Monat_Stellen);
        fseek($Counter_Handle, $Counter_Site_Position + 10 + $Counter_Name_Stellen + $Counter_Gesamt_Stellen + $Counter_Monat_Anzahl * $Counter_Monat_Stellen);
        fputs($Counter_Handle, date("d.m.Y H:i:s", $Counter_Now[2]), 19);
      }
      fclose($Counter_Handle);
    }
  }
  
  /*Script schreiben*/
  if ($Counter_Script)
  {
    if (($Counter_Browser_Allow == 1) && (!strpos("-" . $Counter_IP_Online[3][$Counter_Gefunden], " " . $Counter_Script_No . " ")))
    {
      $Counter_IP_Online[3][$Counter_Gefunden] = $Counter_IP_Online[3][$Counter_Gefunden] . " " . $Counter_Script_No . " ";
      if ($Counter_Script_Position == -1)
      {
        $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Datei_Seite, "a+");
      }
      else
      {
        $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Datei_Seite, "r+");
      }
      if ($Counter_Handle)
      {
        if ($Counter_Script_Position == -1)
        {
          $Counter_Ausgabe = sprintf("%05d", $Counter_Script_No) . "    0" . substr($Counter_Script . $Counter_Fueller, 0, $Counter_Name_Stellen) . sprintf("%" . $Counter_Gesamt_Stellen . "d", $Counter_Script_Anzahl);
          for ($Counter_Jahr = $Counter_Init_Jahr; $Counter_Jahr <= $Counter_Last_Jahr; $Counter_Jahr++)
          {
            if ($Counter_Jahr == $Counter_Init_Jahr)
            {
              $Counter_Start_Monat = $Counter_Init_Monat;
            }
            else
            {
              $Counter_Start_Monat = 1;
            }
            for ($Counter_Index = $Counter_Start_Monat; $Counter_Index <= 12; $Counter_Index++)
            {
              if (($Counter_Index == $Counter_Now[3]) && ($Counter_Jahr == $Counter_Last_Jahr))
              {
                $Counter_Ausgabe = $Counter_Ausgabe . sprintf("%" . $Counter_Monat_Stellen . "d", $Counter_Script_Monat_Anzahl);
              }
              else
              {
                $Counter_Ausgabe = $Counter_Ausgabe . str_repeat(" ", $Counter_Monat_Stellen - 1) . "0";
              }
            }
          }
          $Counter_Ausgabe = $Counter_Ausgabe . date("d.m.Y H:i:s", $Counter_Now[2]);
          fputs($Counter_Handle, $Counter_Ausgabe . "\n");
        }
        else
        {
          fseek($Counter_Handle, $Counter_Script_Position + 10 + $Counter_Name_Stellen);
          fputs($Counter_Handle, sprintf("%" . $Counter_Gesamt_Stellen . "d", $Counter_Script_Anzahl), $Counter_Gesamt_Stellen);
          fseek($Counter_Handle, $Counter_Script_Position + 10 + $Counter_Name_Stellen + $Counter_Gesamt_Stellen + $Counter_Monat_Pos * $Counter_Monat_Stellen);
          fputs($Counter_Handle, sprintf("%" . $Counter_Monat_Stellen . "d", $Counter_Script_Monat_Anzahl), $Counter_Monat_Stellen);
          fseek($Counter_Handle, $Counter_Script_Position + 10 + $Counter_Name_Stellen + $Counter_Gesamt_Stellen + $Counter_Monat_Anzahl * $Counter_Monat_Stellen);
          fputs($Counter_Handle, date("d.m.Y H:i:s", $Counter_Now[2]), 19);
        }
        fclose($Counter_Handle);
      }
      $Counter_Handle = fopen($Counter_Script_Pfad . "Script.txt", "a+");
      if ($Counter_Handle)
      {
        fputs($Counter_Handle, date("d.m.Y H:i:s", $Counter_Now[2]) . "; " . $Counter_IP_Name . "; " . $Counter_Browser . "\n");
        fclose($Counter_Handle);
      }
    }
  }

  /*Unique schreiben*/
  if (($Counter_Browser_Allow == 1) && (!strpos("-" . $Counter_IP_Online[3][$Counter_Gefunden], " " . $Counter_Unique_No . " ")))
  {
    $Counter_IP_Online[3][$Counter_Gefunden] = $Counter_IP_Online[3][$Counter_Gefunden] . " " . $Counter_Unique_No . " ";
    if ($Counter_Unique_Position == -1)
    {
      $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Datei_Seite, "a+");
    }
    else
    {
      $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Datei_Seite, "r+");
    }
    if ($Counter_Handle)
    {
      if ($Counter_Unique_Position == -1)
      {
        $Counter_Ausgabe = sprintf("%05d", $Counter_Unique_No) . "    0" . substr("Unique_Visitor" . $Counter_Fueller, 0, $Counter_Name_Stellen) . sprintf("%" . $Counter_Gesamt_Stellen . "d", $Counter_Unique_Anzahl);
        for ($Counter_Jahr = $Counter_Init_Jahr; $Counter_Jahr <= $Counter_Last_Jahr; $Counter_Jahr++)
        {
          if ($Counter_Jahr == $Counter_Init_Jahr)
          {
            $Counter_Start_Monat = $Counter_Init_Monat;
          }
          else
          {
            $Counter_Start_Monat = 1;
          }
          for ($Counter_Index = $Counter_Start_Monat; $Counter_Index <= 12; $Counter_Index++)
          {
            if (($Counter_Index == $Counter_Now[3]) && ($Counter_Jahr == $Counter_Last_Jahr))
            {
              $Counter_Ausgabe = $Counter_Ausgabe . sprintf("%" . $Counter_Monat_Stellen . "d", $Counter_Unique_Monat_Anzahl);
            }
            else
            {
              $Counter_Ausgabe = $Counter_Ausgabe . str_repeat(" ", $Counter_Monat_Stellen - 1) . "0";
            }
          }
        }
        $Counter_Ausgabe = $Counter_Ausgabe . date("d.m.Y H:i:s", $Counter_Now[2]);
        fputs($Counter_Handle, $Counter_Ausgabe . "\n");
      }
      else
      {
        fseek($Counter_Handle, $Counter_Unique_Position + 10 + $Counter_Name_Stellen);
        fputs($Counter_Handle, sprintf("%" . $Counter_Gesamt_Stellen . "d", $Counter_Unique_Anzahl), $Counter_Gesamt_Stellen);
        fseek($Counter_Handle, $Counter_Unique_Position + 10 + $Counter_Name_Stellen + $Counter_Gesamt_Stellen + $Counter_Monat_Pos * $Counter_Monat_Stellen);
        fputs($Counter_Handle, sprintf("%" . $Counter_Monat_Stellen . "d", $Counter_Unique_Monat_Anzahl), $Counter_Monat_Stellen);
        fseek($Counter_Handle, $Counter_Unique_Position + 10 + $Counter_Name_Stellen + $Counter_Gesamt_Stellen + $Counter_Monat_Anzahl * $Counter_Monat_Stellen);
        fputs($Counter_Handle, date("d.m.Y H:i:s", $Counter_Now[2]), 19);
      }
      fclose($Counter_Handle);
      $Counter_Handle = fopen($Counter_Script_Pfad . "Unique.txt", "a+");
      if ($Counter_Handle)
      {
        fputs($Counter_Handle, date("d.m.Y H:i:s", $Counter_Now[2]) . "; " . $Counter_Browser_Allow . "; " . $Counter_Unique_No . "; " . $Counter_Unique_Position . "; " . $Counter_IP_Name . "; " . $Counter_Browser . "\n");
        fclose($Counter_Handle);
      }
    }
  }

  /*Schreibe IP-TXT neu*/
  $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Datei_IP, "w");
  if ($Counter_Handle)
  {
    for ($Counter_Index = 0; $Counter_Index < $Counter_IP_Anzahl; $Counter_Index++)
    {
      fputs($Counter_Handle, $Counter_IP_Online[0][$Counter_Index] . "|" . $Counter_IP_Online[1][$Counter_Index] . "|" . $Counter_IP_Online[2][$Counter_Index] . "|" . $Counter_IP_Online[3][$Counter_Index] . "\n");
    }
    fclose($Counter_Handle);
  }

  /*Ausgabe für Bildschirm*/
  if (isset($Art))
  {
    $Counter_Art_Aktuell = $Art;
  }
  if ($Counter_Art_Anzahl < $Counter_Art_Aktuell)
    $Counter_Art_Aktuell = 0;
  $Counter_Prefix = $Counter_Art_Prefix[$Counter_Art_Aktuell];
  if ((isset($Counter_Admin_Prefix[$Admin])) && ($Counter_Admin_Prefix[$Admin]))
  {
    $Counter_Prefix = $Counter_Admin_Prefix[$Admin];
  }
  $Counter_Suffix = $Counter_Art_Suffix[$Counter_Art_Aktuell];
  if ((isset($Counter_Admin_Suffix[$Admin])) && ($Counter_Admin_Suffix[$Admin]))
  {
    $Counter_Suffix = $Counter_Admin_Suffix[$Admin];
  }
  $Counter_Zahl = $Counter_Site_Anzahl;
  if (strlen($Counter_Zahl) < $Counter_Art_Stellen[$Counter_Art_Aktuell])
  {
    $Counter_Zahl = substr(str_repeat(" ", $Counter_Art_Stellen[$Counter_Art_Aktuell] - strlen($Counter_Zahl)) . $Counter_Zahl, 0);
  }
  $Counter_Ausgabe = "";
  switch ($Counter_Art_Ausgabe[$Counter_Art_Aktuell])
  {
  case 0:
    $Counter_Art_Ausgabe = "";
    break;
  case 1:
    for ($Counter_Index = 0; $Counter_Index < strlen($Counter_Zahl); $Counter_Index++)
    {
      if (substr($Counter_Zahl, $Counter_Index, 1) == " ") 
      {
        $Counter_Ausgabe = $Counter_Ausgabe . "<IMG SRC=" . chr(34) . $Counter_Neuer_Pfad . $Counter_Prefix . "_" . $Counter_Suffix . chr(34) . " BORDER=\"0\"";
      }
      else
      {
        $Counter_Ausgabe = $Counter_Ausgabe . "<IMG SRC=" . chr(34) . $Counter_Neuer_Pfad . $Counter_Prefix . substr($Counter_Zahl, $Counter_Index, 1) . $Counter_Suffix . chr(34) . " BORDER=\"0\"";
      }
      if ($Aufruf == 3)
      {
        $Counter_Ausgabe = $Counter_Ausgabe . ">";
      }
      else
      {
        $Counter_Ausgabe = $Counter_Ausgabe . " VSPACE=\"2\">";
      }
    }
    break;
  case 2:
    if ($Counter_Admin_Text_An[$Admin])
    {
      $Counter_Prefix = $Counter_Admin_Text_An[$Admin];
    }
    if ($Counter_Admin_Text_Aus[$Admin])
    {
      $Counter_Suffix = $Counter_Admin_Text_Aus[$Admin];
    }
    $Counter_Ausgabe = $Counter_Prefix . $Counter_Zahl . $Counter_Suffix;
    break;
  }
  
  $Counter_Sizes = "";
  if (($Counter_Browser_Allow == 1) && (!strpos("-" . $Counter_IP_Online[3][$Counter_Gefunden], " " . $Counter_Unique_No . " ")))
  {
    $Counter_Sizes = "<IFRAME name=\"ifrm_sizes\" id=\"ifrm_sizes\" SRC=\"" . $Counter_Neuer_Pfad . "Sizes_Init.php\" width=\"0\" height=\"0\" style=\"visibility:hidden\"></IFRAME>";
  }
  
  if (strpos(strtoupper($_SERVER["SCRIPT_NAME"]), "/COUNTER.PHP"))
  {
    if ($Aufruf == 3)
    {
      echo "<HTML><BODY STYLE=\"margin-top:0px; margin-left:0px;margin-right:0px; margin-bottom:0px\">";
      echo $Counter_Ausgabe;
      echo "</BODY></HTML>";
    }
    else
    {
      //echo "alert('" . $Counter_Neuer_Pfad . "-" . $PHP_SELF . "-" . $REQUEST_URI . "');\n";
      echo "document.write('$Counter_Ausgabe');\n";
      echo "document.write('$Counter_Sizes');\n";
    }
  }
  else
  {
    echo $Counter_Ausgabe;
    echo $Counter_Sizes;
  }
  //echo "alert(\"" . $_SERVER["SCRIPT_NAME"] . "\");";
  for ($Counter_Index = 0; $Counter_Index < $Counter_E_Mail_Anzahl; $Counter_Index++)
  {
    $MailForm_Header = "From: " . $Counter_Mail_Adresse . "\n";
    $MailForm_Header = $MailForm_Header . "Reply-To: " . $Counter_Mail_Adresse . "\n";
    $MailForm_Header = $MailForm_Header . "Date: " . date("D d M Y H:i:s Z", time()) . "\n";
    $MailForm_Header = $MailForm_Header . "X-Sender: <" . $Counter_Mail_Adresse . ">\n";
    $MailForm_Header = $MailForm_Header . "X-Mailer: PHP-FormMailer V1.0 (c) Jürgen Liebenstein 2004\n";
    $MailForm_Header = $MailForm_Header . "Return_Path: <" . $Counter_Mail_Adresse . ">\n";

    $MailForm_Header = $MailForm_Header . "MIME-Version: 1.0\n";
    $MailForm_Header = $MailForm_Header . "Content-Type: multipart/mixed;\n     boundary=\"----=_trennline\"\n";
    $MailForm_Header = $MailForm_Header . "X-Priority: 3\n";
    $MailForm_Header = $MailForm_Header . "X-MSMail-Priority: normal \n";
    $MailForm_Header = $MailForm_Header . "This is a multi-part message in MIME format.\n\n";
    $MailForm_Body = $MailForm_Body . "\n------=_trennline\n";
    $MailForm_Body = $MailForm_Body . "Content-Type: text/plain;\n charset=\"iso-8859-1\"\n";
    $MailForm_Body = $MailForm_Body . "Content-Transfer-Encoding: 8bit\n\n";
    $MailForm_Body = $MailForm_Body . "Die Webseite " . $Counter_Site . " wurde von " . $Counter_E_Mail[$Counter_Index] . " besucht !";
    $Counter_Mail = mail($Counter_Real_Inform_EMail, "Webseiten-Benachrichtigung", "", $MailForm_Header . $MailForm_Body);
  }
}
else
{
  if (file_exists($Counter_Script_Pfad . $Counter_Datei_Fehler))
  {
    $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Datei_Fehler, "a");
  }
  else
  {
    $Counter_Handle = fopen($Counter_Script_Pfad . $Counter_Datei_Fehler, "w");
  }
  if ($Counter_Handle)
  {
    fputs($Counter_Handle, "No Site|" . $Counter_IP . "|" . $Counter_IP_Name . "|" . $HTTP_REFERER . "|" . $HTTP_USER_AGENT . "|" . date("d.m.Y H:i:s", $Counter_Now[2]) . "|\n");
    fclose($Counter_Handle);
  }
}
?>