#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); require "config/megatoplist.cfg"; $version="2.2 Pro"; ################################################################################ #### Megatoplist - Edit-Member-Script #### #### Version 2.2 Pro build 3 Date: 05.11.2002 #### ################################################################################ #### Programmablauf &get_form; if ($FORM{edit_account} eq "ja"){&validate_form_input;} if ($FORM{edit_final} eq "ja"){&validate_edit_final;} if ($FORM{delete_form} eq "ja") {&delete_form;} if ($FORM{delete_account_final} eq "ja") {&delete_account_final;} #### Formulardaten werden ausgelesen sub get_form { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); if ($name eq "beschreibung"){ $value =~s /%0D/
/gio; $value =~s /%0A//gio; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/ge; $value =~ s/\|//ge; if ($value =~ m/\/']'/ge; $value =~ s/[br]/
/gio; } $FORM{$name} = $value; } else { $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/ge; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/ge; $value =~ s/\|//ge; $value =~ s/\/']'/ge; $FORM{$name} = $value; chomp ($value) if ($value =~ /\n/); } } } sub validate_form_input { if ( $FORM{editaccount} eq "") { push @FEHLER , "

\n"; push @FEHLER , "Sie haben keinen Accountnamen angegeben!

\n";$fehler =1;} if ( $FORM{editpass} eq "") { push @FEHLER , "

\n"; push @FEHLER , "Sie haben kein Passwort angegeben!

\n";$fehler =1;} if ($FORM{editaccount} && $FORM{editpass}) {&check_permission;} if ($fehler){ &error;} } #### Eingabe wird mit der Datenbank verglichen sub check_permission { open (ACCOUNT, "<$userdatapath/user.dat")||die("Konnte die Datei user.dat nicht einlesen"); if ($use_flock eq "1") {flock (ACCOUNT,1);} @DATEN = ; if ($use_flock eq "1") {flock (ACCOUNT,8);} close (ACCOUNT); $gefunden = "nein"; foreach $line ( @DATEN ) { chop ($line) if ($line =~ /\n/); @AKTDATEN = split (/\|/, $line); if (($AKTDATEN[4] eq $FORM{editaccount})&&($AKTDATEN[5] eq $FORM{editpass})) { $gefunden ="ja"; @DATEN = @AKTDATEN ;} } if ($gefunden eq "ja") {&editform; } else { push @FEHLER , "

\n"; push @FEHLER , "Diese Daten wurden nicht gefunden!

\n"; push @FEHLER , "Bitte überprüfen Sie Ihre Eingabe.

"; &error; } } #### Formular zum editieren wird erstellt sub editform { $beschreibung = $DATEN[10]; $beschreibung =~s /
/\n/gio; &header; print "
\n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "\n"; print "
\n"; print "

\"$DATEN[4]\" Account editieren

  
Passwort
Wiederhohlung Passwort
Ihr Vorname
Ihr Nachname
Email
Seitenname
Beschreibung\n"; print "
Seiten-Url
Bannerurl
Bannerbreite (max. $user_banner_width Pixel)
Bannerhöhe (max. $user_banner_height Pixel)
\n"; print "\n"; print "\n"; print "\n"; print "\ \  \n"; print ""; if ($userselfdelete eq "YES"){ print "
"; print ""; print ""; print ""; print "
"; } print "
"; print " Folgendes Banner blenden wir für Sie ein:

\n"; print "

\"Ihr

\n"; print "
"; print " Systeminformationen:

\n"; print "

IP-Sperre Klick in: $minzeit_clickin Minuten
IP-Sperre Klick out: $minzeit_clickout Minuten
IP-Sperre Bewertung: $minzeit_vote Minuten
max. Bewertung pro Account: $maxvote_pro_account pro IP

\n"; print "
HTML\-Code
\n"; ### image links if ($allow_image_link eq "on") { print "

\n"; print "\n"; print "Für einen Bildlink fügen Sie bitte einen der folgenden\n"; print "HTML-Code´s in Ihre Webseite ein:\n"; print "

\n"; ### votebuttons auslesen open (ACCOUNT, "<$userdatapath/votebutton.txt")||die("Konnte die Datei votebutton.txt nicht einlesen");if ($use_flock eq "1") {flock (ACCOUNT,1);}@VOTEBUTTONS_1=;if ($use_flock eq "1") {flock (ACCOUNT,8);}close (ACCOUNT); ### Leerzeichen etc. entfernen foreach (@VOTEBUTTONS_1){if (($_ ne "")&&($_ ne "\n")){push @VOTEBUTTONS ,$_;}} foreach (@VOTEBUTTONS){ my @TEMP=split(/\|/,$_); if ($TEMP[1] eq "on") { ### Vorschaubild print "
\n"; print "\n"; print "\"$TEMP[5]\"\n"; print "\n"; print "
\n"; #### Codebox print<<"LINK";


LINK } } print "
\n"; } if ($allow_text_link eq "on"){ print "

Für einen Textlink fügen Sie bitte folgenden HTML-Code in\n"; print "Ihre Webseite ein:

\n"; print "

\ Beispiel: $text_link_linktext

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

\<p align=\"center\"\>
\n"; print "\ \<a href=\"$cgi_root_url/toplist.pl?action=click_in&account=$DATEN[4]\" target=\"_blank\"\>
$text_link_linktext
\n"; print "\</a\>\</p\>

\n"; print "
\n"; } if ($allow_iframe_link eq "on"){ print "

\n"; print "\n"; print "Für einen I-Frame fügen Sie bitte folgenden\n"; print "\ HTML-Code in Ihre Webseite ein :\n"; print "

\n"; print "

\n"; print "
\n"; print "\<!-- $title I-Frame Code Start --\>
\n"; print "\<p align\=\"center\"\>
\n"; print "\<iframe src=\"$cgi_root_url/toplist.pl?action=click_in&account=$DATEN[4]\" width=\"$iframe_width\" height=\"$iframe_height\" border=\"0\"\>\</iframe\>\</p>
\n"; print "\<!-- $title I-Frame Code Ende --\>\n"; print "

\n"; print "
\n"; } if ($allow_popup_link eq "on"){ print "

\n"; print "\n"; print "Für ein PopUp-Fenster fügen Sie bitte folgenden\n"; print "\ HTML-Code in Ihre Webseite ein :\n"; print "

\n"; print "

\n"; print "
\n"; print "\<!-- $title Code Start --\>
\n"; print "\<script\>megatoplist=window.open(\"$cgi_root_url/toplist.pl?action=click_in&account=$DATEN[4]\",\"megatoplist\",
\"resizable=1,toolbar=0,location=0,status=0,menubar=0,scrollbars=1,width=$popup_link_width,height=$popup_link_height\")\</script\>
\n"; print "\<!-- $title Code Ende --\>\n"; print "

\n"; print "
\n"; } if ($allow_popdown_link eq "on"){ print "

\n"; print "\n"; print "Für ein PopDown-Fenster fügen Sie bitte folgenden\n"; print "\ HTML-Code in den BODY-TAG Ihre Webseite ein :
\n"; print "(also hinter \<BODY und vor \> mit einem Leerzeichen hinter BODY)\n"; print "

\n"; print "

\n"; print "
\n"; print "onUnload=\"window.open('$cgi_root_url/toplist.pl?action=click_in&account=$DATEN[4]','megatoplist',\n\n'resizable=1,toolbar=0,location=0,status=0,menubar=0,scrollbars=1,width=$popdown_link_width,height=$popdown_link_height')\"
\n"; print "

\n"; print "

"; } print "
\n"; print "

$title betreten

\n"; print "
\n"; print "
\n"; &footer; } #### Accountdaten werden aktualisiert sub edit_final { $datensatz = "0"; open (ACCOUNT, "<$userdatapath/user.dat")||die("Konnte die Datei user.dat nicht einlesen"); if ($use_flock eq "1") {flock (ACCOUNT,1);} @ALLEDATEN = ; if ($use_flock eq "1") {flock (ACCOUNT,8);} close (ACCOUNT); foreach (@ALLEDATEN) { @ACCOUNTDATEN = split (/\|/, $ALLEDATEN[$datensatz]); if ($ACCOUNTDATEN[4] eq $FORM{edit_final_account}) { $changed_data = "0"; $changed_banner = "0"; ### check if something impotant changes! ==> needs to validate from toplist-webmaster if ($show_userbanner_after_registration eq "NO"){ if ($ACCOUNTDATEN[8] ne $FORM{email}) {$changed_data = "1";} if ($ACCOUNTDATEN[11] ne $FORM{seitenurl}){$changed_data = "1";} if ($ACCOUNTDATEN[12] ne $FORM{bannerurl}){$changed_data = "1";$changed_banner = "1";} } if ($changed_data eq "1") {$accountstatus = "0";} else {$accountstatus ="$ACCOUNTDATEN[18]";} if ($ACCOUNTDATEN[31] eq ""){$bannerstatus = "show_normal_banner";} if (($changed_banner eq "1")&&($show_userbanner_after_registration eq "NO")) {$bannerstatus ="show_banner_not_validate";} if ($FORM{bannerurl} eq ""){$bannerstatus="show_no_banner";} if ($changed_banner eq "0"){$bannerstatus ="$ACCOUNTDATEN[31]";} $ACCOUNTDATEN[5] = $FORM{passwort}; $ACCOUNTDATEN[6] = $FORM{vorname}; $ACCOUNTDATEN[7] = $FORM{nachname}; $ACCOUNTDATEN[8] = $FORM{email}; $ACCOUNTDATEN[9] = $FORM{seitenname}; $ACCOUNTDATEN[10] = $FORM{beschreibung}; $ACCOUNTDATEN[11] = $FORM{seitenurl}; $ACCOUNTDATEN[12] = $FORM{bannerurl}; $ACCOUNTDATEN[13] = $FORM{bannerhoehe}; $ACCOUNTDATEN[14] = $FORM{bannerbreite}; $ACCOUNTDATEN[18] = $accountstatus; $ACCOUNTDATEN[31] = $bannerstatus; } $ALLEDATEN[$datensatz] = join ("\|",@ACCOUNTDATEN); $datensatz++; } open (ACCOUNT, ">$userdatapath/user.dat")||die("Konnte die Datei user.dat nicht beschreiben"); if ($use_flock eq "1") {flock (ACCOUNT,1);} print ACCOUNT @ALLEDATEN; if ($use_flock eq "1") {flock (ACCOUNT,8);} close (ACCOUNT); ### mail to webmaster that an account has changed #### Mail an den Webmaster if (($changed_data eq "1")||($changed_banner eq "1")) { if (($email_on eq 1)&&($email_webmaster eq 1)) { open (MAIL,"|$mailpath -t"); print MAIL "To: $your_mail\n"; print MAIL "From: $your_mail\n"; print MAIL "Subject: Ein User muss freigeschaltet werden \n"; print MAIL "Content-type: text/plain\n\n"; print MAIL "Soeben hat ein Mitglied seine Daten in der Topliste geaendert.\n\n"; print MAIL "Damit dieses Mitglied wieder in der Topliste erscheint, ist es\n notwendig,"; print MAIL "dieses Mitglied in der Administrationskonsole freizuschalten\n\n"; print MAIL "Hier sind seine neue Mitgliedsdaten:\n\n"; print MAIL "Accountname: $FORM{edit_final_account} \n"; print MAIL "Passwort: $FORM{passwort}\n\n"; print MAIL "Name: $FORM{vorname},$FORM{nachname}\n"; print MAIL "Email: $FORM{email}\n"; print MAIL "Seitenurl: $FORM{seitenurl}\n"; print MAIL "Bannerurl: $FORM{bannerurl}\n\n"; print MAIL "Seitenname: $FORM{seitenname}\n"; print MAIL "Beschreibung der Seite:\n\n"; print MAIL "$FORM{beschreibung}\n\n"; print MAIL "Sie finden den neuen Eintrag in Ihrer $title: \n\n"; print MAIL "$cgi_root_url/config/admin.pl \n"; close (MAIL); } } &header; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print ""; print ""; print "
\n"; print "

\n\"$FORM{edit_final_account}\"- Account erfolgreich geändert



\n"; print "Ihre Accountdaten wurden erfolgreich gespeichert


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

Zurück zur $title

\n"; print "
\n"; &footer; } #### Daten werden ueberprueft sub validate_edit_final { @FEHLER = ""; $error = 0; if ($FORM{passwort} eq "") { push @FEHLER , "

\n"; push @FEHLER , "Sie haben kein Passwort angegeben!

\n";$error =1;} if ($FORM{confirm_passwort} eq "") { push @FEHLER , "

\n"; push @FEHLER , "Sie haben Ihr Passwort nicht bestätigt!

\n";$error =1;} unless ($FORM{passwort} eq $FORM{confirm_passwort}) { push @FEHLER , "

\n"; push @FEHLER , "Ihre Passwörter stimmen nicht überein !

\n";$error =1;} if ($FORM{vorname} eq "") { push @FEHLER , "

\n"; push @FEHLER , "Sie haben keinen Vornamen angegeben!

\n";$error =1;} if ($FORM{nachname} eq "") { push @FEHLER , "

\n"; push @FEHLER , "Sie haben keinen Nachnamen angegeben!

\n";$error =1;} if ($FORM{email} eq "") { push @FEHLER , "

\n"; push @FEHLER , "Sie haben keine E-Mailadresse angegeben!

\n";$error =1;} unless ($FORM{email} =~ /^[\w-.]+\@[\w-.]+$/ ) { push @FEHLER , "

\n"; push @FEHLER , "Sie haben keine gültige E-Mailadresse angegeben!

\n";$error =1;} if ($FORM{seitenname} eq "") { push @FEHLER , "

\n"; push @FEHLER , "Sie haben keinen Seitennamen angegeben!

\n";$error =1;} if ($FORM{beschreibung} eq "") { push @FEHLER , "

\n"; push @FEHLER , "Sie haben keine Beschreibung angegeben!

\n";$error =1;} if ($FORM{seitenurl} eq "") { push @FEHLER , "

\n"; push @FEHLER , "Sie haben keine Seiten-URL angegeben!

\n";$error =1;} unless ($FORM{seitenurl} =~ /http:\/\// ) { push @FEHLER , "

\n"; push @FEHLER , "Sie haben keine gültige Seiten-URL angegeben!

\n";$error =1;} if ($need_banner_to_register eq "YES") { if ($FORM{bannerurl} eq "") { push @FEHLER , "

\n"; push @FEHLER , "Sie haben keine Banner-URL angegeben!

\n";$error =1;} } if ($FORM{bannerurl}) { unless ($FORM{bannerurl} =~ /http:\/\// ){ push @FEHLER , "

\n"; push @FEHLER , "Sie haben keine gültige Banner-URL angegeben!

\n";$error =1;} } if ($FORM{bannerurl} && $FORM{bannerhoehe} eq "") { push @FEHLER , "

\n"; push @FEHLER , "Sie haben keine Bannerhöhe angegeben!

\n";$error =1;} if ($FORM{bannerurl} && ($FORM{bannerhoehe} > $user_banner_height)) { push @FEHLER , "

\n"; push @FEHLER , "Ihr Banner darf nicht höher als $user_banner_height Pixel sein!

\n";$error =1;} if ($FORM{bannerhoehe} =~ m/\D/ ) { push @FEHLER , "

\n"; push @FEHLER , "Bitte geben Sie als Bannerhöhe nur Zahlenwerte ein!

\n";$error =1;} if ($FORM{bannerurl} && $FORM{bannerbreite} eq "") { push @FEHLER , "

\n"; push @FEHLER , "Sie haben keine Bannerbreite angegeben!

\n";$error =1;} if ($FORM{bannerurl} && ($FORM{bannerbreite} > $user_banner_width)) { push @FEHLER , "

\n"; push @FEHLER , "Ihr Banner darf nicht breiter als $user_banner_width Pixel sein!

\n";$error =1;} if ($FORM{bannerbreite} =~ m/\D/) { push @FEHLER , "

\n"; push @FEHLER , "Bitte geben Sie als Bannerbreite nur Zahlenwerte ein!

\n";$error =1;} if ($error){&error;} else { &edit_final;} } #### delete user form sub delete_form { &header; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "

\" $FORM{delete_account} \"-Account löschen\?

\n"; print "

Bitte geben Sie zur Bestätigung Ihr Passwort ein.
Das Löschen Ihres Accounts kann später nicht mehr rückängig gemacht werden!

"; print "
Passwort:
\n"; print "


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

\n"; print "
\n"; print "
\n"; print "
\n"; &footer; } ### validate delete sub delete_account_final { if ($FORM{password} eq "") {push @FEHLER , "

\n"; push @FEHLER , "Sie müssen ein Passwort eingeben !

\n"; &error; exit; } open (ACCOUNT, "<$userdatapath/user.dat")||die("Konnte die Datei user.dat nicht einlesen"); if ($use_flock eq "1") {flock (ACCOUNT,1);} @ALLEDATEN = ; if ($use_flock eq "1"){flock (ACCOUNT,8);} close (ACCOUNT); foreach $line (@ALLEDATEN) { @ACCOUNTDATEN = split (/\|/, $line); if ($ACCOUNTDATEN[4] eq $FORM{account}) { if ($ACCOUNTDATEN[5] eq $FORM{password}){$delete=yes;} else {push @FEHLER , "

\n"; push @FEHLER , "Das Passwort ist falsch\!

\n"; $delete="no"; &error; exit; } } } if ($delete eq "yes"){ open (ACCOUNT, ">$userdatapath/user.dat")||die("Konnte die Datei user.dat nicht beschreiben"); if ($use_flock eq "1") {flock (ACCOUNT,1);} foreach $line (@ALLEDATEN) { @ACCOUNTDATEN = split (/\|/, $line); if ($ACCOUNTDATEN[4] ne $FORM{account}) { print ACCOUNT "$line"; } } if ($use_flock eq "1") {flock (ACCOUNT,8);} close (ACCOUNT); } &header; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print ""; print ""; print "
\n"; print "

\n\"$FORM{account}\"- Account erfolgreich gelöscht



\n"; print "Ihre Accountdaten wurden erfolgreich gelöscht


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

Zurück zur $title

\n"; print "
\n"; &footer; } #### Fehlermeldung wird erstellt sub error { &header; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print ""; print "
\n"; print "

\nFolgende Fehler wurden gefunden

 

\n"; print "@FEHLER"; print "

 

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

\ 

\n"; print "
\n"; &footer; } #### Html Header sub header { print "Content-type: text/html\n\n"; print "$title\n"; if ($laufleiste) { print ""; } open (DATEI,"<$cgi_root_path/config/insert/metatag.dat")||die("Konnte die Datei metatag.dat nicht einlesen"); if ($use_flock eq "1") {flock (DATEI,1);} @METATAG =; if ($use_flock eq "1") {flock (DATEI,8);} close (DATEI); foreach $line (@METATAG) { print $line; } print "\n"; print "\n"; open (DATEI,"<$cgi_root_path/config/insert/header.dat")||die("Konnte die Datei header.dat nicht einlesen"); if ($use_flock eq "1") {flock (DATEI,1);} @HEADERINSERT =; if ($use_flock eq "1") {flock (DATEI,8);} close (DATEI); foreach $line (@HEADERINSERT) { print $line; } } #### Html Footer sub footer { open (DATEI,"<$cgi_root_path/config/insert/footer.dat")||die("Konnte die Datei footer.dat nicht einlesen"); if ($use_flock eq "1") {flock (DATEI,1);} @DATEN =; if ($use_flock eq "1") {flock (DATEI,8);} close (DATEI); foreach $line (@DATEN) { print $line; } print "

Megatoplist V$version © byTopcgi.de
\n"; print "\n"; }