#!/usr/bin/perl

#Einleitung

use CGI;
use CGI::Carp qw(fatalsToBrowser);
&#36q = new CGI;

require "hpm_einstellungen.cgi";

#Infos einlesen

&#36userid = &#36q->param("userid");
&#36name = &#36q->param("name");
&#36page = &#36q->param("page");
&#36typ = &#36q->param("typ");
&#36var = &#36q->param("var");
&#36id = &#36q->param("id");

if (&#36page eq "") { &#36page = "index"; }

if (&#36name eq "")
{
   open(FILE, "&#36internmaindir/userdaten/&#36userid/daten/homepagedaten.dat");
   flock FILE,1;
   @einstellungen = <FILE>;
   s/\n// foreach (@einstellungen);
   close(FILE);
   &#36design = &#36einstellungen[3];

   if (&#36design eq "own")
   {
      &#36name = "own";
   }
   else
   {
      &#36anfrage = "SELECT name FROM hpm_designs WHERE designid='&#36design'";
      &datenbank;
      &#36ergebnisse = &#36sth->fetchall_arrayref( { name => 1 } );
      foreach(@&#36ergebnisse) { &#36name = &#36_->{name}; }
   }

   if (&#36name eq "") { &#36message = "Designfehler. Bitte wenden Sie sich an den Webmaster."; &error_end; }
}

#Besucher für User zählen

open(FILE, "&#36internmaindir/userdaten/&#36userid/daten/counter.dat");
flock FILE,1;
@einstellungen = <FILE>;
s/\n// foreach (@einstellungen);
close(FILE);

&#36zahl = &#36einstellungen[0];
&#36ips = &#36einstellungen[1];

&#36userip = &#36ENV{'REMOTE_ADDR'};
(&#36datum, &#36uhrzeit) = split (/\|/, &DATUM_UHRZEIT);

if (!((grep(/&#36userip/, split(",", &#36ips))) > 0))
{
   &#36newips = "&#36userip,&#36ips";
   &#36newips = substr(&#36newips, 0, 250);

   &#36zahl++;

   open(FILE, ">&#36internmaindir/userdaten/&#36userid/daten/counter.dat");
   flock FILE,2;
   print FILE "&#36zahl\n";
   print FILE "&#36newips\n";
   close(FILE);

   open(FILE, "&#36internmaindir/userdaten/&#36userid/daten/counter_tage.dat");
   flock FILE,1;
   @tage = <FILE>;
   s/\n// foreach (@tage);
   close(FILE);

   for(0..&#36#tage)
   {
      (&#36tagdatum, &#36tagzahl) = split(/\|\|\|/, &#36tage[&#36_]);
      if (&#36tagdatum eq &#36datum) { &#36status = "ja"; &#36zeile = &#36_; &#36zahl = &#36tagzahl; }
   }

   if (&#36status eq "ja")
   {
      &#36eintraege[&#36zeile] = "&#36datum|||&#36zahl";

      open(FILE, ">&#36internmaindir/userdaten/&#36userid/daten/counter_tage.dat");
      flock FILE,2;
      foreach(@tage) { print FILE &#36_ . "\n"; }
      close(FILE);

   }
   else
   {
      open(FILE, ">>&#36internmaindir/userdaten/&#36userid/daten/counter_tage.dat");
      flock FILE,2;
      print FILE "&#36datum|||1\n";
      close(FILE);
   }

   #Aufruf der Homepage für System zählen

   &#36anfrage = "SELECT value FROM hpm_sonstiges WHERE name='counter_homepages';";
   &datenbank;
   &#36ergebnisse = &#36sth->fetchall_arrayref( { value => 1 } );
   foreach(@&#36ergebnisse) { &#36inhalt = &#36_->{value}; }

   @content = split/OOO/, &#36inhalt;

   (&#36countdatum, &#36countzahl) = split(/\|\|\|/, &#36content[0]);

   &#36countzahl++;
   &#36content[0] = "&#36countdatum|||&#36countzahl";

   &#36newinhalt = "";
   foreach(@content) { &#36newinhalt .= &#36_ . "OOO"; }

   &#36anfrage = "UPDATE hpm_sonstiges SET value='&#36newinhalt' WHERE name='counter_homepages'";
   &datenbank;
}

#Prüfen, ob Intro angezeigt werden soll oder nicht

open(FILE, "&#36internmaindir/userdaten/&#36userid/daten/intro.dat");
flock FILE,1;
@einstellungen = <FILE>;
s/\n// foreach (@einstellungen);
close(FILE);
&#36showit = &#36einstellungen[0];

if ((&#36showit eq "0") || (&#36showit eq "") || (!(&#36id eq ""))  || (!(&#36page eq "index")))
{
   #Intro nicht anzeigen

   if (&#36name eq "own")
   {
      print "Location: designs/benutzer.cgi?page=&#36page&typ=&#36typ&id=&#36id&userid=&#36userid&var=&#36var\n\n";
   }
   else
   {
      print "Location: designs/&#36name/index.cgi?page=&#36page&typ=&#36typ&id=&#36id&userid=&#36userid&var=&#36var\n\n";
   }
}
elsif (&#36showit eq "1")
{
   #Intro anzeigen

   #Richten Link für Weiterleitung generieren

   if (&#36name eq "own")
   {
      &#36weiterlink = "&#36homedir/designs/benutzer.cgi?page=&#36page&typ=&#36typ&id=&#36id&userid=&#36userid&var=&#36var";
   }
   else
   {
      &#36weiterlink = "&#36homedir/designs/&#36name/index.cgi?page=&#36page&typ=&#36typ&id=&#36id&userid=&#36userid&var=&#36var";
   }

   #Intro ausgeben

   &#36form = &#36einstellungen[1];
   &#36grafik = &#36einstellungen[2];
   &#36flash = &#36einstellungen[3];
   &#36quali = &#36einstellungen[4];
   &#36width = &#36einstellungen[5];
   &#36height = &#36einstellungen[6];
   &#36hintergrund_farbe = &#36einstellungen[7];
   &#36hintergrund_bild = &#36einstellungen[8];
   &#36button_text = &#36einstellungen[9];
   &#36button_schriftgroesse = &#36einstellungen[10];
   &#36button_schriftart = &#36einstellungen[11];
   &#36button_schriftfarbe = &#36einstellungen[12];

   print "Content-type: text/html\n\n";

   print "<html>\n";
   print "<head></head>\n";
   print "<body text=\"&#36button_schriftfarbe\" bgcolor=\"&#36hintergrund_farbe\" background=\"&#36hintergrund_bild\" link=\"&#36button_schriftfarbe\" vlink=\"&#36button_schriftfarbe\" alink=\"&#36button_schriftfarbe\">\n";
   print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\" height=\"100%\">\n";
   print "  <tr>\n";
   print "    <td width=\"100%\" align=\"center\">\n";

   if (&#36form eq "1")
   {
      #Grafik-Tag

      print "    <p><img border=\"0\" src=\"&#36maindir/userdaten/&#36userid/bilder/&#36grafik\"></p>\n";
   }
   elsif (&#36form eq "2")
   {
      #Flash-Tag

      print "    <p>\n";
      print "    <object width=\"&#36width\" height=\"&#36height\">\n";
      print "    <param name=\"movie\" value=\"&#36maindir/userdaten/&#36userid/flash/&#36flash\">\n";
      print "    <param name=\"loop\" value=\"false\">\n";
      print "    <param name=\"quality\" value=\"&#36quali\">\n";
      print "    <param name=\"menu\" value=\"false\">\n";
      print "    <embed src=\"&#36maindir/userdaten/&#36userid/flash/&#36flash\" width=\"&#36width\" height=\"&#36height\" loop=\"false\" quality=\"&#36quali\" menu=\"false\" border=\"0\" type=\"application/x-shockwave-flash\" pluginspace=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\"></embed>\n";
      print "    </object>\n";
      print "    <p>\n";
   }

   print "    <p><font face=\"&#36button_schriftart\" size=\"&#36button_schriftgroesse\"><a target=\"_self\" href=\"&#36weiterlink\"><font>&#36button_text</font></a></font></p>\n";
   print "    </td>\n";
   print "  </tr>\n";
   print "</table>\n";
   print "</body>\n";
   print "</html>\n";
}

exit();