#!/usr/bin/perl

#Einleitung

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

require "hpm_einstellungen.cgi";

#Username ermitteln

&#36username = &#36q->param("user");

if (&#36username eq "")
{
   &#36url = &#36ENV{REQUEST_URI};
   &#36username = (split /\//, &#36url)[-1];
}

#Prüfen, ob User vorhanden ist oder User-ID ermitteln

&#36anfrage = "SELECT userid, status FROM hpm_user WHERE username='&#36username';";
&datenbank;
&#36ergebnisse = &#36sth->fetchall_arrayref( { userid => 1, status => 1 } );
foreach(@&#36ergebnisse) { &#36userid = &#36_->{userid}; &#36status = &#36_->{status}; }

if (&#36userid eq "") { require "hpm_homepage_error404.cgi"; }

#Prüfen, ob User gesperrt ist

if (&#36status eq "4") { require "hpm_homepage_gesperrt.cgi"; }

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

&#36titel = &#36einstellungen[0];
&#36beschreibung = &#36einstellungen[1];
&#36design = &#36einstellungen[3];
&#36autor = &#36einstellungen[4];
&#36herausgeber = &#36einstellungen[5];
&#36copyright = &#36einstellungen[6];
&#36keywords = &#36einstellungen[7];

#Prüfen, ob Design erlaubt ist

if (!(&#36design eq "own"))
{
   open(FILE, "&#36internmaindir/userdaten/&#36userid/daten/payeddesigns.dat");
   flock FILE,1;
   @designs = <FILE>;
   s/\n// foreach (@designs);
   close(FILE);
   foreach(@designs) { if (&#36_ eq &#36design) { &#36found = "ja"; } }
   if (!(&#36found eq "ja")) { require "hpm_homepage_designnn.cgi"; }
}

#Art und Name des Designs ermitteln

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}; }
}

#Hintergrundmusik ermitteln

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

#Prüfen, ob Werbung angezeigt werden muss

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

#Frameset ausgeben

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

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

   if (&#36werbeart eq "1")
   {
      require "hpm_homepage_frame.cgi";
   }
   elsif (&#36werbeart eq "2")
   {
      require "hpm_homepage_popup.cgi";
   }
}
else
{
   require "hpm_homepage_werbefrei.cgi";
}

exit();