#!/usr/bin/perl

#############################################################
# Shopverwaltung
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Autor: Helmut Walter
# E-Mail: webmaster@inspire-net.de
# Webseite: http://www.inspire-world.de
#############################################################

use CGI::Carp qw(fatalsToBrowser);
# Dateiflock
use Fcntl qw(:DEFAULT :flock);
use CGI qw(:standard);
use CGI;
# Modul File Copy
use File::Copy;

use Archive::FRWtools;

$object = new CGI;
@names = $object->param();
%FORM = map {$_ => $object->param($_)} $object->param();
$| = 1;
##############################################################
# Name des Programms
$progname = "verwaltung.cgi";
# Name der Usershopadmin
$ushopadmin = "shopadmin.cgi";

# Benoetigte Dateien einbinden
require "setup/setup.pl";
require "setup/extraconfig.pl";
require "routinen/scriptlibrary.pl";

$copy = &copyandversion;
$hauptmenue = &hauptmenue;

#$lud = cookie("shoplogin");
#($lu1, $lu2, $lu3) = split(/\|/, $lud);
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Aufrufparameter der Haupt und Modulroutinen
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
$subaufrufparameter = $FORM{'aktion'};

if ($subaufrufparameter eq '') {
&ueberblick;
}
elsif ($subaufrufparameter =~ m/^(login|logincheck|register|sendkey|key|newshop|pwsend)$/) {
&$subaufrufparameter;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Startbildschirm
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub ueberblick {
$sektionstitel = "Willkommen auf Webshopsystem.ch - Ihr professioneller Webshop Server";
&Headerout;
print &tparser("$cgipfad/templates/usershopadmin/header.html");
print &tparser("$cgipfad/templates/usershopadmin/contentkopf.html");

print qq~
<table width="100%" cellspacing="1" cellpadding="0" border="0" class="innend">
  <tr> 
    <td class="innend" colspan="2"><b>Sie sind auf der Suche nach einem Webshop 
      System?!</b></td>
  </tr>
  <tr> 
    <td class="innenh" colspan="2"> 
      <p><b>Hier sind Sie richtig - in nur 5 Minuten, verkaufen auch Sie, Ihre 
        Produkte über Ihren eigenen Webshop!</b> <br>
        <br>
        Wir bieten Ihnen ein <b>kostenloses</b> Webshopsystem inkl. Webspace, 
        das Sie <b>sofort</b> selbst einrichten und v&ouml;llig frei anpassen 
        k&ouml;nnen. <br>
        Alle Einstellungen sind <b>"kinderleicht"</b> per Browserbasiertem Setup 
        anpassbar. <br>
    <br>Die Shopadministration kann weltweit von jedem Computer mit 
        Internetzugang, aufgerufen und administrier werden. 
        <br>
        Sie benötigen keine eigene Software, keine Programmierkentnisse und auch 
        keinen eigenen freien Webspace (Speicherplatz)! <br>
        <br>
        Klicken Sie links im Men&uuml; auf den Link <b><a href="http://www.webshopsystem.ch/cgi-bin/shopserver/login.cgi?aktion=register">"Regestrierung"</a></b> 
        um einen <b>kostenlosen</b> Webshop anzumelden, einzurichten und ausgiebig 
        zu testen. <br>
        Sind Sie bereits registrierter Benutzer geben Sie bitte ihre <a href="http://www.webshopsystem.ch/cgi-bin/shopserver/login.cgi">Zugangsdaten</a> 
        ein um die Shopverwaltung aufzurufen.<br>
      </p>
  <tr> 
    <td class="innend" colspan="2"><b>Das Webshopsystem</b> 
  </tr>
  <tr> 
    <td class="innenh" colspan="2">Das Webshopsystem ist eine professionelle Software, 
      die auf unserem Server (bei issp.at) läuft. Wir überwachen und erweitern 
      das System laufend. Erneuerungen (Updates) werden von uns angekündigt und 
      natürlich kostenlos in Ihren Webshop eingearbeitet!<br>
      <br>
      <b>Die Shop Verwaltung (Administration)</b> 
      <ol>
<li>Shopverwaltung Startseite mit Statistiken, Formular um den Shop zu schlie&szlig;en/&ouml;fnen und Newsausgabe</li>
<li>Dies beinhaltet</li>
<ul>
<li>Anzahl Shopartikel</li>
<li>Anzahl Shopbesucher</li>
<li>Kundenanzahl</li>
<li>Neue Bestellungen</li>
<li>Werbestatus (Shop mit/ohne Werbung, wie lange)</li>
<li>Shopstatus (offen/geschlossen)</li>
<li>Top 10 Artikel der Shopverk&auml;ufe</li>
</ul>
<li>Formular zum &auml;ndern der Benutzerdaten und &auml;ndern des Passwortes</li>
<li>Hilfetexte auflisten, diese k&ouml;nnen insgesamt ausgedruckt werden</li>
<li>Kontaktformular f&uuml;r Supportanfragen o.&auml;.</li>
<li><b>Shop Bestellungen</b></li>
<ul>
<li>Liste mit neu eingegangenen Bestellungen, diese k&ouml;nnen abgerufen werden und auf eine eigene Rechnungsvorlage gedruckt werden.</li>
<li>Rechnungsarchiv mit der Liste bearbeiteter Bestellungen. Hierbei k&ouml;nnen entweder alle angezeigt werden oder eine Auswahl nach Jahr und Monat.</li>
</ul>

<li><b>Shop Konfiguration mit der M&ouml;glichkeit der Anpassung von:</b></li>
<ul>
<li>Shoptitel, max. 250 Zeichen</li>
<li>Homepagelinktitel und URL nebst Target</li>
<li>Darstellungsbreite des Shop-Templates und des Shopmen&uuml;s</li>
<li>Shopwährung und MwSt Berechnung</li>
<li>Währung im Shop</li>
<li>Anzahl Artikel pro Seite im Shop, Anzahl Artikel pro Seite in Shopverwaltung, Anzahl Kunden pro Seite in Shopverwaltung</li>
<li>Max. anzuzeigende Topangebote</li>
<li>Welches Shopmenü soll genutzt werden?</li>
<ul>
	<li>Alle Kategorien/Unterkategorien sichtbar</li>
	<li>Unterkategorienauswahl von Hauptkategorie</li>
	<li>Unterkategorienauswahl mit Auswahlliste</li>
	<li>Unterkategorienauswahl in Shophauptseite</li>
</ul>
<li>Vorschaubilder und gro&szlig;e Artikelbilder in der Größe anpassen?</li>
<li>Default Ausgabereihenfolge der Shopartikel, Sortierung nach ID, Preis, Name auf und absteigend</li>

</ul>
<li>Anpassung der Zahlungsarten, Mwst. S&auml;tze, Shopinhaberdaten nebst Bankverbindung und Versandkosten</li>
<li>Einstellm&ouml;glichkeit der L&auml;nder in die geliefert wird nebst entsprechendem Versandkostenzuschlag.</li>

<li><b>Shop Design</b></li>
<ul>
<li>Vorabansicht aller Templates als Screenshots</li>
<li>Designauswahl eines Templates</li>
<li>Bearbeiten der CSS Definition</li>
<li>Header und Footer erstellen</li>
<li>Design, Inhalte der Startseite anpassen</li>
</ul>
<li><b>AGB/Impressum</b></li>
<ul>
<li>Erstellen und bearbeiten der AGB und Impressumsinformationen</li>
<li>Erstellung und Verwaltung einer Kategorisierbaren Hilfe/FAQ f&uuml;r den Shop.</li>
</ul>
<li><b>Shopuploads</b></li>
<ul>
<li>Uploadm&ouml;glichkeit f&uuml;r Dateien die im Shop Verwendung finden, dies k&ouml;nnen die AGB als Zip Datei sein, das Shoplogo oder Grafiken f&uuml;r Header/Footer</li>
</ul>
<li><b>Kundenverwaltung</b></li>
<ul>
<li>Suche nach Kunden</li>
<li>Liste aller Kunden, es besteht hier die M&ouml;glichkeit einzelnen Kunden den Einkauf auf Rechnung zu erm&ouml;glichen</li>
<li>Newsletterversand an alle im System registrierten Kunden.</li>

</ul>
<li><b>Shopkategorien, Produktfruppen und Artikel</b></li>
<ul>
<li>Anlegen von Haupt-, und Unterkategorien, diese k&ouml;nnen dabei aktiviert oder deaktiviert sein</li>
<li>Erstellen beliebiger Produktgruppendateien zur Zusammenfassung von Artikeln</li>
<li>Verwaltung von Artikeln mit vielen Einstellm&ouml;glichkeiten</li>
</ul>
<li><b>Verschiedene Shopparameter anpassen im Shopbetrieb</b></li>
<ul>
<li>Mehrwertsteuer der Artikel ändern</li>
<li>Rechnungsnummer auf 1 setzen oder anderweitig anpassen</li>
<li>Alte Rechnungen löschen</li>
</ul>

</ol>
 
<b>Shop</b>
<ol>
<li>Warenkorb wird auch beim verlassen des Shops f&uuml;r 2 Stunden gespeichert
<li>Registrierte Kunden k&ouml;nnen Benutzerdaten &auml;ndern
<li>Bestellbest&auml;tigung wird auf Wunsch als extra HTML Attachement mitgesendet
<li>Suchfunktion
<li>Topartikel auf Startseite verlinkt
<li>Kontaktformular f&uuml;r Anfragen an Shopinhaber
<li>Hilfeseite, AGB, Kontaktformular
<li>Seitenweise Anzeige der Shopartikel und Suchergebnisse
<li>Bequeme Warenkorbverwaltung
<li>Kundencenter mit Verwaltungsfunktionen der Anschrift, Passwortdaten &auml;ndern, Zugangsdaten zusenden, Optional Speicherung der Bankdaten.
</ol><br>
<br><b>Wieso kostenlos?!</b><br>
Der &quot;kostenlose&quot; Webshop ist limitiert auf 10 Produkt-Infoseiten und wird durch Sponsoren-Werbung finanziert! 
<br>Sie k&ouml;nnen natürlich jeder Zeit, auf ein kostengünstiges Webshopsystem umsteigen, bzw. die Limite der Produkt-Infoseiten erh&ouml;hen oder die Sponsoren-Werbung deaktivieren lassen.<br>
      <br>
    <tr> 
    <td class="innenh" width="51%"><b>Webshop mit Sponsoren-Werbung</b></td>
    <td class="innenh" width="49%"><b>Webshop ohne Sponsoren-Werbung</b></td>
  </tr>
  <tr> 
    <td class="innenh" width="51%"><b>Shop "mini"</b> GRATIS<br>
      Limitiert auf 10 Produkt-Infoseiten <br>
      Preis: CHF 0.-*</td>
    <td class="innenh" width="49%"><b>Shop "mini"</b><br>
      Limitiert auf 10 Produkt-Infoseiten <br>
      Preis: CHF 5.-*</td>
  </tr>
   <td class="innenh" width="51%">Weitere Angebote und Preise auf Anfrage.<br>
      <br>
      </td>
    <td class="innenh" width="49%">Weitere Angebote und Preise auf Anfrage.<br>
      <br>
      </td>
  </tr>
  <tr> 
<td width="51%">* Preis pro Monat, inkl. Webspace (Speicherplatz) </td>
  </tr>
</table>
~;
print &tparser("$cgipfad/templates/contentfuss.html");
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Registrierung
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub register {
$sektionstitel = "Shopserver - Registrierung, Schritt 1 von 2";
&Headerout;

############################################
# Evtl. abgelaufene Useranmeldungen loeschen
my $verzeichnis = "$cgipfad/tmpuser";
my $alter =  86400; # In Sekunden angeben!

opendir(DIR, $verzeichnis) || scripterror("Fehler: Kann $verzeichnis nicht oeffnen!",$!);;
while (my $entry = readdir(DIR)) {
$entry = $verzeichnis.'/'.$entry;
unless (-f $entry) {
next; # Verzeichnisse ausschließen ./ und ../
}

my @stat = stat($entry);
if ((time - $stat[8]) > $alter) {
unlink($entry);
}
}
closedir(DIR);


print &tparser("$cgipfad/templates/usershopadmin/header.html");
print &tparser("$cgipfad/templates/usershopadmin/contentkopf.html");



opendir(DIR,"$cgipfad/user");
@ufiles = grep {/^.*(\.pl$)/i} readdir DIR;
closedir(DIR);

$gesshops = @ufiles;

if ($gesshops < $maxshops) {

# AGB auslesen
open(F,"$cgipfad/setup/agb.dat")|| scripterror("Fehler: Kann $cgipfad/setup/agb.dat nicht oeffnen!",$!);
&locksh(F);
my $shopagb = join('',<F>);
close(F);

print qq~
<form action="$cgiverzeichnis/$progname" method="POST">
<input type=hidden name="aktion" value="sendkey">

<table width="100%" cellspacing="1" cellpadding="0" border="0" class="innend">
<tr>
    <td class="innend" colspan="2"><b>Schritt 1, Registrierung...</b></td>
</tr>
<tr>
    <td class="innenh" colspan="2">Erl&auml;uterungen zum Registrierungsablauf:
	<ol>
	<li>Geben Sie unterhalb zun&auml;chst die erforderlichen Daten ein, es sind alle Felder auszuf&uuml;llen.
	<li>Achten Sie darauf das Sie eine korrekte E-Mail Adresse angeben, an diese werden die
	Registrierungsinformationen gesendet.
	<li>Befolgen Sie dann die Anweisungen in der E-Mail um die Registrierung abzuschlie&szlig;en.
	<br><br>
	<span class="tippred">Wird die Registrierung nicht binnen 24 Stunden abgeschlossen verfallen die hier angegebenen Daten.</span>
	</ol>
	</td>
</tr>

<tr>
    <td class="innenh">Ihr Vor und Zuname</td>
	<td class="innenh"><input class="mb" style="width: 300px;" size="30" type="Text" name="vzname"></td>
</tr>
<tr>
    <td class="innenh">Ihre E-Mail Adresse</td>
	<td class="innenh"><input class="mb" style="width: 300px;" size="30" type="Text" name="email"></td>
</tr>
<tr>
    <td class="innenh">Ihre Homepage URL</td>
	<td class="innenh"><input class="mb" style="width: 300px;" size="30" type="Text" name="hpurl" value="http://"></td>
</tr>
<tr>
    <td class="innend" colspan="2"><b>Unsere AGB/Regeln</b></td>
</tr>
<tr>
    <td class="innenh" colspan="2">$shopagb</td>
</tr>
<tr>
    <td class="innenh">Einverstanden mit den AGB/Regeln</td>
	<td class="innenh"><input type="checkbox" name="agb" value="JA"></td>
</tr>
<tr>
    <td class="innend" colspan="2" align="center"><input type="submit" class="los" value="Absenden"></td>
</tr>
</table>
</form>
~;

} else {
print qq~
<table width="100%" cellspacing="1" cellpadding="0" border="0" class="innend">
<tr>
    <td class="innend" colspan="2"><b>Keine Anmeldungen m&ouml;glich</b></td>
</tr>
<tr>
    <td class="innenh" colspan="2"><br><br>

	<span class="tippred">Es sind derzeit leider keine Shopanmeldungen m&ouml;glich!</span>
	<br><br>
	</td>
</tr>
</table>
~;
}
print &tparser("$cgipfad/templates/contentfuss.html");
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Registrierungsinformationen und Registrierungskey senden
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub sendkey {
$sektionstitel = "Shopserver - Registrierungsdaten senden";
###############################
my $vzname = $FORM{'vzname'};
my $email = $FORM{'email'};
my $hpurl = $FORM{'hpurl'};
my $agb = $FORM{'agb'};

$vzname = datensaver($vzname);
$email = datensaver($email);
$hpurl = datensaver($hpurl);
$agb = datensaver($agb);

$email = lc($email);

# Check auf doppelte E-Mail
$vorhanden = 0;
open(PRUEFUNG,"<$cgipfad/setup/emailliste.pl") || scripterror("Fehler: Kann setup/emailliste.pl nicht oeffnen!",$!);
&lock(PRUEFUNG);
while(<PRUEFUNG>) {
($useremail,$regid) = split(/\|/,$_);
chomp $regid;
if ($email eq $useremail) {
$vorhanden = 1;
last;
}
}
close(PRUEFUNG);

if (-e "$cgipfad/tmpuser/$email.tmp") {
$vorhanden = 1;
}


$vzname =~ s/ /_/g;
$vzname = substr($vzname, 0, 50) if length($vzname) > 50;
$hpurl = substr($hpurl, 0, 150) if length($hpurl) > 150;

# Fehlerpruefung
$fehlermeldung = "";
$fehler_gefunden = "";

# -----------------------------------------------------------------------
$errormeldung = "<li>Es existiert schon ein Benutzer mit der angegebenen E-Mail Adresse.\n" ;
if ($vorhanden) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

$errormeldung = "<li>Das Feld \"Ihr Vor und Zuname\" wurde nicht oder nicht mit korrekten Daten ausgefüllt. Es sind nur Buchstaben, Bindestrich, Punkt und das Leerzeichen zugelassen.\n" ;
if (($vzname eq '') || ($vzname !~ /^([a-zA-Z-äöüÄÖÜß][a-zA-ZäöüÄÖÜß_\.\-]*)$/)) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

$errormeldung = "<li>Bitte geben Sie eine g&uuml;ltige E-Mail Adresse ein.\n";
if ($email !~ /^([a-zA-Z0-9][a-zA-Z_0-9-\.]*)(\@)([a-zA-Z0-9][a-zA-Z_0-9-\.]*[a-zA-Z0-9])(\.)([a-zA-Z0-9]*)$/) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

$errormeldung = "<li>Das Feld \"Ihre Homepage URL\" wurde nicht korrekt ausgefüllt.\n" ;
if ((length($hpurl) < 12 || $hpurl !~ /^http:\/\//)) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

$errormeldung = "<li>Die Checkbox \"Einverstanden mit den AGB/Regeln\" wurde nicht best&auml;tigt.\n" ;
if ($agb !~ /^JA$/) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

# -----------------------------------------------------------------------
if ($fehler_gefunden) {
&fehlerausgabeverwaltung;
exit;
} else {
###############################
# Daten zwischenspeichern und Mail senden
$svzname = "$vzname";
$svzname =~ s/_/ /g;

$randomid = &pw_gen("15", "3", "0");
$regtmp = "$svzname|$email|$hpurl|$agb";
&writelinie("$regtmp", "$cgipfad/tmpuser/$randomid.tmp");

$leertmp = '';
&writelinie("$leertmp", "$cgipfad/tmpuser/$email.tmp");

# Mail an User
my $mailbodyt = <<MBT;
Hallo $svzname,

in dieser E-Mail finden Sie die Registrierungsinformationen
zu der Shopanmeldung.

Bitte lesen Sie die nachfolgenden Informationen und befolgen
Sie die Hinweise um die Shopanmeldung erfolgreich abzuschliessen.

Wird die Registrierung nicht binnen 24 Stunden abgeschlossen
verfallen die angegebenen Daten automatisch.
=====================================================
1. Rufen Sie die URL auf:
$cgiverzeichnis/$progname?aktion=key

2. Geben Sie dort den Registrierschluessel ein
$randomid

3. Geben Sie dann die Benutzerdaten in das Formular ein
=====================================================
Viele Grüsse
$adminname
$sitetitel
MBT

$heutiges_datum = datumsroutine("HA");

open(MAIL,"|$mailprog -t") || scripterror("Fehler: Kann Mailprogramm nicht oeffnen!",$!);
print MAIL "Return-Path:<$adminemail>\n";
print MAIL "To: $email ($svzname)\n";
print MAIL "From: $adminemail ($sitetitel)\n";
print MAIL "Subject: Ihre Registrierungsinformationen\n\n";
print MAIL $mailbodyt;
print MAIL "\n\n";
print MAIL "Gesendet am: $heutiges_datum\n";
close MAIL;


###############################
&Headerout;
print &tparser("$cgipfad/templates/usershopadmin/header.html");
print qq~
<meta http-equiv="refresh" content="10; URL=$cgiverzeichnis/$progname">

<div align="center"><table width="98%" cellspacing="1" cellpadding="0" border="0" class="haupt">
<tr>
    <td class="topbott"><b>$sektionstitel</b></td>
</tr>
<tr>
    <td class="cont">
<!-- Haupttabelle -->
Ihre Anmeldungsdaten wurden gespeichert. Sie erhalten nun eine E-Mail mit weiteren Informationen. Bitte befolgen Sie nun die Anweisungen in der
E-Mail um die Registrierung erfolgreich abzuschlie&szlig;en.<br><br>


Sie werden in 10 Sekunden automatisch weitergeleitet, wenn ihr Browser keine Weiterleitung unterst&uuml;tzt klicken Sie bitte auf
<a href="$cgiverzeichnis/$progname">diesen Link</a>
<br><br>

<!-- Haupttabelle -->
</td>
</tr>
<tr>
<td class="topbott" align="center">$clink</td>
</tr>
</table></div>

</body>
</html>
~;
}
}



# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Userame und Registrierungskey eingeben
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub key {
$sektionstitel = "Shopserver - Registrierung, Schritt 2 von 2";
&Headerout;

print &tparser("$cgipfad/templates/usershopadmin/header.html");
print &tparser("$cgipfad/templates/usershopadmin/contentkopf.html");

print qq~
<form action="$cgiverzeichnis/$progname" method="POST">
<input type=hidden name="aktion" value="newshop">

<table width="100%" cellspacing="1" cellpadding="0" border="0" class="innend">
<tr>
    <td class="innend" colspan="2"><b>Schritt 2, Registrierung abschlie&szlig;en und Shop anlegen</b></td>
</tr>
<tr>
    <td class="innenh" colspan="2">Erl&auml;uterungen zum Registrierungsablauf:
	<ol>
	<li>Geben Sie unterhalb zun&auml;chst einen Benutzernamen an, dieser darf nur aus Buchstaben und Zahlen bestehen und sollte zwischen 5 und 15 Zeichen lang sein.
	<li>Geben Sie dann den zugesandten Registrierungsschl&uuml;ssel in das zweite Feld ein.
	<li>Sie erhalten nach absenden des Formulares alle Daten per E-Mail zugestellt um ihren Shop bearbeiten zu k&ouml;nnen.
	<br><br>
	<span class="tippred">Das Passwort wird vom System generiert, dies k&ouml;nnen Sie sp&auml;ter aber &auml;ndern im Adminbereich.</span>
	</ol>
	</td>
</tr>

<tr>
    <td class="innenh">Gew&uuml;nschter Benutzername</td>
	<td class="innenh"><input class="mb" style="width: 300px;" size="30" type="Text" name="username"></td>
</tr>
<tr>
    <td class="innenh">Registrierungsschl&uuml;ssel</td>
	<td class="innenh"><input class="mb" style="width: 300px;" size="30" type="Text" name="key"></td>
</tr>
<tr>
    <td class="innend" colspan="2" align="center"><input type="submit" class="los" value="Absenden"></td>
</tr>
</table>
</form>
~;
print &tparser("$cgipfad/templates/contentfuss.html");
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Registrierungsinformationen speichern und neuen Shop anlegen
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub newshop {
$sektionstitel = "Shopserver - Registrierungsdaten abgeschlossen";
###############################
my $username = $FORM{'username'};
my $key = $FORM{'key'};

$username = datensaver($username);
$key = datensaver($key);

# Check auf doppelten Username
$namevorhanden = 0;
open(PRUEFUNG,"<$cgipfad/setup/mitgliederliste.pl") || scripterror("Fehler: Kann setup/mitgliederliste.pl nicht oeffnen!",$!);
&lock(PRUEFUNG);
while(<PRUEFUNG>) {
($loginname,$loginid) = split(/\|/,$_);
chomp $loginid;
if ($username eq $loginname) {
$namevorhanden = 1;
last;
}
}
close(PRUEFUNG);

$wieviele = length($username);
# Fehlerpruefung
$fehlermeldung = "";
$fehler_gefunden = "";

# -----------------------------------------------------------------------
$errormeldung = "<li>Es wurde kein passender Registrierschl&uuml;ssel gefunden, bitte Eingabe &uuml;berpr&uuml;fen\n" ;
if (!-e "$cgipfad/tmpuser/$key.tmp") {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

$errormeldung = "<li>Es existiert schon ein Benutzer mit dem angegebenen Benutzernamen.\n" ;
if ($namevorhanden) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

$errormeldung = "<li>Das Feld \"Gew&uuml;nschter Benutzername\" wurde nicht oder nicht mit korrekten Daten ausgefüllt. Es sind nur Buchstaben und Zahlen zugelassen.\n" ;
if (($username eq '') || ($username !~ /^([a-zA-Z0-9äöüÄÖÜß]*)$/)) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

$errormeldung = "<li>Das Feld \"Gew&uuml;nschter Benutzername\" enth&auml;lt nicht die ben&ouml;tigte Anzahl an Zeichen. Es wurden $wieviele Zeichen angegeben, erlaubt sind zwischen 5 und 15 Zeichen. \n" ;
if ((length($username) < 5 || length($username) > 15)) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }

# -----------------------------------------------------------------------
if ($fehler_gefunden) {
&fehlerausgabeverwaltung;
exit;
} else {
###############################
# Daten speichern Shop anlegen und Mail senden
# Temp Daten lesen
@tmpusr = &DateialsZeile("$cgipfad/tmpuser/$key.tmp");

# Usernummer generieren
open(DATEI,"+<$cgipfad/setup/membercounter.pl") || scripterror("Fehler: Kann Datei setup/membercounter.pl nicht oeffnen!",$!);
&lock(DATEI);
@lastentryid = <DATEI>;
seek(DATEI,0,0);
$last_id = $lastentryid[0] + 1;
$last_id = sprintf("%6d",$last_id);
$last_id =~ tr/ /0/;
print DATEI "$last_id";
&unlock(DATEI);
close(DATEI);
chmod(0666, "$cgipfad/setup/membercounter.pl");

# wenn Datei nicht vorhanden...
if (!-e "$cgipfad/user/$last_id.pl") {
# Emailliste speichern
$emailsave = "$tmpusr[1]|$last_id\n";
&printfile("$emailsave", "$cgipfad/setup/emailliste.pl");
# Memberliste speichern
$membersave = "$username|$last_id\n";
&printfile("$membersave", "$cgipfad/setup/mitgliederliste.pl");
# Userdatei anlegen
$genpassuser = &pw_gen("10", "3", "0");
$userfiledaten = "$username|$genpassuser|$tmpusr[0]|$tmpusr[1]|$tmpusr[2]|s$last_id";
&writelinie("$userfiledaten", "$cgipfad/user/$last_id.pl");
} else {
scripterror("Fehler: Es existiert bereits eine Datei die angelegt werden soll!",$!);
exit;
}
################################
# Shopdateien anlegen

# HTML Hauptverzeichnis fuer Shoppics und dergl.
mkdir ("$htmlpfad/s$last_id",0777) || scripterror("Fehler: Kann neues HTML-Shopverzeichnis $htmlpfad/s$last_id nicht anlegen!",$!);
chmod(0777, "$htmlpfad/s$last_id");

# HTML Verzeichnis fuer kleine Shoppics
mkdir ("$htmlpfad/s$last_id/mini",0777) || scripterror("Fehler: Kann neues HTML-Shopverzeichnis $htmlpfad/s$last_id/mini nicht anlegen!",$!);
chmod(0777, "$htmlpfad/s$last_id/mini");

# HTML Verzeichnis fuer grosse Shoppics
mkdir ("$htmlpfad/s$last_id/maxi",0777) || scripterror("Fehler: Kann neues HTML-Shopverzeichnis $htmlpfad/shops/s$last_id/maxi nicht anlegen!",$!);
chmod(0777, "$htmlpfad/s$last_id/maxi");

# CGI Verzeichnis fuer Shop anlegen.
mkdir ("$cgipfad/shops/s$last_id",0755) || scripterror("Fehler: Kann neues CGI-Shopverzeichnis s$last_id nicht anlegen!",$!);
chmod(0755, "$cgipfad/shops/s$last_id");

# CGI Unterverzeichnisse fuer Shop anlegen.
mkdir ("$cgipfad/shops/s$last_id/artikel",0777) || scripterror("Fehler: Kann neues CGI-Shopverzeichnis s$last_id/artikel nicht anlegen!",$!);
chmod(0777, "$cgipfad/shops/s$last_id/artikel");

mkdir ("$cgipfad/shops/s$last_id/bestellungen",0777) || scripterror("Fehler: Kann neues CGI-Shopverzeichnis s$last_id/bestellungen nicht anlegen!",$!);
chmod(0777, "$cgipfad/shops/s$last_id/bestellungen");

mkdir ("$cgipfad/shops/s$last_id/kunden",0777) || scripterror("Fehler: Kann neues CGI-Shopverzeichnis s$last_id/kunden nicht anlegen!",$!);
chmod(0777, "$cgipfad/shops/s$last_id/kunden");

mkdir ("$cgipfad/shops/s$last_id/menue",0777) || scripterror("Fehler: Kann neues CGI-Shopverzeichnis s$last_id/menue nicht anlegen!",$!);
chmod(0777, "$cgipfad/shops/s$last_id/menue");

mkdir ("$cgipfad/shops/s$last_id/setup",0777) || scripterror("Fehler: Kann neues CGI-Shopverzeichnis s$last_id/setup nicht anlegen!",$!);
chmod(0777, "$cgipfad/shops/s$last_id/setup");

mkdir ("$cgipfad/shops/s$last_id/tmpuser",0777) || scripterror("Fehler: Kann neues CGI-Shopverzeichnis s$last_id/tmpuser nicht anlegen!",$!);
chmod(0777, "$cgipfad/shops/s$last_id/tmpuser");

mkdir ("$cgipfad/shops/s$last_id/warenkorb",0777) || scripterror("Fehler: Kann neues CGI-Shopverzeichnis s$last_id/warenkorb nicht anlegen!",$!);
chmod(0777, "$cgipfad/shops/s$last_id/warenkorb");

# .htaccess Dateien anlegen in Shopunterverzeichnissen
$htaccessfileinhalt = qq~AuthType Basic
<Limit GET>
	Order Allow,Deny
	Deny from all
</Limit>
<Limit POST>
	Order Allow,Deny
	Deny from all
</Limit>
~;
&writelinie("$htaccessfileinhalt", "$cgipfad/shops/s$last_id/artikel/.htaccess");
&writelinie("$htaccessfileinhalt", "$cgipfad/shops/s$last_id/bestellungen/.htaccess");
&writelinie("$htaccessfileinhalt", "$cgipfad/shops/s$last_id/kunden/.htaccess");
&writelinie("$htaccessfileinhalt", "$cgipfad/shops/s$last_id/menue/.htaccess");
&writelinie("$htaccessfileinhalt", "$cgipfad/shops/s$last_id/setup/.htaccess");
&writelinie("$htaccessfileinhalt", "$cgipfad/shops/s$last_id/tmpuser/.htaccess");
&writelinie("$htaccessfileinhalt", "$cgipfad/shops/s$last_id/warenkorb/.htaccess");
################################

# Dateien kopieren und CHMOD setzen
# Shophauptdatei
copy("$cgipfad/orginal/index.cgi","$cgipfad/shops/s$last_id/index.cgi") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/index.cgi kopieren!",$!);
chmod(0755, "$cgipfad/shops/s$last_id/index.cgi") || scripterror("Fehler: Kann Datei shops/s$last_id/index.cgi nicht mit chmod 755 versehen!",$!);

# Datei in artikel
copy("$cgipfad/orginal/artikel/topangebote.katalog","$cgipfad/shops/s$last_id/artikel/topangebote.katalog") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/artikel/topangebote.katalog kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/artikel/topangebote.katalog") || scripterror("Fehler: Kann Datei shops/s$last_id/artikel/topangebote.katalog nicht mit chmod 666 versehen!",$!);

# Dateien in kunden
copy("$cgipfad/orginal/kunden/emailliste.pl","$cgipfad/shops/s$last_id/kunden/emailliste.pl") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/kunden/emailliste.pl kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/kunden/emailliste.pl") || scripterror("Fehler: Kann Datei shops/s$last_id/kunden/emailliste.pl nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/kunden/membercounter.pl","$cgipfad/shops/s$last_id/kunden/membercounter.pl") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/kunden/membercounter.pl kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/kunden/membercounter.pl") || scripterror("Fehler: Kann Datei shops/s$last_id/kunden/membercounter.pl nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/kunden/mitgliederliste.pl","$cgipfad/shops/s$last_id/kunden/mitgliederliste.pl") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/kunden/mitgliederliste.pl kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/kunden/mitgliederliste.pl") || scripterror("Fehler: Kann Datei shops/s$last_id/kunden/mitgliederliste.pl nicht mit chmod 666 versehen!",$!);

# Dateien in menue
copy("$cgipfad/orginal/menue/counter.dat","$cgipfad/shops/s$last_id/menue/counter.dat") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/menue/counter.dat kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/menue/counter.dat") || scripterror("Fehler: Kann Datei shops/s$last_id/menue/counter.dat nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/menue/subcounter.dat","$cgipfad/shops/s$last_id/menue/subcounter.dat") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/menue/subcounter.dat kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/menue/subcounter.dat") || scripterror("Fehler: Kann Datei shops/s$last_id/menue/subcounter.dat nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/menue/topcat.dat","$cgipfad/shops/s$last_id/menue/topcat.dat") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/menue/topcat.dat kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/menue/topcat.dat") || scripterror("Fehler: Kann Datei shops/s$last_id/menue/topcat.dat nicht mit chmod 666 versehen!",$!);

# Dateien in setup
copy("$cgipfad/orginal/setup/agb.dat","$cgipfad/shops/s$last_id/setup/agb.dat") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/setup/agb.dat kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/setup/agb.dat") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/agb.dat nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/setup/artikelcounter.dat","$cgipfad/shops/s$last_id/setup/artikelcounter.dat") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/setup/artikelcounter.dat kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/setup/artikelcounter.dat") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/artikelcounter.dat nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/setup/floodsperre.dat","$cgipfad/shops/s$last_id/setup/floodsperre.dat") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/setup/floodsperre.dat kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/setup/floodsperre.dat") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/floodsperre.dat nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/setup/impressum.dat","$cgipfad/shops/s$last_id/setup/impressum.dat") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/setup/impressum.dat kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/setup/impressum.dat") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/impressum.dat nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/setup/mwst.dat","$cgipfad/shops/s$last_id/setup/mwst.dat") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/setup/mwst.dat kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/setup/mwst.dat") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/mwst.dat nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/setup/shopopenclosed.pl","$cgipfad/shops/s$last_id/setup/shopopenclosed.pl") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/setup/shopopenclosed.pl kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/setup/shopopenclosed.pl") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/shopopenclosed.pl nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/setup/userbank.pl","$cgipfad/shops/s$last_id/setup/userbank.pl") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/setup/userbank.pl kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/setup/userbank.pl") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/userbank.pl nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/setup/versandkosten.dat","$cgipfad/shops/s$last_id/setup/versandkosten.dat") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/setup/versandkosten.dat kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/setup/versandkosten.dat") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/versandkosten.dat nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/setup/zahlungsarten.dat","$cgipfad/shops/s$last_id/setup/zahlungsarten.dat") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/setup/zahlungsarten.dat kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/setup/zahlungsarten.dat") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/zahlungsarten.dat nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/setup/defaultdesign.pl","$cgipfad/shops/s$last_id/setup/defaultdesign.pl") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/setup/defaultdesign.pl kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/setup/defaultdesign.pl") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/defaultdesign.pl nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/setup/shopheader.html","$cgipfad/shops/s$last_id/setup/shopheader.html") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/setup/shopheader.html kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/setup/shopheader.html") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/shopheader.html nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/setup/shopfuss.html","$cgipfad/shops/s$last_id/setup/shopfuss.html") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/setup/shopfuss.html kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/setup/shopfuss.html") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/shopfuss.html nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/setup/startseitendaten.dat","$cgipfad/shops/s$last_id/setup/startseitendaten.dat") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/setup/startseitendaten.dat kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/setup/startseitendaten.dat") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/startseitendaten.dat nicht mit chmod 666 versehen!",$!);

copy("$cgipfad/orginal/setup/selbstabholer.dat","$cgipfad/shops/s$last_id/setup/selbstabholer.dat") || scripterror("Fehler: Kann Datei nicht nach shops/s$last_id/setup/selbstabholer.dat kopieren!",$!);
chmod(0666, "$cgipfad/shops/s$last_id/setup/selbstabholer.dat") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/selbstabholer.dat nicht mit chmod 666 versehen!",$!);


# CSS Datei kopieren
copy("$htmlpfad/defaultcss/design.css","$htmlpfad/s$last_id/design.css") || scripterror("Fehler: Kann Datei nicht nach s$last_id/design.css kopieren!",$!);
chmod(0666, "$htmlpfad/s$last_id/design.css") || scripterror("Fehler: Kann Datei s$last_id/design.css nicht mit chmod 666 versehen!",$!);



open(FILE,">$cgipfad/shops/s$last_id/setup/usershopsetup.pl") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/usershopsetup.pl nicht oeffnen!",$!);
print FILE qq~###########################################
# Shopsetupdaten
###########################################
# Shopnummer
\$shopnummer = "s$last_id";
# Shoptitel fuer Browsertitelzeile
\$shoptitel = "Mein Webshop - webshopsystem.ch";
# Shopinhabername
\$shopinhabername = "$tmpusr[0]";
#  Shopinhaberemail
\$shopkontaktmail = '$tmpusr[1]';
# Homepagelink und Parameter in Fusszeile
\$shopbottomlink = "$tmpusr[2]";
\$shopbottomtext = "Homepage";
\$shopbottomtarget = "_blank";
# Kundenregistration notwendig fuer Einkauf?
\$nurreg = "JA";
# Artikel pro Seite
\$aps = "4";
# Verwendete Waehrung
\$geld = "EUR";
# Verwendetes Menue static/dynamic
\$menueart = "static";
# Kontodaten im Impressum JA/NEIN
\$zk = "NEIN";
###########################################
1;
~;
close(FILE);
chmod(0666, "$cgipfad/shops/s$last_id/setup/usershopsetup.pl") || scripterror("Fehler: Kann Datei shops/s$last_id/setup/usershopsetup.pl nicht mit chmod 666 versehen!",$!);

# Shopstatistikdatei
my $regdat = &aktuelles_datum();
$reglogfiledaten = "$regdat|||0|||";
&writelinie("$reglogfiledaten", "$cgipfad/shopstat/s$last_id.pl");



################################
# Mail an User
my $mailbodyt = <<MBT;
Hallo $tmpusr[0],

ihr Shop wurde erfolgreich angelegt. Sie finden in dieser Mail
alle notwendigen Daten um den Shop zu verwalten. Bitte bewahren
Sie diese E-Mail gut auf.
=====================================================
1. URL zum Login der Shopadministration:
$cgiverzeichnis/$progname?aktion=login

Ihr Username und das Passwort zum Login
Username: $username
Passwort: $genpassuser (kann im Adminbereich geändert werden)

2. URL zum aufrufen des Shops
$cgiverzeichnis/shops/s$last_id/index.cgi
=====================================================

Wir wünschen viel Spass und Erfolg mit Ihrem Webshop.
 
Viele Grüsse
$adminname

$sitetitel
MBT

$heutiges_datum = datumsroutine("HA");

open(MAIL,"|$mailprog -t") || scripterror("Fehler: Kann Mailprogramm nicht oeffnen!",$!);
print MAIL "Return-Path:<$adminemail>\n";
print MAIL "To: $tmpusr[1] ($tmpusr[0])\n";
print MAIL "From: $adminemail ($sitetitel)\n";
print MAIL "Subject: Ihr Shop wurde angelegt\n\n";
print MAIL $mailbodyt;
print MAIL "\n\n";
print MAIL "Gesendet am: $heutiges_datum\n";
close MAIL;

################################
# Mail an Admin
my $mailbodyta = <<MBT;
Hallo $adminname,

es wurde ein neuer Shop erfolgreich angelegt.
=====================================================
Die gespeicherten Benutzerdaten hierzu:
E-Mail: $tmpusr[1]
Name: $tmpusr[0]
Homepage URL: $tmpusr[2]

Username und das Passwort zum Login
Username: $username
Passwort: $genpassuser

2. URL zum aufrufen des Shops
$cgiverzeichnis/shops/s$last_id/index.cgi

2. URL zum aufrufen des Adminbereiches
$cgiverzeichnis/admin.cgi
=====================================================
MBT



open(MAIL,"|$mailprog -t") || scripterror("Fehler: Kann Mailprogramm nicht oeffnen!",$!);
print MAIL "Return-Path:<$adminemail>\n";
print MAIL "To: $adminemail ($sitetitel)\n";
print MAIL "From: $adminemail ($sitetitel)\n";
print MAIL "Subject: Neuer Shop angelegt\n\n";
print MAIL $mailbodyta;
print MAIL "\n\n";
print MAIL "Gesendet am: $heutiges_datum\n";
close MAIL;



###############################
# Temporaere User Dateien loeschen
unlink("$cgipfad/tmpuser/$key.tmp");
unlink("$cgipfad/tmpuser/$tmpusr[1].tmp");
###############################


&Headerout;
print &tparser("$cgipfad/templates/usershopadmin/header.html");
print qq~
<meta http-equiv="refresh" content="10; URL=$cgiverzeichnis/$progname">

<div align="center"><table width="98%" cellspacing="1" cellpadding="0" border="0" class="haupt">
<tr>
    <td class="topbott"><b>$sektionstitel</b></td>
</tr>
<tr>
    <td class="cont">
<!-- Haupttabelle -->
Ihre Anmeldungsdaten wurden gespeichert und der Shop angelegt. Sie erhalten nun eine E-Mail mit allen n&ouml;tigen Informationen.
<br><br>

Sie werden in 10 Sekunden automatisch weitergeleitet, wenn ihr Browser keine Weiterleitung unterst&uuml;tzt klicken Sie bitte auf
<a href="$cgiverzeichnis/$progname">diesen Link</a>
<br><br>

<!-- Haupttabelle -->
</td>
</tr>
<tr>
<td class="topbott" align="center">$clink</td>
</tr>
</table></div>

</body>
</html>
~;
}
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Loginformular und Passwortversand fuer registrierte Benutzer
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub login {
$sektionstitel = "Login und Passwort versenden Formular";
&Headerout;
print &tparser("$cgipfad/templates/usershopadmin/header.html");
print &tparser("$cgipfad/templates/usershopadmin/contentkopf.html");

print qq~
<div align="center">
<form action="$cgiverzeichnis/$progname" method="POST">
<input type="hidden" name="aktion" value="logincheck">

<table width="100%" border="0" cellspacing="1" cellpadding="0" class="innend">
<tr>
    <td class="innend" colspan="2"><b>&#187; Login f&uuml;r Shopadministration</b></td>
</tr>
<tr>
    <td class="innenh" width="50%" colspan="2" align="center"><span class="tippred">$loginfehlertext</span> &nbsp;</td>
</tr>
<tr>
    <td class="innenh" width="50%">Shopinhaber Username</td>
    <td class="innenh" width="50%"><input class="mb" style="width: 160px;" type="text" name="loginuser" size="20" maxlength="50" autocomplete=off></td>
</tr>
<tr>
    <td class="innenh">Shopinhaber Passwort</td>
    <td class="innenh"><input class="mb" style="width: 160px;" type="password" name="loginpass" size="20"  maxlength="50" autocomplete=off></td>
</tr>
<tr>
    <td class="innenh" colspan="2"><b>Hinweis!</b><br>
	Bitte sicherstellen das der Browser Cookies akzeptiert, ansonsten ist kein Login m&ouml;glich.
	</td>
</tr>
<tr>
    <td class="innend" colspan="2" align="center"><input style="width: 100px;" class="los" type="submit" value="Login"></td>
</tr>
</table>
</form>

<br><br><br>
<form action="$cgiverzeichnis/$progname" method="POST">
<input type="hidden" name="aktion" value="pwsend">

<table width="100%" border="0" cellspacing="1" cellpadding="0" class="innend">
<tr>
    <td class="innend" colspan="2"><b>&#187; Zugangsdaten vergessen?</b></td>
</tr>
<tr>
    <td class="innenh" width="50%" colspan="2">Geben Sie ihre E-Mail Adresse an um die Zugangsdaten zu ihrem Shop zu erhalten</td>
</tr>
<tr>
    <td class="innenh" width="50%">E-Mail Adresse</td>
    <td class="innenh" width="50%"><input class="mb" style="width: 160px;" type="text" name="shopemail" size="20" maxlength="50" autocomplete=off></td>
</tr>

<tr>
    <td class="innend" colspan="2" align="center"><input style="width: 150px;" class="los" type="submit" value="Zugangsdaten senden"></td>
</tr>
</table>
</form>
</div>
~;
print &tparser("$cgipfad/templates/contentfuss.html");
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Logincheck und Cookiesetzen
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub logincheck {

my $loginpass = $FORM{'loginpass'};
my $loginuser = $FORM{'loginuser'};

$loginpass = datensaver($loginpass);
$loginuser = datensaver($loginuser);

if ($loginpass eq '' || $loginuser eq '') {
$loginfehlertext = "Keine oder falsche Daten eingegeben!";
&login($loginfehlertext);
exit;
}

my @zeilendaten =();
my @gesuchte =();
my $linie;
open(DATEI, "<$cgipfad/setup/mitgliederliste.pl") || scripterror("Fehler: Kann $cgipfad/setup/mitgliederliste.pl nicht oeffnen!",$!);
&lock(DATEI);
while ($linie = <DATEI>) {
chomp($linie);
@zeilendaten = split(/\|/, $linie);
if ($loginuser eq $zeilendaten[0]) {
$memberfile = "$zeilendaten[1]";
#@gesuchte = split(/\|/, $linie);
last;
}
}
close(DATEI);


unless (-e "$cgipfad/user/$memberfile.pl") {
$loginfehlertext = "Keine oder falsche Daten eingegeben!";
&login($loginfehlertext);
exit;
}

my @openuser = &DateialsZeile("$cgipfad/user/$memberfile.pl");
my $salt = "sz";
my $cryptedlogin = crypt($loginpass, $salt);
my $cryptedopenuser = crypt($openuser[1], $salt);
if (($loginuser eq $openuser[0]) && ($cryptedlogin eq $cryptedopenuser)) {
print "Set-Cookie: shoplogin=$openuser[0]|$cryptedopenuser|$openuser[5]; \n";

# Loginlog
my $aktuelles_datum = &aktuelles_datum();
my @st = &DateialsZeile("$cgipfad/shopstat/$openuser[5].pl");
$printlogfiledaten = "$st[0]|$aktuelles_datum|$st[2]|$st[3]|$st[4]|$st[5]|$st[6]";
&writelinie("$printlogfiledaten", "$cgipfad/shopstat/$openuser[5].pl");



print "Location: $cgiverzeichnis/$ushopadmin \n\n";
} else {

$loginfehlertext = "Keine oder falsche Daten eingegeben!";
&login($loginfehlertext);
exit;
}
}




# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Vergessene Zugangsdaten senden
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub pwsend {
$sektionstitel = "Zugangsdaten senden";

my $shopemail = $FORM{'shopemail'};
$shopemail = lc($shopemail);

# Festellen der Shopid = Userdateinummer
my $sidfound = 0;
open(CHECK,"<$cgipfad/setup/emailliste.pl") || scripterror("Fehler: Kann setup/emailliste.pl nicht oeffnen!",$!);
&lock(CHECK);
while(<CHECK>) {
my ($regmail,$shopnum) = split(/\|/,$_);
chomp $shopnum;
if ($shopemail eq $regmail) {
$shopnummer = "$shopnum";
$sidfound = 1;
last;
}
}
close(CHECK);

# Fehlerpruefung
$fehlermeldung = "";
$fehler_gefunden = "";

# -----------------------------------------------------------------------
$errormeldung = "<li>Zu der angegebenen E-Mail Adresse wurden keine Daten gefunden!\n" ;
if (!$sidfound) {
$fehlermeldung = $fehlermeldung.$errormeldung ;
$fehler_gefunden = 1 ; }
# -----------------------------------------------------------------------
if ($fehler_gefunden) {
&fehlerausgabeverwaltung;
exit;
} else {

my @userfile = &DateialsZeile("$cgipfad/user/$shopnummer.pl");

################################
# Mail an User
my $pwmailbodyt = <<MBT;
Hallo $userfile[2],

in dieser Mail finden Sie die angeforderten Zugangsdaten fuer
ihren Shop. Bitte bewahren Sie diese E-Mail gut auf.
=====================================================
1. URL zum Login der Shopadministration:
$cgiverzeichnis/$progname?aktion=login

Ihr Username und das Passwort zum Login
Username: $userfile[0]
Passwort: $userfile[1]

2. URL zum aufrufen des Shops
$cgiverzeichnis/shops/s$shopnummer/index.cgi
=====================================================
Viele Gruesse
$adminname

$sitetitel
MBT

$heutiges_datum = datumsroutine("HA");

open(MAIL,"|$mailprog -t") || scripterror("Fehler: Kann Mailprogramm nicht oeffnen!",$!);
print MAIL "Return-Path:<$adminemail>\n";
print MAIL "To: $userfile[3] ($userfile[2])\n";
print MAIL "From: $adminemail ($sitetitel)\n";
print MAIL "Subject: Ihre Zugangsdaten\n\n";
print MAIL $pwmailbodyt;
print MAIL "\n\n";
print MAIL "Gesendet am: $heutiges_datum\n";
close MAIL;


&Headerout;
print &tparser("$cgipfad/templates/usershopadmin/header.html");
print qq~
<meta http-equiv="refresh" content="10; URL=$cgiverzeichnis/$progname?aktion=login">

<div align="center"><table width="98%" cellspacing="1" cellpadding="0" border="0" class="haupt">
<tr>
    <td class="topbott"><b>$sektionstitel</b></td>
</tr>
<tr>
    <td class="cont">
<!-- Haupttabelle -->
Ihre Zugangsdaten wurden gefunden, Sie erhalten nun eine E-Mail mit allen n&ouml;tigen Informationen.
<br><br>
Sie werden in 10 Sekunden automatisch weitergeleitet, wenn ihr Browser keine Weiterleitung unterst&uuml;tzt klicken Sie bitte auf
<a href="$cgiverzeichnis/$progname?aktion=login">diesen Link</a>
<br><br>

<!-- Haupttabelle -->
</td>
</tr>
<tr>
<td class="topbott" align="center">$clink</td>
</tr>
</table></div>

</body>
</html>
~;
}
}


# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Fehlermeldungen ausgeben
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub fehlerausgabeverwaltung {
$sektionstitel = "Fehler festgestellt!";
&Headerout;
print &tparser("$cgipfad/templates/usershopadmin/header.html");
print &tparser("$cgipfad/templates/usershopadmin/contentkopf.html");

print qq~
<br><br>
<ol>
$fehlermeldung
</ol>
<br>

<div align="center"><a href="javascript:history.go(-1)">Zurück</a></div>
~;

print &tparser("$cgipfad/templates/usershopadmin/contentfuss.html");
exit;
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Hauptmenue ausgeben fuer Registrierung, PW vergessen und Login
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub hauptmenue {
$hauptmenueinhalt = &tparser("$cgipfad/templates/usershopadmin/hauptmenue.html");
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #