#!/usr/bin/perl #Module use DBI; use File::Copy; #use Image::Size; use GD; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard); use CGI::Cookie; ##### Zugang zur Datenbank ####### require "include/login.inc.pl"; # Set Variables $HOMEURL ="http://www.flashModels.de"; $HOMEURL = "http://85.214.65.218/1flashmodels-de"; $HOMEURL = "http://www.flashmodels.de"; $REAL ="/home/strato/http/premium/rid/77/47/59867747/htdocs/server/1flashmodels-de"; $cgiurl = "$HOMEURL/casting/cgi-bin/login.pl"; $REQTEXT = "include/login_text.inc.pl"; #$cgiurl = "login.pl"; $SHOWPERSON = "$HOMEURL/casting/cgi-bin/castingedit.pl"; #$SHOWPERSON2 = "http://www.flashmodels.de/casting/cgi-bin/castingedit.pl"; $SHOWPERSON2 = "castingedit.pl"; $emailcgiurl = "$HOMEURL/cgi-bin/1miss/tool-log/newsletteradmin.pl"; $emailcgiurl = "$HOMEURL/login/cgi-bin/tool-log/newsletteradmin.pl"; $BNurl = "$HOMEURL/casting/cgi-bin/log/passwort.pl"; $mastersession = "dhez222djdujMnX666awrhhi"; $MASTERPW2 = "xyx"; $ANZEIGEN = "$HOMEURL/casting/cgi-bin/karteianzeigen.pl"; $saveurl = "$REAL/casting/kartei/temp-foto"; $saveurleinfug = "$REAL/casting/kartei/foto"; #$DATENFILE = "/home/strato/www/pa/www.pars2000.de/htdocs/1miss/casting/kartei/daten/daten.txt"; $LOGKARTEI = "$REAL/casting/kartei/log/logkartei.html"; $LOGFALSE = "$REAL/casting/kartei/log/logfalse.html"; $LOGOK = "/$REAL/casting/kartei/log/logok.html"; $LOGFILE = "$REAL/casting/kartei/daten/log.txt"; $LOGFILEFALSE = "$REAL/casting/kartei/daten/logfalse.txt"; #$TEXTFILEX = "/home/strato/www/pa/www.pars2000.de/htdocs/1miss/casting/kartei/daten"; $MITGLIEDER = "$HOMEURL/casting/cgi-bin/castingedit.pl"; $PICMAIL = ""; $PICMAILNO = ""; $PICSHOWDATAGIF = ""; $PICSHOWDATAGIFON = ""; $PICSHOWDATANOGIF = ""; $PICSHOWDATAGIFON2 = ""; $PICSHOWDATAGIF2 = ""; $PICFLAG2 = ""; $PICFLAG2NO = ""; $PICFLAG3 = ""; $PICFLAG3NO = ""; $PICFLAG6 = ""; $PICFLAG6NO = ""; $PICgrunaus = ""; $PICgrunblink = ""; $PICgelbaus = ""; $PICgelbblink = ""; $PICrotaus = ""; $PICrotblink = ""; $PERSONENSUCHE = ""; $SCHONPROD = ""; $INFOBLOCK = ""; $INFOBLOCKOFF = ""; $INFOANSCHRIFT = ""; $INFOANSCHRIFTOFF = ""; $picurl = "$HOMEURL/casting/kartei/temp-foto"; $fotourl = "$HOMEURL/casting/kartei/foto"; $phpfotourl = "$HOMEURL/casting/castingfoto.php"; $pfeilurl ="$HOMEURL/ger/graf/pfeill.gif"; $cgiurlTERMINE = "$HOMEURL/cgi-bin/terangshow.pl"; $DELETEURL ="$HOMEURL/casting/cgi-bin/castingdelete.pl"; $date_command = "/bin/date"; $TABELLEHG = "http://www.flashModels.de/casting/grafik/castingtext-hintergrund.jpg"; $styles = "http://www.flashModels.de/casting/styles/castingkartei.css"; $TITEL = "Castingkartei - Loginbereich von flashModels.de"; $COPYRIGHT = "Copyright: HOTPIXEL / Patrik Perteck"; # 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'};
#zähler für Bildwechsel
$zmax = '4';
$zmin = '0';
# Tabelle
$br ='250';
$br1 ='255';
$sbr1 ='5';
$brunten ='650';
######## Fotogrösse (Breite) in der Karteivorschau
$BREITEKLEIN = 100;
$sbr ='5';
$sbr2 ='120';
$mbr ='9%';
# Farben
$hell ='ffffc8';
$hg ='#ffb900';
$dunkel ='000000';
$grau = '#808080';
$orange ='#ff8000';
$dunkelgrau ='585858';
$mailgelb ='ffd133';
$FARBELINKS ='3C71A6';
# 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 = 'casting@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 "`; chop($date);
$monatnow = `$date_command +"%m"`; chop($date);
$monatnow = substr ($monatnow ,0,2);
$jahrnow = `$date_command +"%Y"`; chop($date);
$jahrnow = substr ($jahrnow ,0,4);
$shortdate = `$date_command +"%D %T %Z"`; chop($shortdate);
$YEARNOW =`$date_command +"%Y"`; chop($date);
$nurdatum = `$date_command +"%d.%m.%y"`; chop($date);
$laenge= length ($nurdatum); # \n wird am Ende entfernt!
$nurdatum = substr ($nurdatum ,0,$laenge-1);
$nurzeit = `$date_command +"%T"`; chop($date);
$laenge= length ($nurzeit); # \n wird am Ende entfernt!
$nurzeit = substr ($nurzeit ,0,$laenge-1);
############ Texte #######################################################
$TEXTHAUPTSEITE = "Copyright © 2001-$YEARNOW HOTPIXEL/P.Perteck
\n
Alle Rechte vorbehalten.
Mit der Benutzung dieser Website erkennen Sie die flashModels-AGB an.
Der Betreiber von flashModels übernimmt keine Haftung für den Inhalt verlinkter externer Internetseiten.
Die Verwendung der Texte und Bilder - auch auszugsweise- ohne Genehmigung ist strafbar.
Kontakt/Impressum";
# 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;
}
}
$ID = $DATEN[1];
$GESCHLECHT = $DATEN[2];
$LAND = $DATEN[3];
$ORDNER = $DATEN[4];
$FILE = $DATEN[5];
$LG = $DATEN[6];
$THID = $DATEN[2]; # Für direkte Anzeige der Bewerber
if ($FORM{'SHOWBEWERBER'})
{
$THID = $FORM{'SHOWBEWERBER'};
}
if ( ($DATEN[3] eq "en") or ($DATEN[3] eq "br") )
{
$LG = $DATEN[3];
}
if ($FORM{'LG'})
{
$LG = $FORM{'LG'};
}
# print "Content-type: text/html\n\n";
# print "id: $ID, geschl.: $GESCHLECHT, land: $LAND, ordner: $ORDNER, file: $FILE
";
##### Texte einlesen #######
require "$REQTEXT";
# Print the Blank Response Subroutines
if ( ($DATEN[1]) and ($DATEN[2] eq "add") )
{
&add;
}
if ( ($DATEN[1]) and ($DATEN[2] eq "infotext") )
{
&infotext;
}
if ($DATEN[1] eq "aktual")
{
$FORM{'main0'} = "ok";
$FORM{'PASSWORT'} = $DATEN[5];
$FORM{'CODE'} = $DATEN[4];
$FORM{'BENUTZERNAME'} = $DATEN[3];
$FORM{'willkommen'} = 1;
$FORM{'SHOWBEWERBER'} = $DATEN[2];
$FORM{'ANZMOD'} = 35;
}
if ($DATEN[1] eq "hauptmenu")
{
# $FORM{'main0'} = "ok";
$FORM{'main1'} = "ok";
$FORM{'PASSWORT'} = $DATEN[5];
$FORM{'CODE'} = $DATEN[4];
$FORM{'BENUTZERNAME'} = $DATEN[3];
$FORM{'willkommen'} = 1;
# $FORM{'SHOWBEWERBER'} = $DATEN[2];
$FORM{'ANZMOD'} = 35;
}
if ( ($DATEN[1] eq 'mailflag') or ($DATEN[1] eq 'flag2') or ($DATEN[1] eq 'flag3') or ($DATEN[1] eq 'flag4') or ($DATEN[1] eq 'flag5') or ($DATEN[1] eq 'flag6') or ($DATEN[1] eq 'showpersondata') )
{
&SETFLAG;
}
&passwort unless ($FORM{'PASSWORT'} and $FORM{'BENUTZERNAME'});
&willkommen unless $FORM{'willkommen'};
&main0 unless $FORM{'main0'};
&main1 unless $FORM{'main1'};
#&main2 unless $FORM{'main2'};
#&main2a unless $FORM{'main2a'};
#&main3 unless $FORM{'main3'};
#########
# Options
#######################
# Subroutines
sub passwort {
print "Content-type: text/html\n\n";
print "";
print "