#!/usr/bin/perl #Module use DBI; use File::Copy; no utf8; #binmode STDOUT, ":utf8"; #use Image::Size; use GD; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard); use CGI::Cookie; ##### Zugang zur Datenbank #######m require "include/castingedit.inc.pl"; # Set Variables $SHOWPREMIUMNOW = 1; # Premium Mitgliedschaft möglich #$HOMEURL = "http://85.214.65.218/1flashmodels-de"; $HOMEURL = "http://www.flashmodels.de"; #$cgiurl = "http://www.flashmodels.de/casting/cgi-bin/castingedit.pl"; $cgiurl = "$HOMEURL/casting/cgi-bin/castingedit.pl"; $REQTEXT = "include/castingedit_text.inc.pl"; $REALHT = "$DOCROOT/1flashmodels-eu"; # htacces usw. $cgicastingform = "$HOMEURL/casting/cgi-bin/castingform.pl"; $KANZEIGEN = "$HOMEURL/casting/cgi-bin/karteianzeigen.pl"; $loginurl = "$HOMEURL/casting/cgi-bin/login.pl"; #$HOMEURL ="http://www.flashModels.de"; $REAL ="$DOCROOT/1flashmodels-de"; $AGB = "http://www.flashModels.de/agb/"; $CONTACTURL = "$HOMEURL/casting/contact.php"; $guestbookreal = "$DOCROOT/1flashmodels-de/casting/kartei/casting/castingedit.html"; $LOGFILE = "$DOCROOT/1flashmodels-de/casting/kartei/casting/castinglog.html"; $LOGKARTEI = "$DOCROOT/1flashmodels-de/casting/kartei/log/logkartei.html"; $skripturlx = "http://www.flashmodels.de/casting/cgi-bin/castingeinfug.pl"; $saveurl = "$DOCROOT/1flashmodels-de/casting/kartei/temp-foto"; $saveurleinfug = "$DOCROOT/1flashmodels-de/casting/kartei/foto"; #$DATENFILE = "/home/strato/www/pa/www.pars2000.de/htdocs/1miss/casting/kartei/daten/daten.txt"; #$TEXTFILE= "/home/strato/www/pa/www.pars2000.de/htdocs/1miss/casting/kartei/daten"; $UPLOADURL ="http://www.flashmodels.de/casting/castingfileuploadform.php"; $UPLOADURL ="$HOMEURL/casting/castingfileuploadform.php"; $DELPICURL ="$HOMEURL/casting/castingfileupload.php"; $DELPICURL = "$DOCROOT/1flashmodels-de/casting/kartei/foto/"; $DELETEURL ="$HOMEURL/casting/cgi-bin/castingdelete.pl"; $picurl = "$HOMEURL/casting/kartei/foto"; $realpicurltemp = "$REAL/casting/kartei/temp-foto"; $picurltemp = "$HOMEURL/casting/kartei/temp-foto"; $picuploadurlmodel = "$HOMEURL/bewerben/bewerbungsformular.php"; $fotourl = "$HOMEURL/casting/kartei/foto"; $phpfotourl = "http://www.flashModels.de/casting/castingfoto.php"; #$phpfotourl = "http://85.214.65.218/1flashmodels-de/casting/castingfoto.php"; $NEW = ""; $NEWHORI = ""; $HGPIC = "http://www.flashModels.de/casting/grafik/casting-hintergrund.jpg"; $TABELLEHG = "http://www.flashModels.de/casting/grafik/castingtext-hintergrund.jpg"; $HGGRUN = "http://www.flashModels.de/casting/grafik/hg-grun.jpg"; $HGGRUNTOP = "http://www.flashModels.de/casting/grafik/hg-grun-top.jpg"; $HGGRUNTOP2 = "http://www.flashModels.de/casting/grafik/hg-grun-top2.jpg"; $HGBLACK = "http://www.flashModels.de/casting/grafik/hg-black.jpg"; $HGGOLD = "http://www.flashModels.de/casting/grafik/hg-gold.jpg"; $HGGOLDTOP = "http://www.flashModels.de/casting/grafik/hg-gold-top.jpg"; $HGROT = "http://www.flashModels.de/casting/grafik/hg-rot.jpg"; $HGROTTOP = "http://www.flashModels.de/casting/grafik/hg-rot-top.jpg"; $HGROTTOP2 = "http://www.flashModels.de/casting/grafik/hg-rot-top2.jpg"; $styles = "http://www.flashModels.de/casting/styles/castingkartei.css"; $pfeilurl ="http://www.flashmodels.de/ger/graf/pfeill.gif"; $FLAGEN = "http://www.flashModels.de/ger/graf/flags/en-25.gif"; $GOTOURL= "$HOMEURL/cgi-bin/goto.pl"; $date_command = "/bin/date"; $DOT ="http://www.flashmodels.de/ger/graf/dot.gif"; $ACHTUNG = ""; $DELETEPIC = ""; $DELETEPICBIG = ""; $newsletter = 0; $newslmail = "/pages/c2/d2/d0006431/home/htdocs/web/1flashmodels-de/master/mailing/adressen/tvletter.txt"; $PICFLAG2 = ""; $MAIL1 = ""; $BAROMETER100 = ""; $BAROMETER90 = ""; $BAROMETER80 = ""; $BAROMETER70 = ""; $BAROMETER60 = ""; $BAROMETER50 = ""; $BAROMETER40 = ""; $BAROMETER30 = ""; $BAROMETER20 = ""; $BAROMETER10 = ""; $HERZ = ""; $HERZ3 = ""; $MENSCHEN2 = ""; $MENSCHEN3 = ""; $GO = ""; $STOPP = ""; # Set Your Options: $mail = 0; # 1 = Yes; 0 = No $uselog = 0; # 1 = Yes; 0 = No $linkmail = 1; # 1 = Yes; 0 = No $separator = 1; # 1 =
$redirection = 0; # 1 = Yes; 0 = No
$entry_order = 1; # 1 = Newest entries added first;
# 0 = Newest Entries added last.
$remote_mail = 1; # 1 = Yes; 0 = No
$allow_html = 0; # 1 = Yes; 0 = No
$line_breaks = 1; # 1 = Yes; 0 = No
$IP = $ENV{'REMOTE_ADDR'};
$PREISFOTOTAUSCH = "19,90 Euro";
#zähler für Bildwechsel
$zmax = '4';
$zmin = '0';
# Tabelle
$RAHMEN = 880;
$br ='250';
$br1 ='255';
$sbr1 ='5';
$brunten ='650';
$sbr ='5';
$sbr2 ='120';
$mbr ='9%';
# Farben
$MBGCOLOR = "#968278";
$hell ='ffffc8';
$hg ='ffffff';
$VBG = "#2581ad";
$dunkel ='000000';
$grau = '#808080';
$orange ='#ff8000';
$mailgelb ='ffd133';
$FARBELINKS ='3C71A6';
$titel ='Suche Deinen Partner!';
# If you answered 1 to $mail or $remote_mail you will need to fill out
# these variables below:
#$mailprog = '/usr/lib/sendmail';
$mailprog = '/usr/sbin/sendmail';
$recipient = 'kontakt@flashModels.de';
$MAILNAME = 'flashModels';
$subject ='Bewerbung bei flashModels';
# Done
##############################################################################
# Get the Date for Entry
$date = `$date_command +"%d.%m.%Y-%T)"`; chop($date);
$datum = `$date_command +"%d.%m.%y %H:%M:%S "`; chop($date);
$laenge= length ($datum); # \n wird am Ende entfernt!
$datum = substr ($datum ,0,$laenge-1);
$nurdatum = `$date_command +"%d.%m.%y"`; chop($date);
$laenge= length ($nurdatum); # \n wird am Ende entfernt!
$nurdatum = substr ($nurdatum ,0,$laenge-1);
$ISODATE = `$date_command +"%Y-%m-%d"`; chop($date);
$UHRZEIT = `$date_command +"%T"`; chop($date);
$shortdate = `$date_command +"%D %T %Z"`; chop($shortdate);
$YEARNOW =`$date_command +"%Y"`; chop($date);
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
# Un-Webify plus signs and %-encoding
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
if ($allow_html != 1) {
$value =~ s/<([^>]|\n)*>//g;
}
# Eleminieren bzw. ersezten von Sonderzeichen, damit es keine Schwierigkeiten mit z.B. MySql gibt.
$value =~ s/(['"`´^])/\`/g; # Werden die Sonderzeichen eingegeben, so wird immer ` gesetzt
$value =~ s/([#])/\*/g; # Werden die Sonderzeichen # eingegeben, so wird immer * gesetzt
$FORM{$name} = $value;
}
#### Einlesen der Variablen durch ? ######
$query_string =$ENV{'QUERY_STRING'};
# ($field_name, $DATEN) = split (/=/, $query_string);
@key_value_pairs = split (/&/, $query_string);
$i=0;
foreach $key_value (@key_value_pairs)
{
$i=$i+1;
($key, $value) = split (/=/, $key_value);
$value =~ tr/+/ /;
$value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
if (defined($FORM_DATA{$key}))
{
$FORM_DATA{$key} =join ("\0", $FORM_DATA{$key}, $value);
$DATEN[$i]=$value;
}
else
{
$FORM_DATA{$key} = $value;
$DATEN[$i]=$value;
}
}
$FORMEMAIL = $DATEN[1];
$SES = $DATEN[2];
$ID = $DATEN[3];
$VAR = $DATEN[4];
$BEWERBUNGTHEMENID = $DATEN[5];
$LG = $DATEN[6];
if ( ($DATEN[2] eq 'br') or ($DATEN[2] eq 'en') )
{
$LG = $DATEN[2];
}
#print "Content-type: text/html\n\n";
#print "-$LG-";
if ($DATEN[1] =~(/\D/) )
{
}
else
{
if ($DATEN[1])
{
$ID = $DATEN[1];
$SES = $SHOWSESSION;
$LG = $DATEN[2];
if ($LG_INCLUDE)
{
$LG = $LG_INCLUDE; #
}
$DATEN[1] = "showperson";
$DATEN[2] = $SES;
$DATEN[3] = $ID;
# print "ID: -$DATEN[1]-, -$SES-";
}
}
$STARALT = "Modelagentur";
if ($LG eq 'br')
{
$STARALT = "Agência de Modelos";
}
if ($LG eq 'en')
{
$STARALT = "Model Agency";
}
$STAR = "";
#print "-$DATEN[1]-$LG-";
# $GESCHLECHT = $DATEN[2];
# $LAND = $DATEN[3];
# $ORDNER = $DATEN[4];
# $FILE = $DATEN[5];
# print "Content-type: text/html\n\n";
# print "id: $ID, geschl.: $GESCHLECHT, land: $LAND, ordner: $ORDNER, file: $FILE
";
##### Texte einlesen #######
require "$REQTEXT";
#################################################################################
$FORM{'WOHNORT'} =~ s/ae/ä/g;
$FORM{'WOHNORT'} =~ s/oe/ö/g;
$FORM{'WOHNORT'} =~ s/ue/ü/g;
$FORM{'WOHNORT'} =~ s/Ae/Ä/g;
$FORM{'WOHNORT'} =~ s/Oe/Ö/g;
$FORM{'WOHNORT'} =~ s/Ue/Ü/g;
# print "Content-type: text/html\n\n";
### Entfernen des @ damit dort keine eMail erscheint! #############
if ( $FORM{'HOMEPAGE'} =~/([\w\-\+]+)@([\w\-\+\.]+)/)
{
$FORM{'HOMEPAGE'} = "";
}
if ( $FORM{'VIDEOTITEL1'} =~/([\w\-\+]+)@([\w\-\+\.]+)/)
{
$FORM{'VIDEOTITEL1'} = "";
}
#################################################################################
$TITEL = $titel;
# Print the Blank Response Subroutines
if ($DATEN[1] eq 'cast')
{
&CAST;
}
if ($DATEN[1] eq 'sendpassword')
{
&falsepw;
}
if ($DATEN[1] eq 'savemembership')
{
&SESSIONPROOF;
&DATENEINLESEN;
&SAVEMEMBERSHIP;
}
if ($DATEN[1] eq 'savezusatz')
{
&SESSIONPROOF;
&DATENEINLESEN;
&SAVEZUSATZ;
}
if ($DATEN[1] eq 'savepersonincasthema')
{
&SAVEUSERINBEWERBUNG;
}
if ($DATEN[1] eq 'showbewerungen')
{
&SESSIONPROOF;
&SHOWBEWERBUNGEN;
}
if ($DATEN[1] eq 'startseite')
{
&SESSIONPROOF;
&DATENEINLESEN;
&TOP;
&MENU;
&STARTTEXT;
&BOTTOM;
}
if ($DATEN[1] eq 'sedfoto')
{
&SESSIONPROOF;
&DATENEINLESEN;
&TOP;
&MENU;
&SEDFOTOTAUSCH;
&BOTTOM;
}
if ($DATEN[1] eq 'seddata')
{
&SESSIONPROOF;
&DATENEINLESEN;
&TOP;
&MENU;
&SEDDATA;
&BOTTOM;
}
if ($DATEN[1] eq 'myscouterid')
{
&SESSIONPROOF;
&DATENEINLESEN;
&TOP;
&MENU;
&MYSCOUTERID;
&BOTTOM;
}
if ($DATEN[1] eq 'fotos')
{
&SESSIONPROOF;
&DATENEINLESEN;
&TOP;
&MENU;
&FOTOS;
&BOTTOM;
}
if ( ($DATEN[4] eq 'premiumaccept') and ($FORM{'PREMIUM'} eq 'einlösen') )
{
$DATEN[1] = "chmember";
$DATEN[4] = "premium";
&SESSIONPROOF;
&TOP;
&DATENEINLESEN;
&MENU;
&chmember;
&BOTTOM;
}
if ( ($DATEN[4] eq 'premiumaccept') and ($FORM{'AGB'} ne "1") )
{
&TOP;
&AGB;
&BOTTOM;
exit;
}
if ($DATEN[1] eq 'chmember')
{
&SESSIONPROOF;
&TOP;
&DATENEINLESEN;
&MENU;
&chmember;
&BOTTOM;
}
if ($DATEN[1] eq 'options')
{
&SESSIONPROOF;
&DATENEINLESEN;
&TOP;
&MENU;
&OPTIONS;
&BOTTOM;
}
if ($DATEN[1] eq 'delcastingpage')
{
&SESSIONPROOF;
&TOP;
&DATENEINLESEN;
&MENU;
&DELPAGE;
&BOTTOM;
}
if ($DATEN[1] eq 'delcastingpageOK')
{
&SESSIONPROOF;
&TOP;
&DATENEINLESEN;
&MENU;
&DELPAGEOK;
&BOTTOM;
}
if ($DATEN[1] eq 'delphoto')
{
&SESSIONPROOF;
&TOP;
&DATENEINLESEN;
$DELPICURL = "$DELPICURL$ID-$VAR.jpg";
if ( ($DATEN[7] eq 1) or ($DATEN[5] eq "modelfoto") )
{
$DELPICURL ="$REAL/p/$ID/modelphoto-$VAR.jpg";
$CHANGEMODELFOTOS = 1;
$DATEN[4] = "modelfoto";
}
unlink ($DELPICURL);
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$dbh->do("UPDATE `CASTINGKARTEIB_INFO` SET `LOCKFOTO` = '0' WHERE CASTID = '$ID' ");
$dbh->disconnect; # Von Datenbank abmelden
&MENU;
&FOTOS;
&BOTTOM;
}
if ($DATEN[1] eq 'start')
{
&SESSIONPROOF;
# $datenvonemail = 1; # einlesen der Daten von der eMailadresse
# &DATENEINLESEN;
&DATENEINLESEN;
&TOP;
&MENU;
&START;
&BOTTOM;
}
if ($DATEN[1] eq 'showperson')
{
# &SESSIONPROOF;
&KUNDENANZ;
&DATENEINLESEN;
&TOP;
&SHOWTOPPERSON;
&START;
&SHOWBOTTOMPERSON;
&BOTTOM;
}
if ($DATEN[1] eq 'saveSEDdata')
{
if (!$FORM{'SEDVORNAME'} or !$FORM{'SEDPOSTLEITZAHL'} or !$FORM{'SEDWOHNORT'} or !$FORM{'SEDLAND'} or !$FORM{'SEDGEBURTSJAHR'} or ($FORM{'SEDGEBURTSJAHR'} eq "0000")or ($FORM{'SEDGEBTAG'} eq "00") )
{
&felder;
exit;
}
if (!$FORM{'AGB'})
{
&TOP;
&AGB;
&BOTTOM;
exit;
}
&SESSIONPROOF;
&DATENEINLESEN;
&TOP;
&MENU;
&SAVESEDDATA;
&BOTTOM;
}
if ($DATEN[1] eq 'edituser')
{
&SESSIONPROOF;
&TOP;
&DATENEINLESEN;
&MENU;
&EDITUSER;
&BOTTOM;
}
if ($DATEN[1] eq 'logout')
{
&LOGOUT; # Löschen der Session
&TOP;
&LOGOUTTEXT;
&BOTTOM;
}
if ($DATEN[1] eq 'bewerben')
{
&SESSIONPROOF;
&DATENEINLESEN;
&TOP;
if ($FORM{'AGB'} eq 1)
{
# &MENU;
&TERMINETITEL;
&BEWERBUNGOK;
}
else
{
&AGB;
}
&BOTTOM;
}
if ($DATEN[1] eq 'savedata') ############################################################
{
&SESSIONPROOF;
&felder unless ($FORM{'VORNAME'} and $FORM{'NACHNAME'} and $FORM{'GESCHLECHT'} and $FORM{'GEBURTSTAG'} and $FORM{'GEBURTSMONAT'} and $FORM{'GEBURTSJAHR'} and $FORM{'POSTLEITZAHL'} and $FORM{'WOHNORT'} and $FORM{'LAND'} and $FORM{'EMAIL'} and $FORM{'STRASSE'});
&telefon unless ( ($FORM{'HANDYVORWAHL'} and $FORM{'HANDYRUFNUMMER'}) or ($FORM{'FESTNETZVORWAHL'} and $FORM{'FESTNETZRUFNUMMER'}) );
##### überprüfung ob Leerzeichen in der Telfonnummer ########
$SPACEHV = split(/ /,"$FORM{'HANDYVORWAHL'}");
$SPACEHR = split(/ /,"$FORM{'HANDYRUFNUMMER'}");
$SPACEFV = split(/ /,"$FORM{'FESTNETZVORWAHL'}");
$SPACEFR = split(/ /,"$FORM{'FESTNETZRUFNUMMER'}");
if ($FORM{'HANDYRUFNUMMER'})
{
if ( ($SPACEHV eq 1) and ( $SPACEHR eq 1) )
{
}
else
{
&telefonspace;
}
}
if ($FORM{'FESTNETZRUFNUMMER'})
{
if ( ($SPACEFV eq 1) and ( $SPACEFR eq 1) )
{
}
else
{
&telefonspace;
}
}
###########################
if ( $FORM{'EMAIL'} =~/([\w\-\+]+)@([\w\-\+\.]+)/)
{
}
else
{
&email;
}
if ($FORM{'AGB'} eq 1)
{
}
else
{
&TOP;
&AGB;
&BOTTOM;
exit;
}
if ( ($FORM{'VORNAME'}) and ($FORM{'NACHNAME'}) )
{
&SAVESQL;
}
else
{
&felder;
}
&TOP;
&DATENEINLESEN;
&MENU;
&SAVETEXT;
&START;
&BOTTOM;
}############################################################
if ($FORM{'SENDPASSWORD'} eq '1')
{
&sendpassword;
}
&passwort unless $FORM{'EMAIL'};
&passwort unless $FORM{'PASSWORT'};
&passwort unless $FORM{'passwort'};
#&check_passwort unless $FORM{'check_passwort'};
&STARTSEITE unless $FORM{'check_passwort'};
#&main1 unless $FORM{'main1'};
#&main2 unless $FORM{'main2'};
#########
# Options
# Mail Option
if ($remote_mail eq '1' && $FORM{'EMAIL'}) {
open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
print MAIL "To: $FORM{'EMAIL'}\n";
print MAIL "From: $recipient\n";
print MAIL "Subject: $FORM{'BETREFF'} \n\n";
print MAIL "$FORM{'MAILTEXT'}";
close (MAIL);
}
# Print Out Initial Output Location Heading
if ($redirection eq '1') {
print "Location: $guestbookurl\n\n";
}
else {
&no_redirection;
# print "Location: $danke\n\n";
}
#######################
# Subroutines
sub EINLESENBEWERBERDATEN
{
################
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
#$sqlbefehl="select DATE_FORMAT(BEWERBUNGSDATUM, '%d.%m.%Y'), TIME_FORMAT(BEWERBUNGSDATUM, '%H:%i:%s'), CASTID, THEMENID, ZUSATZINFO FROM $CASTINGBEWERBUNG";
#### Einlesen aller vorhandenen Themen ID`s
$sqlbefehl="select ZUSATZINFO, THEMENINFO FROM $CASTINGBEWERBUNG WHERE CASTID = '$ID' and THEMENID = '$FORM{'SHOWBEWERBER'}'";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
while (@dbrow = $sth->fetchrow_array)
{
$SQLZUSATZINFO = $dbrow[0];
$SQLZUSATZINFO =~ s/\n/
\n/g;
$SQLTHEMENINFO = $dbrow[1];
$SQLTHEMENINFO =~ s/\n/
\n/g;
# print "-----$dbrow[0]-$dbrow[1]-$dbrow[2]-$dbrow[3]--
"; # erstes Feld des Datensatzens, $dbrow[1] = zweites Feld, usw...
}
if ($FORM{'SHOWBEWERBER'})
{
$sqlbefehl="select TITEL FROM $THEMANAME WHERE ID = '$FORM{'SHOWBEWERBER'}'";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
while (@dbrow = $sth->fetchrow_array)
{
$TITELTHEMA = $dbrow[0];
}
}
$dbh->disconnect; # Von Datenbank abmelden
###############
}
sub TERMINETITEL
{
#$FORM{'THEMENID'} = 144;
# $cgiurl = "$cgiurl?action=$DATEN[1]&thema=$DATEN[2]";
##### Einlesen der Daten aus SQL Datenbank ##########################################
$sqlbefehl="select TITEL, ANZEIGESTATUS, NEW, INHALT, ANZPOS, ID, COUNTER, KID FROM $THEMANAME WHERE ID = '$FORM{'THEMENID'}'";
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
while (@dbrow = $sth->fetchrow_array)
{
$TITELTEXT = $dbrow[0];
$ANZEIGESTATUS = $dbrow[1];
$NEWINFO = $dbrow[2];
$HAUPTTEXT = $dbrow[3];
$ANZPOS = $dbrow[4];
$THEMENID = $dbrow[5];
$COUNTER = $dbrow[6];
$KID = $dbrow[7];
$MAILTITELTEXT = $TITELTEXT;
$MAILTITELTEXT =~ s/\
//g;
$THEMENtitel = $TITELTEXT;
}
print "
\n"; #print ""; #print "Damit Du Dich für das nachfolgende Thema bewerben kannst, logge Dich bitte zunächst in Deine Castingseite ein!"; ##print " Bewerbung zu nachfolgendem Thema:"; #print " | "; #print "
\n"; if ($NEWINFO eq '1') { print "$NEW"; } if ($NEWINFO eq '2') { print "$NEW$NEW"; } print " | \n"; print "\n"; if ($ANZEIGESTATUS eq '2') { print " \n$TITELTEXT\n"; } else { # print " "; print " \n$TITELTEXT\n"; } print " "; print " | \n"; print "\n"; if ($ANZEIGESTATUS eq '1') { print "$PERSONENSUCHE"; } if ($ANZEIGESTATUS eq '2') { print "$SCHONPROD"; } print " | \n"; print "
\n";
&TERMINETITEL;
#print "-$KID-$CTYP-";
if (($KID eq '1') and ($CTYP ne '1'))
{
print " ";
print "Achtung! ";
$FORM{'ZUSATZINFO'} = "";
$NOBEW = "1";
}
print " "; print "Damit Du Dein Kind zu diesem Thema anmelden bzw. bewerben kannst, ist es notwendig, dass Du für Dein Kind einen eigenen Account in der Kindermodelagentur einrichtest. Lade dort dann auch Bilder von Deinem Kind hoch. Nachdem Dein Kind einen eigenen Account hat, kannst Du Dein Kind hier anmelden bzw. bewerben. >>> Zur Anmeldung, hier klicken <<< "; print " | \n";
print "
\n"; print "\n\n | \n";
if($NOBEW ne "1")
{
print "$TEXT716";
print "";
print "\n";
if ($FORM{'EINFUG'} eq '3')
{
print " $TEXT717 "; } else { print " $TEXT717 "; } print "\n\n"; print ""; } print " | \n";
print "
";
print "";
print "$TEXT705 ";
print " | ";
print " ";
print "$TEXT707 "; print " | ";
print "
"; print ""; $TEXT713 =~ s/\[VORNAME\]/$VORNAME/g; $TEXT713 =~ s/\[NACHNAME\]/$NACHNAME/g; print "$TEXT713"; print " |
";
print "";
print "$TEXT705 ";
print " | ";
print " ";
print "$TEXT708 ( ID:$FORM{'THEMENID'} ) "; print " | ";
print "
"; $TEXT721 =~ s/\[VORNAME\]/$VORNAME/g; $TEXT721 =~ s/\[BEWERBUNGSDATUM\]/$BEWERBUNGSDATUM/g; $TEXT721 =~ s/\[BEWERBUNGSZEIT\]/$BEWERBUNGSZEIT/g; print "$TEXT721"; print " |
"; $TEXT720 =~ s/\[VORNAME\]/$VORNAME/g; $TEXT720 =~ s/\[EMAIL\]/$EMAIL/g; print "$TEXT720"; print " |
";
print "";
print "$TEXT705 ";
print " | ";
print " ";
print "$TEXT706 "; print " | ";
print "
"; print ""; print ""; print "$TEXT710"; &TERMINETITEL; print " | "; print "