#!/usr/bin/perl

#
###                  PRIMARY FREEWARE UBB SCRIPT                ##
#
# Ultimate Bulletin Board is copyright Infopop Corporation, 1998-1999.
#
#       ------------ Ultimate.cgi -------------
#
#  This file contains intro functionality for the Freeware UBB.
#
#  Infopop Corporation offers no
#  warranties on this script.  The owner/licensee of the script is
#  solely responsible for any problems caused by installation of
#  the script or use of the script, including messages that may be
#  posted on the BB.
#
#  All copyright notices regarding the Ultimate Bulletin Board
#  must remain intact on the scripts and in the HTML
#  for the scripts.  These "powered by" and copyright notices MUST
#  remain visible when the pages are viewed on the Internet.
#
#  You may not SELL this script.  You may offer it freely to others.
#  It is freeware.  You may not alter the code and then call it another
#  name.  You may not alter the code and then resell it under another
#  name, either.
#
# For more info on the Ultimate BB, including licensing info,
# see http://www.UltimateBB.com
#
###############################################################
#
#If you are running UBB on IIS,
#you may need to add the following line
#if so, just remove the "#" sign before the print line below
#print "HTTP/1.0 200 OK\n";
eval {
  ($0 =~ m,(.*)/[^/]+,)   && unshift (@INC, "$1"); # Get the script location: UNIX / or Windows /
  ($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1"); # Get the script location: Windows \
 
#substitute all require files here for the file

require "UltBB.setup";
require "Date.pl";
require "mods.file";
require "Styles.file";
require "ubb_library.pl";
};

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

if ($@) {
    print "Fehler - folgende Dateien konnten nicht geöffnet werden: $@\n";
    print "Bitte stellen Sie sicher, daß die Dateien existieren und/oder Zugriffsrechte und Pfade korrekt konfiguriert sind.";
 exit;
}

&ReadParse;
 

foreach $row(@in) {
	($Name, $Value) = split ("=", $row);
	$Name = &decodeURL($Name);
	$Value = &decodeURL($Value);
		if ($Name eq "forum") {
			$Forum = $Value;
			$Forum =~ s/\/\\//g;
			$ForumCoded = &HTMLIFY($Forum);
			$ForumCoded =~ tr/ /+/;
			$Forum = &UNHTMLIFY($Forum);
	}
		if ($Name eq "TopicSubject") {
			$TopicSubject = $Value;
			$TopicSubject =~ s/<.+?>//g;
				$TopicSubject = &UNHTMLIFY($TopicSubject);
	}
		if ($Name eq "UserName") {
		$UserName = $Value;
		$UserNameFile = $UserName;
		$UserNameFile =~ s/ /_/g; #remove spaces
	}


		if ($Name eq "PasswordConfirm") {
			$PasswordConfirm = $Value;
		}

		if ($Name eq "number") {
			$number = $Value;
	}
		if ($Name eq "DaysPrune") {
			$DaysPrune = $Value;
	}
	if ($Name eq "topic") {
			$topic = $Value;
	}

	if ($Name eq "Email") {
			$Email = $Value;
			$Email =~tr/A-Z/a-z/; 
	}
	if ($Name eq "URL") {
			$URL = &CleanThis($Value);
			$URL = &PipeCleaner($URL);
	}
	if ($Name eq "Permissions") {
			$Permissions = $Value;
	}
	if ($Name eq "Occupation") {
			$Occupation = &CleanThis($Value);
			$Occupation = &PipeCleaner($Occupation);
	}
	if ($Name eq "Location") {
			$Location = &CleanThis($Value);
			$Location = &PipeCleaner($Location);
	}
	if ($Name eq "TotalPosts") {
		$TotalPosts = $Value;
	}
	if ($Name eq "Status") {
		$Status = $Value;
	}
	if ($Name eq "Interests") {
			$Interests = &CleanThis($Value);
			$Interests = &PipeCleaner($Value);
	}
		if ($Name eq "sendto") {
			$sendto = $Value;
	}
}  # end FOREACH $row

if ($VariablesPath eq "") {
	$VariablesPath = $CGIPath;
}


		$SubjectCoded = &HTMLIFY($TopicSubject);
		$SubjectCoded =~ tr/ /+/;

if (@in == 0) {
&Intro;
}
 
if ($in{'action'} eq "intro") {
 &Intro;
 }  


if ($in{'action'} eq "noncoppareg") {
	   &Agree;
}

if ($in{'action'} eq "agree") {

	if ($COPPACheck eq "ON"){
	   &COPPACheck;
	}
	else {
	   &Agree;	
	}
 } 

 if ($in{'action'} eq "email") {
 &DoEmail($in{'ToWhom'});
 }  

  
if ($in{'action'} eq "register") {
 	&Register;
 }  
 
if ($in{'action'} eq "showcoppaform") {
 &PrintCOPPARegistrationHTML;
} 
 
if ($in{'action'} eq "rules") {
 &Rules;
 }  
 
if ($in{'action'} eq "lostpw") {
	if ($UseEmail eq "ON") {
 &LostPW;
 }  else {
 &StandardHTML("Diese Funktion ist nicht verfügbar.  Bitte benutzen Sie die ZURÜCK-Funktion Ihres Browsers.");
 }
 }  
 

 ## INTRO PAGE SUBROUTINES ####
 
sub Intro {

	&GetDateTime;

&ForumsTopHTML;


open (FORUMFILE, "$VariablesPath/forums.cgi");
	@forums = <FORUMFILE>;
close (FORUMFILE);
@forums = grep(/\|/, @forums);

@sortforums = @forums;

for (@sortforums) {
@thisforuminfo = split(/\|/, $_);
chomp($thisforuminfo[8]);
$x = "$thisforuminfo[8]";

$GetHour = "";
$GetMinute = "";
$MilHour = "";
$TheDate = "";
$LatestTime = "";

## Get Forum Data from lastnumber.file(s)
open (FORUMDATA, "$ForumsPath/Forum$x/lastnumber.file"); 
 my @data = <FORUMDATA>;
close (FORUMDATA);
$TotalTopics = $data[1];
chomp($TotalTopics);
$TotalPosts = $data[2];
chomp($TotalPosts);

if ($TotalTopics eq "") {
	$TotalTopics = "0";
	}
	
if ($TotalPosts eq "") {
	$TotalPosts = "0";
	}

if ($TotalTopics > 0) {
#open lasttime.file for forum
open (LTime, "$ForumsPath/Forum$x/lasttime.file"); 
    @lasttime = <LTime>;
close (LTime);

$LastDate = $lasttime[0];
$LastTime = $lasttime[1];
chomp($LastDate);
chomp($LastTime);
#split time/date
($GetHour, $GetMinute) = split(/:/, $LastTime);
($GetMinute, $AMpm) = split(/ /, $GetMinute);
chomp($AMpm);
($GetMonth, $GetDate, $GetYear) = split(/-/, $LastDate);
$CheckThisYear = length($GetYear);
	if ($CheckThisYear < 4)  {
	if ($CheckThisYear  == 2) {
		$GetYear = ("19" . "$GetYear");
		}  else {
		$GetYear = $GetYear - 100;
		$GetYear = sprintf ("%2d", $GetYear);
		$GetYear =~tr/ /0/;
		$GetYear = ("20" . "$GetYear");
		}
	}

	
	&MilitaryTime2;
	$MilTime = "$MilHour:$GetMinute";

if ($TimeFormat eq "24HR") {
	$LatestTime = "$MilTime";
} else {
		$LatestTime = "$LastTime";
	}
	
if ($DateFormat eq "Euro") {
$TheDate = "$GetDate-$GetMonth-$GetYear";
$DateWording = "Alle Datumsangaben in TT-MM-JJ";
}  else {
$TheDate = "$GetMonth-$GetDate-$GetYear";
$DateWording = "Alle Datumsangaben in MM-TT-JJ";
}
}  else {
$GetMonth = "";
$GetDate= "";
$GetYear = "";
$LatestTime = "";
$TheDate = "";
}

@thisforum = &GetForumRecord($x);

$ForumName = $thisforum[1];
$Moderator = ("Forum" . "$x" . "Moderator");
$Moderator = $$Moderator;
$ForumDesc = $thisforum[2];
$OnOff = $thisforum[3];
chomp($OnOff);

$ForumCoded = &HTMLIFY($ForumName);
$ForumCoded =~ tr/ /+/;
$ForumDesc =~ s/&quot;/"/g;

if ($ForumDescriptions eq "no") {
	$ForumDesc = "";
}

if ($GetMonth ne "") {

# Compare Last Login Time to Last Post Time.. 

$LPMonth = $GetMonth;
		
$CheckThisYear = length($GetYear);

	if ($CheckThisYear < 4)  {
	if ($CheckThisYear  == 2) {
		$JYear = ("19" . "$GetYear");
		}  else {
		$GetYear = $GetYear - 100;
		$GetYear = sprintf ("%2d", $GetYear);
		$GetYear =~tr/ /0/;
		$JYear = ("20" . "$GetYear");
		}
	} else  {
		$JYear = "$GetYear";
	}
	
} # end if/else month ne ""


if ($OnOff eq "On") {
&ForumsGutsHTML;
} ## End IF ONOFF Conditional
}

&ForumsBottomHTML;
}  #END INTRO SR ###


sub ForumsTopHTML {
print <<INTROHTML;
<HTML>
<HEAD><TITLE>$BBName - powered by the Ultimate Bulletin Board</title>
<link REL="SHORTCUT ICON" href="$NonCGIURL/ubbfavicon.ico">
</head>
 <BODY bgcolor="#FFFFF2"  text="#000000" link="#000080" vlink="#800080">
<FONT FACE="Verdana, Arial" SIZE="2">
<center>
<table border=0 width=95%>
<tr>
<TD align=left>

<A HREF="Ultimate.cgi"><IMG SRC="$NonCGIURL/bbtitle5.jpg"  BORDER=0></A>

</td>
<td>
<CENTER>
<B><FONT SIZE="3" FACE="Verdana, Arial" COLOR="#000080">$BBName</FONT></B>
<br><FONT SIZE="1" FACE="Verdana, Arial">
<A HREF="$CGIURL/ubbmisc.cgi?action=editbio&Browser=$Browser&DaysPrune=$DaysPrune"><ACRONYM TITLE="Editieren Sie Ihr Profil.">Profil</ACRONYM></A> | <A HREF="$CGIURL/Ultimate.cgi?action=agree"><ACRONYM TITLE="Registration ist kostenlos!">Registrieren</ACRONYM></A> | <A HREF="$NonCGIURL/faq.html" target=_blank><ACRONYM TITLE="Fragen und Antworten!">Hilfe</ACRONYM></A>
</FONT>
</CENTER>
</td></TR>
</table>
<table border=0 width=95%>
<TR>
<tr BGCOLOR="#d5e6e1">
<td valign=bottom>
<FONT SIZE="1" FACE="Verdana, Arial" COLOR="#000080">Forum</FONT>
</td>
<td NOWRAP valign=bottom align=center>
<FONT SIZE="1" FACE="Verdana, Arial" COLOR="#000080">Beiträge</FONT>
</td>
<td NOWRAP valign=bottom align=center>
<FONT SIZE="1" FACE="Verdana, Arial" COLOR="#000080">Letzter Beitrag am</FONT>
</td>
<td valign=bottom>
<FONT SIZE="1" FACE="Verdana, Arial" COLOR="#000080">Moderator</FONT>
</td></tr>
INTROHTML
}  ## END FORUMS TOP HTML

sub ForumsGutsHTML {
print <<ForumSummary;
<TR>
<TD BGCOLOR="#f7f7f7" valign=top><FONT SIZE='2' FACE='Verdana, Arial'><B>
<A HREF="$CGIURL/forumdisplay.cgi?action=topics&forum=$ForumCoded&number=$x&DaysPrune=$DaysPrune&LastLogin=$LastLogin">$ForumName</A></B><BR>
$ForumDesc
</FONT>
</td>
<td BGCOLOR="#dedfdf" align=center valign=top NOWRAP>
<FONT SIZE='2' FACE="Verdana, Arial">$TotalPosts</FONT>
</td><td BGCOLOR="#f7f7f7" NOWRAP valign=top align=center>
<FONT SIZE='2' FACE="Verdana, Arial">$TheDate <FONT COLOR="#000080" SIZE="2" FACE="Verdana, Arial">$LatestTime</FONT>
</td><td BGCOLOR="#dedfdf" valign=top>
<FONT SIZE='2' FACE="Verdana, Arial">$Moderator</FONT></td></tr>
ForumSummary
}  ## END FORUMS GUTS HTML

sub ForumsBottomHTML {
print <<BOTTOMhtml;
</table>
</center>
<P>
<FONT SIZE="1" FACE="Verdana, Arial" COLOR="#8C9A7A">Alle Zeiten sind $TimeZone.  $DateWording</FONT>
<P>
<P><center></font>
BOTTOMhtml

&PageBottomHTML;
}  ## END Forums Bottom HTML subroutine


### END Intro Page Subroutines ####
 


sub Agree {
print <<Agreement;
<HTML>
 <BODY bgcolor="#FFFFFF" text="#000000" link="#000080" vlink="#800080">
<FONT SIZE="2" FACE="Verdana, Arial">
<table border=0><TR><TD>
<A HREF="Ultimate.cgi?action=intro"><IMG SRC="$NonCGIURL/bbtitle5.jpg"  BORDER=0></A></TD><TD align=center><FONT SIZE="+1" FACE="Verdana, Arial" COLOR="#000080"><B>$BBName Regeln und Erklärungen</B></FONT></td></tr></table> 
<br><BR>
<FONT SIZE="2" FACE="Verdana, Arial">
Die Registration und Benutzung ist kostenlos! Wenn Sie die hier genannten Regeln und Erklärungen anerkennen, klicken Sie auf "Annehmen", danach können Sie sich registrieren.
<HR width=95%>
<CENTER><B><FONT SIZE="2" FACE="Verdana, Arial" COLOR="#000080">$BBName Regeln und Erklärungen</B></CENTER>
<P>
<Blockquote>
$BBRules</FONT>
</blockquote>
<HR width=90%><CENTER>
<FORM ACTION="Ultimate.cgi" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="action" VALUE="register">
<INPUT TYPE="SUBMIT" NAME="Submit" VALUE="Annehmen">
</FORM>
<FORM ACTION="Ultimate.cgi" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="action" VALUE="intro">
<INPUT TYPE="SUBMIT" NAME="Submit" VALUE="Ablehnen">
</FORM>
</CENTER>
</FONT>
<p></font>
</BODY></HTML>
Agreement
}

sub Register {

print<<RegHTML;
<HTML>
<HEAD>
	<TITLE>$BBName Registration</TITLE>
</HEAD>
 <BODY bgcolor="#FFFFFF"  text="#000000" link="#000080" vlink="#800080">
<FONT SIZE="3" FACE="Verdana, Arial">
<A HREF="Ultimate.cgi?action=intro"><IMG SRC="$NonCGIURL/bbtitle5.jpg" BORDER=0></A>
<FONT SIZE="3" FACE="Verdana, Arial" COLOR="#000080"><B>
Bulletin Board Registration
</B></FONT>
<P>
<table border=0>
<tr>
<td colspan=2>
<FONT SIZE="2" FACE="Verdana, Arial">
<B>Damit Sie alle Funktionen des Systems nutzen können, sollten Sie sich hier registrieren! 
<BR><BR>
Benutzernamen können bis zu 25 und Kennwörter bis zu 13 Zeichen lang sein.  bitte verwenden Sie ausschließlich Buchstaben und Zahlen. Kennwörter sind kontext-sensitiv, das bedeutet "Hans" ist unterschiedlich zu "HANS".
<BR><BR>
HINWEIS: Alle hier getätigten Angaben bis auf das Kennwort sind für andere Benutzer sichtbar. Pflichtfelder sind mit einem Sternchen markiert.
<br><br></B></FONT>
</td></tr>
<tr>
<FORM NAME="Register" METHOD=POST ACTION="ubbmisc.cgi">

<TD BGCOLOR="#f7f7f7"><FONT SIZE="2" FACE="Verdana, Arial"><B>Ihr Benutzername*</B></FONT></TD>
<TD><INPUT TYPE="TEXT" NAME="UserName" VALUE="" SIZE=25 MAXLENGTH=25>
 </TD>
</TR>
<TR><TD BGCOLOR="#dedfdf"><FONT SIZE="2" FACE="Verdana, Arial"><B>Ihr Kennwort*</B></FONT></TD><TD><INPUT TYPE="PASSWORD" NAME="Password" VALUE="" SIZE=13 MAXLENGTH=13> </TD></TR><TR><TD><FONT SIZE="2" FACE="Verdana, Arial"><B>Wiederholen Sie Ihr Kennwort*</B></FONT></TD><TD><INPUT TYPE="PASSWORD" NAME="PasswordConfirm" VALUE="" SIZE=13 MAXLENGTH=13></TD></tr>

<TR>
	<TD BGCOLOR="#f7f7f7"><FONT SIZE="2" FACE="Verdana, Arial"><B>Ihre eMail-Adresse*</B></FONT></TD>
	<TD><INPUT TYPE="TEXT" NAME="Email" VALUE="" SIZE=30 MAXLENGTH=50>
 </TD>
</TR>
<TR>
	<TD BGCOLOR="#dedfdf"><FONT SIZE="2" FACE="Verdana, Arial"><B>Land, PLZ, Stadt</B></FONT></TD>
	<TD><INPUT TYPE="TEXT" NAME="Location" VALUE="" SIZE=30 MAXLENGTH=50>
 </TD></tr>

<TR>
	<TD BGCOLOR="#f7f7f7"><FONT SIZE="2" FACE="Verdana, Arial"><B>Beruf</B></FONT></TD>
	<TD><INPUT TYPE="TEXT" NAME="Occupation" VALUE="" SIZE=30 MAXLENGTH=50>
 </TD>
</TR>

<TR>
	<TD BGCOLOR="#dedfdf"><FONT SIZE="2" FACE="Verdana, Arial"><B>Ihre Homepage</B></FONT></TD>
	<TD><INPUT TYPE="TEXT" NAME="URL" VALUE="http://" SIZE=30 MAXLENGTH=100>
 </TD></tr>
<TR>
	<TD BGCOLOR="#f7f7f7"><FONT SIZE="2" FACE="Verdana, Arial"><B>Hobbies</B></FONT></TD>
	<TD><INPUT TYPE="TEXT" NAME="Interests" VALUE="" SIZE=30 MAXLENGTH=200>
 </TD></tr>
</TABLE>
<P>

<BR><BR>
<CENTER>
<INPUT TYPE="HIDDEN" NAME="action" VALUE="RegSubmit">
<INPUT TYPE="SUBMIT" NAME="Submit" VALUE="Registrieren">
<INPUT TYPE="RESET" NAME="Reset" VALUE="Felder löschen">
</FORM>
<BR><BR>
</center><BR></font></BODY>
</HTML>
RegHTML
}  ## END Register SR ##

sub PrintCOPPARegistrationHTML {
	
print <<"COPPA"
<html>
<head>
<title>Freischaltungsantrag zur Teilnahme an $BBName</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<BODY bgcolor=$BGColor text="$TextColor" link="$LinkColor" alink="$ActiveLinkColor" vlink="$VisitedLinkColor">
<table width="$TableWidth" border="0" cellspacing="1" cellpadding="3" align=center>
  <tr > 
    <td > 
      <A HREF="$CGIURL/Ultimate.cgi?action=intro&bypasscookie=true"><IMG SRC=$NonCGIURL/$BBTitle border=0></a>
      <td align=center><h4> <font face="$FontFace">Freischaltungsantrag zur
        Teilnahme bei $BBName</font></h4>
    </td>
  </tr>
  
    <tr bgcolor=$CategoryStripColor> 
    <td colspan="2"> 
      <p><font face="$FontFace" size="2" color="$CategoryStripTextColor"><h5>Anweisungen für die Eltern oder Erziehungsberechtigten
      </h></font></h5>
    </td>
  </tr>
 
  
  <tr bgcolor=$AltColumnColor1> 
    <td colspan="2"> 
      <p><font face="$FontFace" size="2">$COPPAInstructions</font></p>
    </td>
  </tr>
  <tr bgcolor=$CategoryStripColor> 
    <td colspan="2"> 
      <font size="2" face="$FontFace" color="$CategoryStripTextColor"><b>Nachfolgend die durch den Benutzer eingegebenen Pflichtdaten:</b></font>
    </td>
  </tr>
  
 <tr bgcolor=$AltColumnColor2>
<TD width=22%><font size="$TextSize" face="$FontFace"><b>Benutzername</b></font></TD>
<TD ><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$UserName</font>
 </TD>
</tr>

<tr bgcolor=$AltColumnColor1>
	<TD ><font size="$TextSize" face="$FontFace"><b>Kennwort</b></font></TD>
	<TD ><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$RegWording2</font>
 </TD>
</tr>
<tr bgcolor=$AltColumnColor2>
	<TD ><font size="$TextSize" face="$FontFace"><b>eMail-Adresse</b></font></TD>
	<TD ><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$Email</font>
 </TD>
</TR>
<tr bgcolor=$CategoryStripColor>
	<TD colspan="2"><font size="$TextSize" face="$FontFace" color="$CategoryStripTextColor"><b>Die nachfolgenden Angaben wurden durch den Benutzer optional angegeben. Bitte überprüfen Sie die Angaben:</b></font></TD>
</TR>
<tr bgcolor=$AltColumnColor2>
	<TD colspan="2"><p><font size="$TextSize" face="$FontFace">Um Änderungen dieser Angaben vorzunehmen, klicken Sie bitte hier und geben dann den o.g. Benutzernamen und Kennwort zu Identifikation ein.</font></p></TD>
</TR>
<tr bgcolor=$AltColumnColor1>
	<TD ><font size="$TextSize" face="$FontFace"><b>Land, PLZ und Ort</b></font></TD>
	<TD ><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$Location</font>
 </TD>
</TR>
<tr bgcolor=$AltColumnColor2>
	<td><font size="$TextSize" face="$FontFace"><b>Beruf</b></font></TD>
	<TD ><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$Occupation</font>
 </TD>
</tr>
<tr bgcolor=$AltColumnColor1>
	<TD ><font size="$TextSize" face="$FontFace"><b>Hobbies</b></font></TD>
	<TD ><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$Interests</font>
 </TD>
</tr>
<tr bgcolor=$AltColumnColor2>
	<TD ><FONT SIZE="$TextSize" FACE="$FontFace"><B>Homepage</B></FONT></TD>
	<TD ><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$URL</font>
 </TD>
</tr>

<tr bgcolor=$AltColumnColor1>
	<TD  valign=top><font size="$TextSize" face="$FontFace"><b>Soll die eMail-Adresse für andere Benutzer einsehbar sein?</b></font></TD>
	<TD ><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$in{'EmailView'}</font>
 </TD>
</tr>

<tr bgcolor=$AltColumnColor1>
	<TD valign=top>&nbsp;</TD>
	<TD >&nbsp;</font>
 </TD>
</tr>

   <tr bgcolor=$CategoryStripColor> 
    <td colspan="2"> 
      <font face="$FontFace" size="2" color="$CategoryStripTextColor">Bitte drucken Sie dieses Formular aus und senden Sie uns das unterzeichnete Formular zu.</font>
    </td>
  </tr>
  <tr bgcolor=$AltColumnColor1>
    <td colspan="2"><p><font face="$FontFace" size="2">JA: Ich habe die Angaben meines Kindes überprüft und mich über die
      <a href="$PrivacyURL">rechtlichen Hinweise</a> zu dieser Website informiert. Ich habe verstanden, daß mein Kind die o.g. Profil-Angaben jederzeit mit dem Benutzernamen und dem genannten Kennwort ändern kann. Mir ist bekannt, daß ich den Webmaster um Löschung der hier genannten Daten bitten kann.</font></p>   
    </td>
  </tr>
  <tr bgcolor=$AltColumnColor2> 
    <td> 
      <p><font face="$FontFace" size="2">Vor- und Nachname</font></p>
    </td>
    <td> 
<br><hr>
    </td>
  </tr>
    <tr bgcolor=$AltColumnColor2> 
    <td> 
      <p><font size="2" face="$FontFace">Unterschrift</font></p>
    </td>
    <td> 
      <br><hr> </td>
  </tr>
  <tr bgcolor=$AltColumnColor1> 
    <td> 
      <p><font size="2" face="$FontFace">Beziehung zum Kind</font></p>
    </td>
    <td> 
      <p><font size="2"><br><hr>
    </td>
  </tr>
  <tr bgcolor=$AltColumnColor2> 
    <td> 
      <p><font size="2" face="$FontFace">Telefon</font></p>
    </td>
    <td> 
      <br><hr>  </td>
  </tr>
  <tr bgcolor=$AltColumnColor1> 
    <td> 
      <p><font size="2" face="$FontFace">eMail-Adresse</font></p>
    </td>
    <td> 
      <br><hr>    </td>
  </tr>
  <tr bgcolor=$AltColumnColor1> 
    <td><font size="2" face="$FontFace">Datum</font>
         </td>
    <td> 
     <br><hr>   </td>
  </tr>
  <tr bgcolor=$AltColumnColor2> 
    <td><font size="2" face="$FontFace">Datum der Registration</font></td>
    <td> 
     <font size="2" face="$FontFace">$HyphenDate <font size=-1>[</font></font><font size="-1" face="$FontFace">nur online sichtbar</font><font size="2" face="$FontFace">]</font></td>
  </tr>
  <tr bgcolor=$CategoryStripColor> 
    <td colspan="2"> 
      <p><font size="2" face="$FontFace" color="$CategoryStripTextColor">Bei
      weiteren Fragen senden Sie uns bitte eine eMail.</font></p>
    </td>
  </tr>
</table>

<center><p><B><FONT SIZE="$TextSize" FACE="$FontFace">
<A HREF="mailto:$BBEmail">Kontakt</A> | <A HREF="$HomePageURL" target=_top>$MyHomePage</A> | <A HREF="$PrivacyURL">Rechtliche Hinweise</A>
</B></FONT>
<P>
<FONT COLOR="$CopyrightTextColor" size="1" FACE="$FontFace">$YourCopyrightNotice
<P>
<a href="http://www.infopop.com" target="_blank"><img border="0" src="file:///C:/ubb2000dg/NonCGI/powered_by.gif" width="142" height="15"></a><br>
<a href="http://www.thinkfactory.de" target="_blank"><img border="0" src="file:///C:/ubb2000dg/NonCGI/translated_by.gif" alt="Für weitere Infos zu deutschen Versionen klicken Sie hier!" width="145" height="15"></a><br>
Ultimate Bulletin Board Freeware 2000d
<br><br>
</FONT>
</CENTER>
</p>
</body>
</html>
COPPA
} # end SR

sub COPPACheck { # age check
	&GetDateTime;	
	@months = ("blank" , "Januar", "Februar", "M&aumlrz", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember");
	$COPPADate = "$mday. $months[$JSMonth] " . ($JSYear-13);

print <<COPPACheck;
<HTML>
<HEAD></HEAD>
 <BODY bgcolor=$BGColor text="$TextColor" link="$LinkColor" alink="$ActiveLinkColor" vlink="$VisitedLinkColor" marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 rightmargin=0>
$HeaderInsert
<p>
<FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$TextColor">
$Header
<P><center>
<TABLE BORDER=0 width=95%>
<TR><TD>
<A HREF="$CGIURL/Ultimate.cgi?action=intro&BypassCookie=true"><IMG SRC="$NonCGIURL/$BBTitle"  BORDER=0></A></TD><TD align=center><FONT SIZE="+1" FACE="$FontFace" COLOR="$BBTitleFontColor"><B>$BBName</B></FONT></td></tr></table> 
<P>
</font>
<table border=0 cellpadding=4 border=0 cellspacing=1 width=95%>
  <tr BGCOLOR=$TableColorStrip> 
    <td><b><font size="$TextSize" face="$FontFace" color="$TableStripTextColor">Registration - Überprüfung des Alters gemäß COPPA-Gesetz</font></b></td>
  </tr>
<FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$TextColor">
  <tr> 
    <td BGCOLOR=$AltColumnColor1><FONT SIZE="$TextSize" FACE="$FontFace">
      <p>Bitte wählen Sie gemäß Ihrem Alter wie folgt: </p>
      <p><b>Sie wurden am oder vor dem <A HREF=$CGIURL/Ultimate.cgi?action=noncoppareg>$COPPADate</a>
      geboren.</b></p>
      <p><b>Sie wurden nach dem <A HREF=$CGIURL/Ultimate.cgi?action=showcoppaform>$COPPADate</a>
      geboren.</b><br> &nbsp;</p>
      </font>
    </td>
  </tr>
  </font>
  <tr BGCOLOR=$CategoryStripColor> 
    <td><b><font size="$TextSize" face="$FontFace" color="$CategoryStripTextColor">Rechtliche Hinweise</font></b></td>
  </tr>
<FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$TextColor">
  <tr> 
    <td BGCOLOR=$AltColumnColor1><FONT SIZE="$TextSize" FACE="$FontFace">
    <p>Das "Federal Trade Commission's Children's Online Privacy Protection Act of 1998 (COPPA)" wurde in den USA zum Schutz der Jugend im Internet verabschiedet. Dieses Gesetz erlangt zum 21. April 2000 Gültigkeit, aufgrund verschiedenster Inhalte müssen Websites, deren Server in Amerika installiert sind, eine Altersüberprüfung für Benutzer mit einem Alter von unter 13 Jahren durchführen.</p>
    
    <p>Hinweise zum COPPA-Gesetz in englischer Sprache finden Sie <A HREF=http://www.ftc.gov/opa/1999/9910/childfinal.htm>hier</a>.<br>
    Das komplette Gesetz in englischer Originalfassung finden Sie als Adobe Acrobat Datei [270 KB] finden Sie
    <A HREF=http://www.ftc.gov/os/1999/9910/64fr59888.pdf>hier</A>.</p>
    <p>Bitte beachten Sie die <A HREF=$PrivacyURL>rechtlichen Hinweise</a> zu
    dieser Website.</font>
    </td>
  </tr>
  </font>
  <tr BGCOLOR=$CategoryStripColor> 
    <td><b><font size="$TextSize" face="$FontFace" color="$CategoryStripTextColor">Freischaltungs-Antrag</font></b></td>
  </tr>
<FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$TextColor">
  <tr> 
    <td BGCOLOR=$AltColumnColor1> <FONT SIZE="$TextSize" FACE="$FontFace">
      <p>Eltern oder Erziehungsberechtigte müssen den <A HREF="Ultimate.cgi?action=showcoppaform">Freischaltungsauftrag</a>
      unterschrieben an den Webmaster von $BBName zurücksenden, bevor Benutzer, die unter das COPPA-Gesetz fallen, Zugriff auf dieses Foren-System erhalten.</p></font>
      </td>
  </tr>
  </font>
  <tr BGCOLOR=$CategoryStripColor> 
    <td><b><font size="$TextSize" face="$FontFace" color="$CategoryStripTextColor">Kontakt</font></b></td>
  </tr>
<FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$TextColor">
  <tr BGCOLOR=$AltColumnColor1> 
    <td><FONT SIZE="$TextSize" FACE="$FontFace">Für weitere Informationen schreiben Sie bitte eine eMail an uns.</font></td>
  </tr>
  <tr BGCOLOR=$AltColumnColor1> 
    <td>&nbsp;</td>
  </tr>
</table>

<P>
<center><p><B><FONT SIZE="$TextSize" FACE="$FontFace">
<A HREF="mailto:$BBEmail">Kontakt</A> | <A HREF="$HomePageURL" target=_top>$MyHomePage</A> |
<A HREF="$PrivacyURL">Rechtliche Hinweise</A>
</FONT>
</B>
<P>
<FONT COLOR="$CopyrightTextColor" size="1" FACE="$FontFace">$YourCopyrightNotice
<P>
<BR><BR><a href="http://www.infopop.com" target="_blank"><img border="0" src="file:///C:/ubb2000dg/NonCGI/powered_by.gif" width="142" height="15"></a><br>
<a href="http://www.thinkfactory.de" target="_blank"><img border="0" src="file:///C:/ubb2000dg/NonCGI/translated_by.gif" alt="Für weitere Hinweise zu deutschen Versionen klicken Sie hier!" width="145" height="15"></a><br>
 Ultimate Bulletin Board Freeware 2000d<br>
</FONT>
</CENTER></font>
</p>
$Footer</BODY></HTML>
COPPACheck

}