#!/usr/bin/perl #Einleitung use CGI; use CGI::Carp qw(fatalsToBrowser); $q = new CGI; require "hpm_einstellungen.cgi"; #Infos einlesen $userid = $q->param("userid"); $name = $q->param("name"); $page = $q->param("page"); $typ = $q->param("typ"); $var = $q->param("var"); $id = $q->param("id"); if ($page eq "") { $page = "index"; } if ($name eq "") {   open(FILE, "$internmaindir/userdaten/$userid/daten/homepagedaten.dat");   flock FILE,1;   @einstellungen = ;   s/\n// foreach (@einstellungen);   close(FILE);   $design = $einstellungen[3];   if ($design eq "own")   {      $name = "own";   }   else   {      $anfrage = "SELECT name FROM hpm_designs WHERE designid='$design'";      &datenbank;      $ergebnisse = $sth->fetchall_arrayref( { name => 1 } );      foreach(@$ergebnisse) { $name = $_->{name}; }   }   if ($name eq "") { $message = "Designfehler. Bitte wenden Sie sich an den Webmaster."; &error_end; } } #Besucher für User zählen open(FILE, "$internmaindir/userdaten/$userid/daten/counter.dat"); flock FILE,1; @einstellungen = ; s/\n// foreach (@einstellungen); close(FILE); $zahl = $einstellungen[0]; $ips = $einstellungen[1]; $userip = $ENV{'REMOTE_ADDR'}; ($datum, $uhrzeit) = split (/\|/, &DATUM_UHRZEIT); if (!((grep(/$userip/, split(",", $ips))) > 0)) {   $newips = "$userip,$ips";   $newips = substr($newips, 0, 250);   $zahl++;   open(FILE, ">$internmaindir/userdaten/$userid/daten/counter.dat");   flock FILE,2;   print FILE "$zahl\n";   print FILE "$newips\n";   close(FILE);   open(FILE, "$internmaindir/userdaten/$userid/daten/counter_tage.dat");   flock FILE,1;   @tage = ;   s/\n// foreach (@tage);   close(FILE);   for(0..$#tage)   {      ($tagdatum, $tagzahl) = split(/\|\|\|/, $tage[$_]);      if ($tagdatum eq $datum) { $status = "ja"; $zeile = $_; $zahl = $tagzahl; }   }   if ($status eq "ja")   {      $eintraege[$zeile] = "$datum|||$zahl";      open(FILE, ">$internmaindir/userdaten/$userid/daten/counter_tage.dat");      flock FILE,2;      foreach(@tage) { print FILE $_ . "\n"; }      close(FILE);   }   else   {      open(FILE, ">>$internmaindir/userdaten/$userid/daten/counter_tage.dat");      flock FILE,2;      print FILE "$datum|||1\n";      close(FILE);   }   #Aufruf der Homepage für System zählen   $anfrage = "SELECT value FROM hpm_sonstiges WHERE name='counter_homepages';";   &datenbank;   $ergebnisse = $sth->fetchall_arrayref( { value => 1 } );   foreach(@$ergebnisse) { $inhalt = $_->{value}; }   @content = split/OOO/, $inhalt;   ($countdatum, $countzahl) = split(/\|\|\|/, $content[0]);   $countzahl++;   $content[0] = "$countdatum|||$countzahl";   $newinhalt = "";   foreach(@content) { $newinhalt .= $_ . "OOO"; }   $anfrage = "UPDATE hpm_sonstiges SET value='$newinhalt' WHERE name='counter_homepages'";   &datenbank; } #Prüfen, ob Intro angezeigt werden soll oder nicht open(FILE, "$internmaindir/userdaten/$userid/daten/intro.dat"); flock FILE,1; @einstellungen = ; s/\n// foreach (@einstellungen); close(FILE); $showit = $einstellungen[0]; if (($showit eq "0") || ($showit eq "") || (!($id eq ""))  || (!($page eq "index"))) {   #Intro nicht anzeigen   if ($name eq "own")   {      print "Location: designs/benutzer.cgi?page=$page&typ=$typ&id=$id&userid=$userid&var=$var\n\n";   }   else   {      print "Location: designs/$name/index.cgi?page=$page&typ=$typ&id=$id&userid=$userid&var=$var\n\n";   } } elsif ($showit eq "1") {   #Intro anzeigen   #Richten Link für Weiterleitung generieren   if ($name eq "own")   {      $weiterlink = "$homedir/designs/benutzer.cgi?page=$page&typ=$typ&id=$id&userid=$userid&var=$var";   }   else   {      $weiterlink = "$homedir/designs/$name/index.cgi?page=$page&typ=$typ&id=$id&userid=$userid&var=$var";   }   #Intro ausgeben   $form = $einstellungen[1];   $grafik = $einstellungen[2];   $flash = $einstellungen[3];   $quali = $einstellungen[4];   $width = $einstellungen[5];   $height = $einstellungen[6];   $hintergrund_farbe = $einstellungen[7];   $hintergrund_bild = $einstellungen[8];   $button_text = $einstellungen[9];   $button_schriftgroesse = $einstellungen[10];   $button_schriftart = $einstellungen[11];   $button_schriftfarbe = $einstellungen[12];   print "Content-type: text/html\n\n";   print "\n";   print "\n";   print "\n";   print "\n";   print "  \n";   print "    \n";   print "  \n";   print "
\n";   if ($form eq "1")   {      #Grafik-Tag      print "    

\n";   }   elsif ($form eq "2")   {      #Flash-Tag      print "    

\n";      print "    \n";      print "    \n";      print "    \n";      print "    \n";      print "    \n";      print "    \n";      print "    \n";      print "    

\n";   }   print "    

$button_text

\n";   print "    
\n";   print "\n";   print "\n"; } exit();