#!/usr/bin/perl # ========================================================================================== # Copyright (c) 1998-2002 HIS Internet Soft GmbH, info@his-webshop.de. All rights reserved. # http://www.his-webshop.de/ # .......................................................................................... # HIS WebShop 2.50 -- Online Shop mit Warenkorbsystem # Version: 26.03.2002 # # ----- LIZENZBESTIMMUNG ------ # # 1. Dieses Programm (HIS WebShop) darf nur unter folgenden Bedingungen eingesetzt # werden: # (1) Die Internet Domain des Shops muss für das HIS WebShop Shopsystem # lizensiert sein (Ausstellung bei: info@his-webshop.de). # (2) Eine Lizenz ist immer gültig für nur einen Shop. Werden mehrere Shops # unterschiedlicher Firmen auf einer Domain betrieben, so muss für jeden # einzelnen Shop das Shopsystem lizensiert werden (Rabatte sind möglich!). # # Der unbegrenzte Einsatz des Shopsystems ist erst nach Eingabe eines Registrier Keys # möglich. Ein Registrier Key gilt dabei immer für eine bestimmte Domain. # Beim Erwerb einer Lizenz erhalten Sie den gültigen Registrier Key für die Domain. # Aktuelle Konditionen zum Erwerb einer Lizenz finden Sie auf der HIS WebShop # Homepage: http://www.his-webshop.de/ # # 2. Der Konfigurations-Teil darf geändert werden. Alle anderen Teile des Quellcodes sind # urherberrechtlich geschützt. Eine Änderung bedarf der Einwilligung des Autors. # # 3. Die Weitergabe des Programms an Dritte ist nicht gestattet. # ========================================================================================== # ==============================KONFIGURATIONS-TEIL BEGINN================================== # ========================================================================================== # DIE FOLGENDEN VARIABLEN BITTE ANPASSEN! # Wenn das Skript NICHT laufen sollte, liegt es meistens an fehlerhaften # Konfigurationsvariablen. # WICHTIG: # Bei $email muessen fuer die Zuweisung 'einfache' Anfuehrungsstriche gesetzt werden. # Bei allen anderen Strings genuegen "doppelte" Anfuehrungsstriche. # ========================================================================================== # ==============================KONFIGURATIONS-TEIL BEGINN================================== # ========================================================================================== # DIE FOLGENDEN VARIABLEN BITTE ANPASSEN! # Wenn das Skript NICHT laufen sollte, liegt es meistens an fehlerhaften # Konfigurationsvariablen. # WICHTIG: # Bei $email muessen fuer die Zuweisung 'einfache' Anfuehrungsstriche gesetzt werden. # Bei allen anderen Strings genuegen "doppelte" Anfuehrungsstriche. # ========================================================================================== # Ersetzen Sie www.firma.de durch Ihre Domain!!!! $rc{"www.cbio.info"}="0379102231040"; # Hier geben Sie Ihren 13-stelligen Registrier-Key ein!!!! WICHTIG !!!! $email='order01@cbio.info'; # Ihre E-Mail (Wichtig fuer die Bestellungsmail) $bcc_email=''; # Die E-Mail an den Shopinhaber kann zusätzlich als BCC (Blind Carbon Copy) # zum Beispiel an einen Administrator verschickt werden. $profiledirectory="/kunden/homepages/33/d23684884/htdocs/cbio/cgi-bin/kunden/"; # Verzeichnis, wo Kundendaten (Profile fuer Warenkorb) # gespeichert werden sollen. $tempdirectory="/kunden/homepages/33/d23684884/htdocs/cbio/cgi-bin/template/"; # Verzeichnis, wo sich die Templates (HTML und Mail) befinden. $datadirectory="/kunden/homepages/33/d23684884/htdocs/cbio/cgi-bin/daten/"; # Verzeichnis, wo sich die aus einer Datenbank # exportierte Textdatei befindet. $globaltxt="/kunden/homepages/33/d23684884/htdocs/cbio/cgi-bin/daten/global.txt"; # Pfad zur Konfig. Datei mit globalen Variablen! # Aufbau der Datei: # MWST;16 # WAEHRUNG;DM # usw. # In den Templates können die Globalen Variablen dann so # verwendet werden: [G_MWST] [G_WAEHRUNG] usw. $max_minuten_inaktiv=30; # Wenn laenger als $max_minuten_inaktiv kein Zugriff auf einen # Warenkorb registriert wurde, wird das Profil geloescht. Voreinstellung: 30 Minuten. $min_userid=1000; # Die minimale User-ID (Bestellnr.), die vergeben wird. $max_userid=9999; # Die max. User-ID (Bestellnr.), die vom System vergeben wird. $sendmail_def=0; # 0: Mails per UNIX-Programm Sendmail verschicken # 1: Mails per SMTP-Server verschicken # ------- Falls sendmail_def=0 ausgewählt --------- $mailprog = "/usr/sbin/sendmail"; # Externes Mail-Programm sendmail. Pfad kann auch z.B. auf Ihrem # Host auch "/usr/sbin/sendmail" sein. # ------------------------------------------------- # ------- Falls sendmail_def=1 ausgewählt --------- $mail_smtp_server="mail.IhreDomain.de"; # Mail-Server für ausgehende (Bestellungs) Mails # z.B. mail.IhreDomain.de # ------------------------------------------------- $subject_user_mail="Ihre Bestellung aus dem CBIO Shop"; # Betreff der Kundenmail. $subject_shop_mail="Ihre Bestellung aus dem CBIO Shop"; # Betreff der Bestellungseingangsmail. $dif_porto=1; # Wählen Sie hier aus, ob die Versandkosten fest sind # ($dif_porto=0), oder ob der Kunde selber die # Versandkostenart über eine Combo-Box auswählen kann # (z.B. Deutschland/Europa/Sonstige) # ------- Falls dif_porto=0 ausgewählt --------- $versandk_hoehe=6.00; # Betrag der Versandkosten für dif_porto=0 # => feste Versandkosten $versandk_frei_ab="450.00"; # Mind. Bestellsumme ab der der Versand kostenlos ist. # => nur für feste Versandkosten (dif_porto=0) # ----------------------------------------------- # ------- Falls dif_porto=1 ausgewählt ---------- @porto_daten=( # Betrag der Versandk. für dif_porto=1 => Geben Sie in jeder Zeile "NAME DER VERSANDKOSTENART;PREIS;VERSANDKOSTEN FREI AB an! "Bankeinzug_Deutschland;6;40;", "Nachnahme_Deutschland;11;40;", "Vorkasse_Deutschland;6;40;", "Ausland_EU_Vorkasse;12;80;"); # ----------------------------------------------- $min_order_typ=2; # Wählen Sie hier: # 0: Mindestbestellmengen werden ignoriert # 1: Mindestbestellmenge darf nicht unterschritten werden, # sonst Fehlermeldung! # 2: Wenn Mindestbestellmenge unterschritten wird, wird # ein Mindermengen-Zuschlag erhoben. $min_order="10.00"; # Mindestbestellmenge $min_order_zuschlag="3.00"; # Mindermengen-Zuschlag! @currency=( # Währungsumrechnungskurse "Euro=1.00", # => Geben Sie in jeder Zeile "DM=0,51129"); # "WÄHRUNG=UMRECHNUNGSKURS" # an! Ausgabe: [PREIS_DM], [PREIS_Euro] etc. @pichttp=( # HTTP-Verzeichnis für Bilder (also URL aus der Sicht des CGI-Verzeichnisses) "http://www.cbio.info/bilder/", # Alle Bilder werden in der Form ArtNr.gif hochgeladen, bei "http://www.cbio.info/bilder/", # Art.Nr 3333 => 3333.gif "http://www.cbio.info/bilder/"); # Falls Sie versch. Bildertypen anlegen möchten (z.B. ein Verz. für # kleine Bilder, ein anderes für grosses Bilder), geben Sie # diese durch Komma getrennt jeweils in doppelten Anführungsstrichen # an. In den Vorlagen können sie Bilder so einbinden: # [PIC1], [PIC2], [PIC3] usw. @picverz=( # Server-Verzeichnis für Bilder (also Pfad aus der Sicht des CGI-Verzeichnisses) "../bilder/", # => muss an die Variable @pichttp angepasst werden. "../bilder/", # das Skript kontrolliert anhand des Server-Verz., ob das Bild "../bilder/"); # Art.Nr existiert und gibt dann das HTML-Verzeichnis in der # Ausgabe-HTML aus. @pic_field_name=( "Grafik-500", "Grafik-300", # Geben Sie hier das Datenbankfeld an, in dem die Namen "Grafik-100"); # der Produktgrafiken angegeben sind. Einfachste Lösung: # Verwenden Sie die Artikel-Nr. "NR" als Name der Grafik # Die Grafik könnte dann z.B. heissen: 3456.gif $default_pic="0000.gif"; # Bild, das geladen wird, falls das Bild ArtNr.gif nicht vorhanden sind $use_default_pic=0; # Wenn ein Artikel-Bild nicht vorhanden ist, soll dann # Default-Pic geladen werden, oder gar kein Bild? # 1: Default-Pic laden! # 2: kein Bild ausgeben! $bestand_verwaltung=0; # 1: Bestand-Verwaltung benutzen # 0: keine Bestand-Verwaltung $fehlermeldung_bei_bestand_von_null=1; # Hier wird angegeben, ob z.B. eine Bestellung von Menge "1" # bei einem Bestand von "0" nicht zugelassen werden soll, # oder trotzdem toleriert werden soll. Letzteres kann z.b. # sinnvoll sein, wenn der Shopinhaber sehr schnell das # Produkt nachbestellen kann! $mengen_im_warenkorb_addieren=0; # Beispiel: # Artikel 3456 ist bereits mit der Menge 1 im Warenkorb # und wird nochmals in den Warenkorb gelegt. # Soll die Menge addiert werden ( = Menge 2) oder soll # die Menge bei 1 bleiben? $admin_passwort="alfalf"; # Admin-Passwort! # Das Admin.Menü kann gestartet werden über: # /cgi-bin/his-webshop.pl?admin= $no_variants="Beschreibung , Grafik-500 , Grafik-300 , Grafik-100 , GRUPPE , Beschreibung-kurz"; # Geben Sie hier die Felder ein, die generell keine Artikel-Varianten # (werden mit / oder mit * getrennt) enthalten. $gutschein_pass_chars="0123456789abcdefghijklmnopqrstuvwxyz"; # Falls Sie mit Gutscheinen arbeiten möchten, geben Sie hier # an, welche Zeichen im Passwort des Gutscheins gültig sein sollen $gutschein_pass_length=10; # Wie lang soll das Gutschein Passwort sein? $subject_gutschein_mail="Gutschein vom CBIO-Shop"; # Wie soll der Betreff der Gutschein-Mail lauten? @html_convert=( # Geben Sie hier an, welche "Sonderzeichen" in HTML-Entitäten konvertiert "ä=ä", # werden sollen. Die Ausgabe muss dann über NAME_HTML bzw. VARIABLE_HTML "ü=ü", # erfolgen "ö=ö", "Ä=Ä", "Ü=Ü", "Ö=Ö", "ß=ß" ); $use_multiline_csv=0; # Geben Sie hier an, ob in der CSV Datei ein Artikel # (z.B. durch die Beschreibung) mehrere Zeilen umfasst. # Wenn Sie sicher sind, dass ein Artikel immer genau innerhalb # einer Zeile definiert ist, kann die Einstellung auch auf 0 # gestellt werden (Datenbank arbeitet dann deutlich schneller!!!) $shoppl="/cgi-bin/his-webshop.pl"; # URL zum Skript $post_order_mail_to_script_url=""; # Wird hier eine URL zu einem Script angegeben, so wird keine # Bestellmail an den Shopbetreiber geschickt. Stattdessen wird # der Text an das Script geschickt (POST). # Der Inhalt der Mail wird in der Variablen "mailtext" übermittelt # ========================================================================================== # Hier muessen die Felder der Datenbank IN DER KORREKTEN REIHENFOLGE definiert werden. # Reservierte Felder, die exakt so geschrieben werden muessen sind: # NR und PREIS # Alle übrigen Felder aus Ihrer Datenbank koennen frei benannt werden. In den # Templates kann man dann auf die Variablen jeweils mit [VARIABLE] zugreifen. # ========================================================================================== @keyw=( "ID", "NR", "NAME", "TYP", "Beschreibung-kurz", "Beschreibung", "Gruppe", "Grafik-500", "Grafik-300", "Grafik-100", "PREIS", "PREIS2", "SORT", "PDF1", "PDF2" ); # ========================================================================================== # Hier muessen die Felder der Kunden-Datenbank IN DER KORREKTEN REIHENFOLGE definiert werden. # Alle Felder aus Ihrer Datenbank koennen frei benannt werden. In allen # Templates kann man dann auf die Variablen jeweils mit [VARIABLE] zugreifen. # # Sind Sie interessiert am "HIS WebShop Kunden Modul"? Das Kunden-Modul können Sie zur # besseren Kundenbindung für Ihre Stammkunden einsetzen. Optionaler Login in den Shop, # namentliche Begrüssung, bereits vorausgefüllte Bestellformulare etc. # Kosten für das Kunden-Modul: 150,00 DM + MwSt. (Preis vom 24.01.00, ohne Gewähr!) # Kontaktieren Sie uns: his-soft@shoppark.de # ========================================================================================== $use_kunden_db=1; # Geben Sie hier an, ob Sie das Kundenmodul nutzen # möchten! # 0: kein Kundenmodul nutzen # 1: Kundenmodul für Stammkunden nutzen! # (das Kundenmodul muss dazu unbedingt installiert # werden!) @userf= ( "U_USER", "U_PASS", "U_NAME", "U_EMAIL", "U_STRASSE", "U_PLZ", "U_ORT", "U_LAND", "U_TELEFON", "U_FAX", "U_KUNDENNR" ); $user_login_field="U_USER"; $user_pass_field="U_PASS"; # ========================================================================================== # Hier muessen die Felder der Partner-Datenbank IN DER KORREKTEN REIHENFOLGE definiert # werden. Alle Felder koennen frei benannt werden. # # Sind Sie interessiert am "HIS WebShop Partnerprogramm Modul"? Das Partnerprogramm-Modul # können Sie zur Einrichtung eines professionellen Partner-Programms einsetzen. # Kosten für das Partnerprogramm-Modul: 150,00 DM + MwSt. (Preis vom 24.01.00, ohne Gewähr!) # Kontaktieren Sie uns: his-soft@shoppark.de # ========================================================================================== $use_partner_db=1; # Geben Sie hier an, ob Sie das Partnerprogramm-Modul nutzen # möchten! # 0: kein Partnerprogramm-Modul nutzen # 1: Partnerprogramm-Modul nutzen! # (das Partnerprogramm-Modul muss dazu unbedingt installiert # werden!) $partner_provision=10; # Provison in Prozent! @puserf= ( "P_USER", "P_PASS", "P_NAME", "P_EMAIL", "P_STRASSE", "P_PLZ", "P_ORT", "P_LAND", "P_TELEFON", "P_FAX", "P_KUNDENNR" ); $partner_login_field="P_USER"; $partner_pass_field="P_PASS"; # ==============================KONFIGURATIONS-TEIL ENDE==================================== # =================================HAUPTPROGRAMM BEGINN===================================== if ($use_kunden_db==1) { # Falls Stamm-Kunden Modul... require "kunde.pl"; # Modul einbinden! } if ($use_partner_db==1) { # Falls Stamm-Kunden Modul... require "partner.pl"; # Modul einbinden! } $fe[0]="Content-type: text/html\n\nFür den Server wurde kein Registrier Key angegeben.\nBitte kontaktieren Sie HIS-Software his-soft\@shoppark.de, um einen gültigen Registrier Key zu erhalten.\nUm die Software zu testen, können Sie den Shop OHNE Registrier Key mit max. 10 Artikeln betreiben. Begrenzen Sie dazu die Artikel Datenbank."; $fe[1]="Content-type: text/html\n\nDer Registrier Key ist nicht für den Server gültig.\nBitte kontaktieren Sie HIS-Software his-soft\@shoppark.de, um einen gültigen Registrier Key zu erhalten.\nUm die Software zu testen, können Sie den Shop OHNE Registrier Key mit max. 10 Artikeln betreiben. Begrenzen Sie dazu die Artikel Datenbank."; $fe[2]="Content-type: text/html\n\nDer Registrier Key ist ungültig.\nBitte kontaktieren Sie HIS-Software his-soft\@shoppark.de, um einen gültigen Registrier Key für den Server zu erhalten.\nUm die Software zu testen, können Sie den Shop OHNE Registrier Key mit max. 10 Artikeln betreiben. Begrenzen Sie dazu die Artikel Datenbank."; $start_tage = 2450902; # Absolute Tage # Vorlagen befinden sich in dem Verzeichnis $tempdirectory und haben bis auf # $template_mail die Endung ".htm" $template_error="temerror"; # Fehler-Vorlage $template_send="temsend"; # "Danke für Ihre Bestellung"-Template $template_basket="tembaske"; # Warenkorb-Template $template_order="temorder"; # Bestellugsseite-Template $template_shop_mail="order.txt"; # Bestellungsmail-Template für Shop-Inhaber $template_user_mail="mail.txt"; # Bestellungsmail-Template für User $template_partner_mail="mpartner.txt"; $articledat=$datadirectory."artikel.txt"; # Artikel-Datenbank $kundetxt=$datadirectory."kunden.txt"; # Stammkunden-Datenbank $partnertxt=$datadirectory."partner.txt"; # Partner-Datenbank $kundedat=$profiledirectory."kunden.dat"; # Kunden-Datenbank $statistikdat=$datadirectory."statistik.txt"; $orderstat=$datadirectory."orderstat.txt"; ($id_article_quantity, # Zusaetzliche Arrayindizes fuer Artikel $id_article_newquantity, $id_article_apreis, $id_article_sum, $id_article_binfo)=$#keyw+1..$#keyw+5; ($id_global_skript, # Index fuer globale Variablen Array $id_global_userid, $id_global_remotehost, $id_global_versandkosten, $id_global_versandkfreiab, $id_global_sumall, $id_global_sumallv, $id_global_hit_start, $id_global_hit_end, $id_global_hit_max, $id_global_hit_menu, $id_global_hit_forward, $id_global_hit_back, $id_global_artikel_anz, $id_global_content, $id_global_porto_auswahl, $id_global_porto, $id_global_error, $id_global_referer, $id_global_shopemail, $id_global_ordernr, $id_global_min_order, $id_global_min_order_zuschlag, $id_global_query, $id_global_provision, $id_global_bonus_nr, $id_global_bonus_value, $id_global_bonus_pass, $id_global_bonus_email, $id_global_bonus_message, $id_global_happy_hour)=(0..30); $last_id_global=30; ($id_kunde_remotehost, # Index fuer Kunden Array $id_kunde_kundennr, $id_kunde_tage, $id_kunde_minuten, $id_kunde_userdata, $id_kunde_partnerdata, $id_kunde_global)=(0..6); ($id_order_date, $id_order_ordernr, $id_order_sum, $id_order_provision, $id_order_pid, $id_order_status)=(0..5); %multi= ( "MENGE", 1, # Ok "NEUE_MENGE", 1, # Ok "APREIS",1, "SUMME", 1, # Ok "BINFO",1, "SKRIPT",5, # Ok "USER_ID",5, # Ok "HOST",5, # Ok "VERSANDKOSTEN",5, # Ok "VERSANDKOSTEN_FREI_AB",5, # Ok "GESAMTSUMME",5, # Ok "GESAMTSUMME_VERSAND",5, # Ok "HIT_START",5, "HIT_END",5, "HIT_MAX",5, "HIT_MENU",5, "HIT_FORWARD",5, "HIT_BACK",5, "ARTIKEL_ANZ",5, "CONTENT",5, "PORTO_AUSWAHL",5, "PORTO",5, "ERROR_INHALT",5, # Ok "REFERER",5, "SHOPEMAIL",5, "MIN_ORDER",5, "MIN_ORDER_ZUSCHLAG",5, "QUERY",5, "HAPPY_HOUR",5, "PROVISION",5, "BONUS_NR",5, "BONUS_PASS",5, "BONUS_VALUE",5, "BONUS_EMAIL",5, "BONUS_MESSAGE",5, "ORDERNR",5, "ORDERKEY",6, # Ok "ORDERVALUE",6, # Ok "RORDER_DATE",8, "RORDER_SUM",8, "RORDER_ORDERNR",8, "RORDER_PROVISION",8, "RORDER_STATUS",8, "RORDER_PID",8, ); %index= ( "MENGE",$id_article_quantity, "NEUE_MENGE",$id_article_newquantity, "APREIS",$id_article_apreis, "SUMME",$id_article_sum, "BINFO",$id_article_binfo, "SKRIPT",$id_global_skript, "USER_ID",$id_global_userid, "HOST",$id_global_remotehost, "VERSANDKOSTEN",$id_global_versandkosten, "VERSANDKOSTEN_FREI_AB",$id_global_versandkfreiab, "GESAMTSUMME",$id_global_sumall, "GESAMTSUMME_VERSAND",$id_global_sumallv, "HIT_START",$id_global_hit_start, "HIT_END",$id_global_hit_end, "HIT_MAX",$id_global_hit_max, "HIT_MENU",$id_global_hit_menu, "HIT_FORWARD",$id_global_hit_forward, "HIT_BACK",$id_global_hit_back, "ARTIKEL_ANZ",$id_global_artikel_anz, "CONTENT",$id_global_content, "PORTO_AUSWAHL",$id_global_porto_auswahl, "PORTO",$id_global_porto, "ERROR_INHALT",$id_global_error, "REFERER",$id_global_referer, "SHOPEMAIL",$id_global_shopemail, "MIN_ORDER",$id_global_min_order, "MIN_ORDER_ZUSCHLAG",$id_global_min_order_zuschlag, "QUERY",$id_global_query, "HAPPY_HOUR",$id_global_happy_hour, "PROVISION",$id_global_provison, "BONUS_NR",$id_global_bonus_nr, "BONUS_PASS",$id_global_bonus_pass, "BONUS_VALUE",$id_global_bonus_value, "BONUS_EMAIL",$id_global_bonus_email, "BONUS_MESSAGE",$id_global_bonus_message, "ORDERNR",$id_global_ordernr, "ORDERKEY",0, "ORDERVALUE",1, "RORDER_DATE",$id_order_date, "RORDER_SUM",$id_order_sum, "RORDER_ORDERNR",$id_order_ordernr, "RORDER_PROVISION",$id_order_provision, "RORDER_STATUS",$id_order_status, "RORDER_PID",$id_order_pid, ); for ($i=0;$i<=$#pichttp;$i++) { $j=$i+1; $multi{"PIC$j"}=5; $index{"PIC$j"}=$last_id_global+$j; $global[$last_id_global+$j]=$pichttp[$i]; } if ($ENV{'REQUEST_METHOD'} eq "GET") { $buffer = $ENV{'QUERY_STRING'}; } else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } if (!($buffer)) {$buffer=substr($ENV{'PATH_INFO'},1,length($ENV{'PATH_INFO'}));} if (!($buffer)) {$buffer=@ARGV; } for ($i=0;$i<=$#keyw;$i++) { # Reservierte Keywoerter suchen if ($keyw[$i] eq "NR") {$id_article_id=$i;} # Art. Nr elsif ($keyw[$i] eq "PREIS") {$id_article_costs=$i;} # Preis $multi{$keyw[$i]}=1; # Typ speichern, immer "1" $index{$keyw[$i]}=$i; # Feldindex speichern } for ($i=0;$i<=$#userf;$i++) { # Reservierte Keywoerter suchen $uindex{$userf[$i]}=$i; # Feldindex speichern } for ($i=0;$i<=$#puserf;$i++) { # Reservierte Keywoerter suchen $pindex{$puserf[$i]}=$i; # Feldindex speichern } @kunde_dat=&read_data($kundedat); # Einlesen der Kundendaten @article_dat=&read_data($articledat); # Artikel holen $global[$id_global_artikel_anz]=$#article_dat+1; @happy=&read_data($datadirectory."happy.txt"); @happy_today=split(/\,/,$happy[$mday]); foreach $happy_today (@happy_today) { if ($happy_today==$hour) { $global[$id_global_happy_hour]=$happy_today; } } $#nvpairs=-1; # Paare leeren ($now_tage,$now_minuten,$mday,$month,$year,$hour,$minute)=&now; # Berechnung absoluter Tage und aktueller Minuten %input=(); # leerer Input if ($ENV{CONTENT_TYPE}=~/multipart\/form-data/i) { ($content,$ufile)=&Parse_Multi; if ($content ne "") { $ufile=&get_file($ufile); } } else { $buffer=&ReadParse($buffer,*input); # Einlesen der Formulareingaben } #$input{"t"}="temdd"; #$input{"f2"}="PREIS"; #$input{"c2"}=""; #$input{"f1"}="*NAME"; #$input{"c1"}="epson"; #$input{"f"}="HERSTELLER"; #$input{"c"}=""; #$input{"t"}="temgroup"; $#basket_dat_new=-1; # leerer Array für neu in den Warenkorb gelegte Artikel # Bereitgestellte Funktionen im Partnerprogramm-Modul if ($input{"pid"} ne "") { $buffer.="&G_pid=".$input{"pid"}; $input{"G_pid"}=&login_puser($input{"pid"}); } # Speichern von globalen Variablen @keyval=&get_input($buffer); foreach $keyval (@keyval) { @field=split(/\;/,$keyval); # Felder ermitteln if ($field[0]=~/^G_(.*)/) { $global{$field[0]}=$field[1]; } } if ($CGI{"update"} ne "") { &pic_update($CGI{"update"},$content,$ufile,$CGI{"pass"});exit; } $REMOTE_HOST=$ENV{'REMOTE_ADDR'}; # Remote Host ermitteln $global[$id_global_remotehost]=$REMOTE_HOST.'#'.$ENV{'HTTP_VIA'}.'#'.$ENV{'REMOTE_HOST'}.'#'.$ENV{'HTTP_USER_AGENT'}; # Zur Identifik. Remote Host und HTTP Via (proxys) verwenden $global[$id_global_remotehost]=~s/\;/\,/g; $global[$id_global_userid]=&get_user_id; # User-Id $global[$id_global_versandkosten]=$versandk_hoehe; # Versandkosten $global[$id_global_versandkfreiab]=$versandk_frei_ab; # Freibetrag fuer Versandkosten $global[$id_global_skript]=$shoppl; # Name des Skripts $global[$id_global_referer]=$ENV{'HTTP_REFERER'}; $global[$id_global_shopemail]=$email; $global[$id_global_min_order]=$min_order; $global[$id_global_min_order_zuschlag]=$min_order_zuschlag; $global[$id_global_query]=$buffer; $basketdat=&get_basketdat($global[$id_global_userid]); # Name des Warenkorbs des Kunden ermitteln @basket_dat=&read_data($basketdat); # Warenkorb des Kunden einlesen $#basket_dat_new=-1; # Leeren Warenkorb für "neu in den Warenkorb gelegte Artikel" if ($dif_porto!=0) { # Falls Versandk. vom Kunden auswählbar... $portodat=&get_portodat($global[$id_global_userid]); # Name des Files ermitteln, in dem die Versandk. gespeichert sind @porto=&read_data($portodat); # Daten einlesen $porto=$porto[0]; # Versandk.art = 1. Zeile } ########## ## Gutschein if ($input{"AddBonus"}==1) { $time=time; push(@keyval,join(';',"add_NR","G_".$time)); push(@keyval,join(';',"add_MENGE",1)); push(@keyval,join(';',"add_PREIS",$input{"SumBonus"})); if ($input{"EmailFromBonus"}!~/^([a-zA-Z0-9\-\.\_]+)@([a-zA-Z0-9\-\.\_]+\.[a-z]+)$/) { &abbruch("Die E-Mail des Gutschein Ausstellers ist in einer ungültigen Form angegeben."); } if ($input{"EmailToBonus"}!~/^([a-zA-Z0-9\-\.\_]+)@([a-zA-Z0-9\-\.\_]+\.[a-z]+)$/) { &abbruch("Die E-Mail des Gutschein Empfängers ist in einer ungültigen Form angegeben."); } $global{"G_BonusEMAILFROMBONUS$time"}=$input{"EmailFromBonus"}; $global{"G_BonusEMAILTOBONUS$time"}=$input{"EmailToBonus"}; $global{"G_BonusEMAILTEXTBONUS$time"}=$input{"EmailTextBonus"}; &search_user($global[$id_global_userid]); } if ($input{"UseBonusNr"} ne "" || $input{"UseBonus"}==1) { if ($input{"UseBonusNr"} eq "") {&abbruch("Bitte geben Sie eine Gutscheinnummer an.");} &format_warenkorb; ($pass,$gutschein_sum,$bezahlt,$ausgeloest)=&get_gutschein_pass($input{"UseBonusNr"}); if ($pass eq "-1") {&abbruch("Diese Gutschein Nr. existiert nicht.")} if ($bezahlt==0) {&abbruch("Der Gutschein [ERORR_VAR1] ist noch nicht bezahlt.",$gutschein_nr)} if ($ausgeloest>0) {&abbruch("Der Gutschein [ERORR_VAR1] ist bereits ausgelöst.",$gutschein_nr)} if ($pass ne $input{"UseBonusPass"}) {&abbruch("Das Gutschein Passwort ist falsch.")} if ($global[$id_global_sumall]<$gutschein_sum) { &abbruch("Im Warenkorb befinden sich Artikel im Wert von ".&format_sum($global[$id_global_sumall])." EUR. Der ".&format_sum($gutschein_sum)." EUR Gutschein kann daher nicht eingelöst werden."); } push(@keyval,join(';',"add_NR","GE_".$input{"UseBonusNr"})); push(@keyval,join(';',"add_MENGE",1)); push(@keyval,join(';',"add_PREIS",-$gutschein_sum)); } if ($input{"pic_show"}==1) {&pic_show_or_kill(0);exit} if ($input{"pic_kill"}==1) {&pic_show_or_kill(1);exit} if ($input{"empty"} ne "") {unlink "$basketdat";$#basket_dat=-1} if ($input{"required"} ne "") { &kontrolliere_required; # benötigte Felder kontrollieren } if (defined($input{"u_login"})) { # Falls Login.... &kunde_login($input{"u_login"},$input{"u_pass"}); # Funktion kunde_login aufrufen! } if (defined($input{"p_login"})) { # Falls Login.... &partner_login($input{"p_login"},$input{"p_pass"}); # Funktion kunde_login aufrufen! } @glob=&read_data($globaltxt); foreach $glob (@glob) { @d=split(/\;/,$glob); $input{"G_$d[0]"}=$d[1]; } # Bereitgestellte Funktionen im Kunden-Modul if ($input{"setkundencookie"}>0) { &set_kunden_cookie($input{"setkundencookie"}); } if ($input{"send_pw_login"} ne "" || $input{"send_pw_email"} ne "") {&send_pw($input{"send_pw_login"},$input{"send_pw_email"});} if ($input{"deletekundencookie"}==1) {&delete_kunden_cookie;} if ($input{"readkundencookie"}==1) {&read_kunden_cookie;} if ($input{"adduser"}==1) { # Anmeldung eines neuen Kunden &adduser; } if ($input{"deleteuser"}==1) { # Kunde löschen &deleteuser; } if ($input{"edituser"}==1) { # Kunde editieren &edituser; } if ($input{"logout"}==1) { # Kunde Logout &logout; } if ($input{"adduser_partner"}==1) {&adduser_partner;} if ($input{"deleteuser_partner"}==1) {&deleteuser_partner;} if ($input{"edituser_partner"}==1) {&edituser_partner;} if ($input{"logout_partner"}==1) {&logout_partner;} srand(time); if (int(rand(100))==1) { opendir (VERZ, "$profiledirectory"); @datei= grep (!/^\.\.?$/, readdir VERZ); closedir VERZ; foreach $datei (@datei) { $age=-M $profiledirectory.$datei; if ($age>1) { unlink $profiledirectory.$datei; } } } if ($input{"update"} ne "") {&update($input{"update"},$input{"pass"})} if ($input{"admindelete"} ne "") {&admindelete($input{"pass"});} if ($input{"add_to_db"} ne "") {&add_to_db($input{"add_to_db"})} if ($input{"admin"} eq $admin_passwort && $admin_passwort ne "") {&admin;} if ($input{"show_prov"} ne "") { $code=qq!

Partner-Bestellungen in $input{"month"}/$input{"year"}

!; $code.=""; $code.="[REPEAT_RORDER]"; $code.=""; $code.="[REPEAT_RORDER_END]"; $code.="
DatumNrStatusSummeProvis.BeschreibungPID
[RORDER_DATE][IF_('[RORDER_ORDERNR]'>0)][RORDER_ORDERNR][IF_END][RORDER_STATUS][RORDER_SUM][PRINTF([RORDER_SUM]*[RORDER_PROVISION]/100)][IF_('[RORDER_ORDERNR]' eq '-')]Gutschrift[IF_END][IF_('[RORDER_ORDERNR]' ne '-')][RORDER_ORDERNR][IF_END][RORDER_PID]

"; if ($input{"show_prov_pid"} eq "ALL") { $all_partner="ALL"; } else { $all_partner=$input{"show_prov_pid"}; } print "Content-type: text/html\n\n"; print &parse_line($code); exit; } if ($input{"pay_partner"} ne "") { if ($input{"pass"} ne $admin_passwort) {&abbruch("Falsches Passwort");} &pay_partner($input{"pay_partner"},$input{"sum_pay_partner"}); } if ($input{"correct_prov"} ne "") { if ($input{"pass"} ne $admin_passwort) {&abbruch("Falsches Passwort");} &pay_partner($input{"correct_prov"},&format_sum($input{"minus_prov"}*$partner_provision/100),$input{"reason_prov"}); } if ($input{"status_ordernr"} ne "") { if ($input{"pass"} ne $admin_passwort) {&abbruch("Falsches Passwort");} &set_status($input{"status_ordernr"},$input{"new_status"}); } if ($input{"ChangeBonusStatNr"} ne "") { &change_gutschein_status($input{"pass"},$input{"ChangeBonusStatNr"},$input{"BonusBezahlt"},$input{"BonusEingeloest"}); } if ($input{"send_order"}) { # Falls Aktion "Mail verschicken" &send_mail; # Mails versenden &output_order; # Nachricht ausgeben exit; } elsif ($input{"order"} ne "" || $input{"order.x"} ne "") { # Falls Aktion "Bestellseite" &special_request("","",$template_order); # Bestellungsseite ausgeben } else { if ($cdmodul_ist_aktiv==0) { &special_request($input{"f"},$input{"c"},$input{"t"},$input{"start"},$input{"dif"},$input{"aliste"}); } else { 1; } } sub admin { print "Content-type: text/html\n\n"; print ""; print "

WebShop Administration:

"; print qq!
  1. !; print qq!!; print qq!Artikel editieren:
    !; print qq!Artikel-Nr.: \n!; print qq!!; print qq!
    !; print qq!
  2. !; print qq!!; print qq!!; print qq!
    !; print qq!
  3. !; print qq!Gutschein Status setzen:
    !; print qq!Gutschein-Nr.: \n!; print qq!!; print qq!\n!; print qq!
    \n!; print qq!!; print qq!
    !; if ($use_partner_db==1) { print qq!
  4. !; print qq!!; print qq!Status einer Bestellung setzen:
    !; print qq!!; print qq!
    Bestell-Nr.:
    Neuer Status:
    (z.b. "OK" oder "Bestellung ungültig" etc.)
    !; print qq!!; print qq!
    !; print qq!
  5. !; print qq!!; print qq!Provisions-Korrekturen durch Stornierungen oder zurückgesendete Waren eintragen:
    !; print qq!!; print qq!!; print qq!!; print qq!
    Partner-ID (PID):
    Warenwert-Minderung um einen Betrag von:
    Begründung:
    !; print qq!!; print qq!
    !; print qq!
  6. !; print qq!!; print qq!Überweisung an Partner (Reseller) eintragen:
    !; print qq!!; print qq!
    Partner-ID (PID):
    Überwiesener Betrag:
    !; print qq!!; print qq!
    !; print qq!
  7. !; print qq!!; print qq!!; print qq!Übersicht aller Bestellungen über das Partnermodul:
    !; print qq!!; print qq!!; print qq!
    Monat
    Jahr
    Partner-ID (PID):
    !; print qq!!; print qq!
    !; } print qq!
!; print ""; exit; } sub pic_update { local($nr,$content,$ufile,$pass)=@_; $picnr=$CGI{"pic"}; $this_pic=$nr; @a=split(/ \* /,$this_pic); $this_pic=$a[0]; $this_pic=~s/\s//g; $this_pic=~s/[\\\/]//g; $endung=""; if ($ufile=~/\.gif/i) {$endung=".gif";} if ($ufile=~/\.jpg/i) {$endung=".jpg";} if ($ufile eq "") { unlink "$picverz[$picnr]$this_pic.gif"; unlink "$picverz[$picnr]$this_pic.jpg"; } else { open(f,">$picverz[$picnr]$this_pic$endung"); binmode f; print f $content; close(f); } &update($nr,$pass); } sub admindelete { local($pass)=@_; if ($pass ne $admin_passwort) {&abbruch("Falsches Passwort");} &get_input; foreach $keyval (@keyval) { @field=split(/\;/,$keyval); # Felder ermitteln if ($field[0]=~/^delete_(.*)/) { $del{$1}="ok"; } } $#new_article_dat=-1; foreach $article_dat (@article_dat) { @a=split(/\;/,$article_dat); if ($del{$a[$id_article_id]} eq "") { push(@new_article_dat,$article_dat); } } @article_dat=@new_article_dat; &save_array($articledat,"article",@article_dat); } sub update { local($nr,$pass)=@_; if ($pass ne $admin_passwort) {&abbruch("Falsches Passwort");} @adata=&get_article_data($nr); $do_update=0; foreach $keyw (@keyw) { if (defined($input{"update_$keyw"})) { $adata[$index{$keyw}]=$input{"update_$keyw"}; $do_update=1; } } $gef=0; if ($do_update==1) { foreach $article_dat (@article_dat) { @a=split(/\;/,$article_dat); if ($a[$id_article_id] eq $nr) { $article_dat=join(';',@adata); $gef=1; } } if ($gef==0) { push(@article_dat,join(';',@adata)); } &save_array($articledat,"article",@article_dat); } $#article=-1; push(@article,join(';',@adata)); if ($input{"exit_update"}==1 || $CGI{"exit_update"}==1) {return;} $table=qq!
\n!; $table.=qq!\n!; $table.=qq!\n!; $table.=qq!\n!; $i=0; foreach $keyw (@keyw) { $value="$adata[$i]"; if ($input{$keyw} ne "") {$value=$input{$keyw}} if ($keyw eq "NR" && $nr eq "neu") {$value=time;} if ($keyw ne "BESCHREIBUNG") { $table.=qq!\n!; } else { $value=~s/\/\n/g; $table.=qq!\n!; } $i++; } $table.="
$keyw
$keyw
"; $table.=qq!!; $table.="
\n"; $i=-1; foreach $pichttp (@pichttp) { $i++;$j=$i+1; $table.=qq![REPEAT_ARTIKEL]
\n!; $table.=qq!\n!; $table.=qq!\n!; $table.=qq!\n!; $table.=qq![PIC$j]
$pichttp[$i]
!; $table.=qq!\n!; $table.=qq!!; $table.=qq!
[REPEAT_ARTIKEL_END]!; } print "Content-type: text/html\n\n"; print "".&parse_line($table).""; exit; } # ========================================================================================== # Hinzufügen eines Eintrags in die Datenbank über ein Web-Formular! # ========================================================================================== sub add_to_db { local($db)=@_; $#new_entry=-1; foreach $keyw (@keyw) { if ($input{"$keyw"} ne "") { $new_entry[$index{$keyw}]=$input{"$keyw"}; } } open(f,">>$datadirectory$db"); print f join(';',@new_entry)."\n"; close(f); } # ========================================================================================== # Funktion zum Entfernen "überflüssiger" Bilder, also i.d.R. Grafiken, die zu Artikeln # gehören, die gelöscht wurden. # ========================================================================================== sub pic_show_or_kill { local($pic_kill)=@_; foreach $article_dat (@article_dat) { @array=split(/\;/,$article_dat); $array[$index{"NR"}]=~s/\s//g; $array[$index{"NR"}]=~s/[\\\/]//g; $is_ok{$array[$index{"NR"}]}=1; } print "Content-type: text/html\n\n"; print ""; $ok=1; foreach $picverz (@picverz) { opendir (VERZ, "$picverz"); @datei= grep (!/^\.\.?$/, readdir VERZ); closedir VERZ; foreach $datei (@datei) { if ($datei=~/\.gif$/i || $datei=~/\.jpg$/) { $d=$datei; $d=~s/\.gif//gi; $d=~s/\.jpg//gi; if ($is_ok{$d}==0 && $datei ne $default_pic) { if ($pic_kill==0) { $ok=0; print "Die Datei $picverz$datei kann gelöscht werden.
\n"; } else { $ok=0; unlink "$picverz[0]$datei"; print "Die Datei $picverz$datei wurde gelöscht.
\n"; } } } } } if ($ok==1) { print "Alles in Ordnung!"; } } # ========================================================================================== # Kontrolle der Felder der Bestellungsseite, die zwingend einen Inhalt haben müssen. # Um diese Felder zu definieren, kann das Formular auf der Bestellseite ein HIDDEN-Feld mit # Namen "required" enthalten. Beispiele: # # ========================================================================================== sub kontrolliere_required { local($required,@required); $c=&CC_Verify($input{"Kartentyp"},$input{"Kartennummer"}); if ($c==0) { &abbruch("Die Kreditkarten-Daten sind leider ungültig."); } $required=$input{"required"}; # Das Feld mit Namen "requried" einlesen @required=split(/\,/,$required); # Felder ermitteln foreach $required (@required) { # Alle Felder durchlaufen if ($input{$required} eq "") { # Falls das angegebene Feld nicht ausgefüllt wurde... &abbruch("Bitte füllen Sie das Feld $required aus. Vielen Dank!") # Fehlermeldung ausgeben! } } } # ========================================================================================== # Ermittelt die User-ID des Benutzers # ========================================================================================== sub get_user_id { if ($input{"userid"} ne "") { # Falls UserId per Formulareingabe uebergeben wird... return &search_user($input{"userid"}); } else { return &search_user(""); # Ansonsten UserId suchen } } # ========================================================================================== # Kontrolliert, ob zwei Angaben (zusammengesetzt aus REMOTE_HOST und HTTP_VIA) vom selben # Kunden stammen (inkl. Proxy Test!) # ========================================================================================== sub check_equal { local($r1,$r2)=@_; # Einlesen der zwei Angaben @host_http1=split(/\#/,$r1); # Angaben in REMOTE_HOST und HTTP_VIA zerlegen @host_http2=split(/\#/,$r2); if ($host_http1[3] ne $host_http2[3]) {return 0;} # Browser gleich? if ($host_http2[1] eq '' || $host_http1[1] eq '') { # Falls keine HTTP_VIA Angabe => Keine Proxys, direkte Verbindung, einfach zu handeln @ip1=split(/\./,$host_http1[0]); @ip2=split(/\./,$host_http2[0]); if ( ( ($ip1[0]==195 && $ip1[1]==14) || ($ip1[0]==194 && $ip1[1]==8)) && ( ($ip2[0]==195 && $ip2[1]==14) || ($ip2[0]==194 && $ip2[1]==8))) {return 1;} if ($ip1[0] ne $ip2[0] || $ip1[1] ne $ip2[1]) {return 0;} # Falls IPs ungleich => nicht derselbe Kunde return 1; # Ansonsten ist es derselbe Kunde } if ($host_http1[1] eq $host_http2[1]) {return 1;} # Falls HTTP_VIA gleich => derselbe Kunde @http_via1=split(/ /,$host_http1[1]); # HTTP_VIA z.B.: "HTTP/1 speth13.dort01.t-online.de" @http_via2=split(/ /,$host_http2[1]); @p1=split(/\./,$http_via1[1]); # Untersucht werden soll der Teil: speth13.dort01.t-online.de @p2=split(/\./,$http_via2[1]); if ($p1[1] ne $p2[1]) {return 0;} # 2. Teil untersuchen if ($p1[2] ne $p2[2]) {return 0;} # 3. Teil untersuchen $first1=$p1[0]; # 1. Teil untersuchen $first2=$p2[0]; $min=length($first1); # min. Zeichenfolge ermitteln if (length($first2)<$min) {$min=length($first2)} $first1=substr($first1,0,$min-2); # jeweils vom 1. Teil nur die ersten Zeichen verwenden $first2=substr($first2,0,$min-2); if ($first1 ne $first2) {return 0;} # Zeichenketten vergleichen return 1; } sub get_global_data { local($g)=@_; @global_keyvalues=split(/\~/,$g); foreach $global_keyvalues (@global_keyvalues) { @kv=split(/\=/,$global_keyvalues); if (!defined($input{"$kv[0]"})) { $input{"$kv[0]"}=$kv[1]; $global{$kv[0]}=$kv[1]; } } } sub get_global_data_string { local($g); foreach $key (sort(keys %global)) { $global{$key}=~ s/\cM\n/ /g; $g.=$key. '='. $global{$key}. "~"; } return $g; } # ========================================================================================== # Sucht nach einem User und gibt dessen Kunden-Nr. zurueck. # Wenn User nicht in Liste oder laenger als max_minuten_inaktiv in Liste, wird auf die # Prozedur create_new_kunde verwiesen. # Wenn der User gefunden wurde und im Bereich max_minuten_inaktiv ist, wird der alte Eintrag # geloescht, der User mit neuer Zeit am Anfang der Liste eingefuegt und die Kundennummer # zurueckgegeben. # ========================================================================================== sub search_user { local($opt_id)=@_; local($is_equal); $knr=0; $#new_kunde_dat=-1; foreach $kunde_dat (@kunde_dat) { $kunde_dat=~s/\[USER_ID\]/$min_userid/g; @kunde=split(/\;/,$kunde_dat); # Kundendaten holen $vergangene_minuten=$now_tage*24*60+$now_minuten-($kunde[$id_kunde_tage]*24*60+$kunde[$id_kunde_minuten]); if ($vergangene_minuten<=$max_minuten_inaktiv) { # Vergangene Minuten mit eingestellter Zeit vergleichen $is_equal=0; if ($opt_id eq "") { if (&check_equal($kunde[$id_kunde_remotehost],$global[$id_global_remotehost])==1) { # Falls IP-Adresse+HTTP_VIA uebereinstimmen $is_equal=1; } } else { if ($opt_id eq $kunde[$id_kunde_kundennr]) { $is_equal=1; } } if ($is_equal==1) { $kunde[$id_kunde_tage]=$now_tage; # Kundendaten zuweisen $kunde[$id_kunde_minuten]=$now_minuten; &get_global_data($kunde[$id_kunde_global]); $kunde[$id_kunde_global]=&get_global_data_string; $knr=$kunde[$id_kunde_kundennr]; @user_daten=split(/\|/,$kunde[$id_kunde_userdata]); @partner_daten=split(/\|/,$kunde[$id_kunde_partnerdata]); } push(@new_kunde_dat,join(';',@kunde)); } else { $killdat=&get_basketdat($kunde[$id_kunde_kundennr]); # Warenkorb holen unlink "$killdat"; # Warenkorb loeschen if ($dif_porto!=0) { $killdat2=&get_portodat($kunde[$id_kunde_kundennr]); # Portodat unlink "$killdat2"; # löschen } } } if ($knr==0) { @nk=&create_new_kunde; if ($opt_id ne "" && $is_equal==0) { $nk[$id_kunde_kundennr]=$opt_id; } $nk[$id_kunde_global]=&get_global_data_string; push(@new_kunde_dat,join(';',@nk)); @kunde_dat=@new_kunde_dat; $knr=$nk[$id_kunde_kundennr]; } &save_array($kundedat,"kunde",@new_kunde_dat); # Speichern return $knr; # neuer Kunde } # ========================================================================================== # Ein neuer Kunde wird erstellt und in die Kundenliste am Anfang eingefuegt. # Falls die Kundenliste mehr als max_user Eintraege hat, werden die aeltesten Eintraege # (stehen hinten) geloescht. Die Profil-Dateien werden ebenfalls geloescht. # Anschliessend wird solange eine beliebige Zuf-Zahl aus dem Bereich min_userid-max_userid # gewaehlt, bis es KEINE Profil-Datei zu der Kundennr. gibt. Der neue Kunde ist dann # gefunden. Die Kunden-Felder werden gesetzt und er wird an den Anfang der Liste eingefuegt. # ========================================================================================== sub create_new_kunde { srand(); # Zuf-Generator initialisieren &lock("stat"); @s=&read_data($statistikdat); $found=0; foreach $s (@s) { @z=split(/\;/,$s); if ($z[0]=~/$mday\.$month\.$year/) { $z[1]++; $s=join(';',@z); $found=1; } } if ($found==0) { push(@s,join(';',"$mday.$month.$year",1)); } &save_array($statistikdat,"statistik",@s); &unlock("stat"); do { # Wiederhole solange... $zuf=int rand($max_userid-$min_userid+1)+$min_userid; # und berechne eine Zuf-Zahl $basketdat=&get_basketdat($zuf); # und den dazugeh. Warenkorb } while (&exist($basketdat)); # wie der Warenkorb exisitert &new($basketdat,$basketdat); # Warenk. ex. nicht. Wird also neu erstellt. if ($dif_porto!=0) { $portodat=&get_portodat($zuf); &new($portodat,$portodat); } $#new_kunde=-1; # Kundendaten zuweisen $new_kunde[$id_kunde_remotehost]=$global[$id_global_remotehost]; $new_kunde[$id_kunde_kundennr]=$zuf; $new_kunde[$id_kunde_tage]=$now_tage; $new_kunde[$id_kunde_minuten]=$now_minuten; return @new_kunde; } # ========================================================================================== # Fuer eine Kundennr (Input) wird die zugehoerige Profil-Datei zurueckgegeben. # ========================================================================================== sub get_basketdat { local($filename)=@_; # Kundennr. als Paramter while (length($filename)<7) {$filename="0".$filename;} # "0.." am Anfang einfuegen return ($profiledirectory."k$filename.txt"); # Rückgabe } sub get_portodat { local($filename)=@_; # Kundennr. als Paramter while (length($filename)<7) {$filename="0".$filename;} # "0.." am Anfang einfuegen return ($profiledirectory."p$filename.txt"); # Rückgabe } # ========================================================================================== # Gibt anhand der Art.Nr die Daten eines Artikels zurueck. # ========================================================================================== sub get_article_data { local($id)=@_; # ID einlesen local(@article_fields,$article_dat); foreach $article_dat (@article_dat) { # Artikel durchlaufen @article_fields=split(/\;/,$article_dat); # Felder ermitteln @id_search=split(/ \, /,$article_fields[$id_article_id]); foreach $id_search (@id_search) { if ($id_search eq $id) { # Falls ID gefunden... $article_fields[$id_article_id]=$id_search; return @article_fields; # Artikel Daten zurückgeben } } } return -1; } sub by_groupby_num { @b = split(/\;/,$b); @a = split(/\;/,$a); $a[$groupby_index] <=> $b[$groupby_index]; # presuming integers } sub by_groupby { @b = split(/\;/,$b); @a = split(/\;/,$a); $a[$groupby_index] cmp $b[$groupby_index]; # presuming integers } sub aliste { local($t)=@_; @aliste=split(/\,/,$user_daten[$uindex{"U_LISTE"}]); foreach $aliste (@aliste) { $l{$aliste}=1; } $#article=-1; foreach $article_dat (@article_dat) { @afelder=split(/\;/,$article_dat); if ($l{$afelder[$id_article_id]}==1) { push(@article,$article_dat); } } $line=join("\n",&read_data("$tempdirectory$t.htm")); # Vorlage einlesen $line=&parse_line($line); # Variablen ersetzen print "Content-type: text/html\n\n"; print $line; # ausgeben exit; } sub special_request { local($f,$c,$t,$start,$dif,$aliste)=@_; local(%group)=(); if ($f ne "GRUPPE") { $lfile=$datadirectory."search.txt"; $#slist=-1; push(@slist,$f,$c); $i=1; while ($input{"f$i"} ne "") { push(@slist,$input{"f$i"},$input{"c$i"}); $i++; } open(f,">>$lfile"); print f join(';',@slist,$dif)."\n"; close(f); } &process_order; $global[$id_global_content]=$c; $global[$id_global_content]=~s/\\s/ /g; if ($aliste==1) { $global[$id_global_content]="Auftragsliste"; $#new_article_dat=-1; @al=&read_data($orderstat); foreach $al (@al) { @aliste_dat=split(/\;/,$al); if ($aliste_dat[2] eq $user_daten[$uindex{"$user_login_field"}]) { $l{$aliste_dat[3]}=1; } } $#article=-1; foreach $article_dat (@article_dat) { @afelder=split(/\;/,$article_dat); if ($l{$afelder[$id_article_id]}==1) { push(@new_article_dat,$article_dat); } } } else { $groupby=$input{"groupby"}; if ($input{"v"}=~/or/i) { $or_mode=1; } else { $or_mode=0; } $#new_article_dat=-1; $#search_c=-1; $i=""; do { $f=$input{"f$i"}; $cs=$input{"c$i"}; if ($f=~/^\>\=/) {$input{"c$i"}=">=".$cs;$input{"f$i"}=~s/^\>\=//;} elsif ($f=~/^\<\=/) {$input{"c$i"}="<=".$cs;$input{"f$i"}=~s/^\<\=//;} elsif ($f=~/^\>/) {$input{"c$i"}=">".$cs;$input{"f$i"}=~s/^\>//;} elsif ($f=~/^\/g; $cs=qq!$vor$treffer$hinter!; } push(@search_c,$cs); $i++; } while ($f ne ""); foreach $article_dat (@article_dat) { @afelder=split(/\;/,$article_dat); $i=0; $co=0; $mo=0; $#this_term_ok=-1; do { $this_field_ok=0; if ($i>0) { $f=$input{"f$i"}; $cs=$search_c[$i]; $c=$input{"c$i"}; } else { $f=$input{"f"}; $cs=$search_c[0]; $c=$input{"c"}; } @felder=split(/\,/,$f); @terms = split(/\s+/, $cs); $term_or_mode=0; $#is_a_not_term=-1; $q=0; foreach $terms (@terms) { if ($terms=~/^or$/i || $terms=~/^ODER$/i) { $term_or_mode=1; } if ($terms=~/^and$/i || $terms=~/^UND$/i) { $terms=""; } if ($terms=~/^-(.*)/) { $terms=$1; $is_a_not_term[$q]=1; } $q++; } $#this_term_ok=-1; foreach $felder (@felder) { if ($felder=~/^\*(.*)/) { $index=$index{"$1"}; if ($#terms==-1) { $this_field_ok=1; } $q=0; foreach $terms (@terms) { $suche=$terms; $suche=~s/\<_\>/ /g; if ($afelder[$index]=~/$suche/i) { if ($is_a_not_term[$q]==0) { $this_term_ok[$q]=1; } else { $this_term_ok[$q]=-1; } } elsif ($is_a_not_term[$q]==1) { if ($this_term_ok[$q]!=-1) { $this_term_ok[$q]=1; } } $q++; } } else { $this_field_ok=0; $index=$index{$f}; if ($c=~/^(\<\=|\>\=|\>|\<)/) { $v=$1; $vergleich=$c; $vergleich=~s/[\>\<\=]//g; if ($vergleich eq "") { $this_field_ok=1; } elsif ( ($afelder[$index]>$vergleich && $v eq '>') || ($afelder[$index]<$vergleich && $v eq '<') || ($afelder[$index]>=$vergleich && $v eq '>=') || ($afelder[$index]<=$vergleich && $v eq '<=') ) {$this_field_ok=1;} } elsif ($afelder[$index] eq $c || $c eq "") { $this_field_ok=1; } } } if ($#this_term_ok>=0) { # &abbruch($f.$article_dat.$or_mode); $this_field_ok=1; for ($zz=0;$zz<=$#terms;$zz++) { if ($this_term_ok[$zz]<=0) {$this_field_ok=0;} } if ($term_or_mode==1) { $this_field_ok=1; } } if ($this_field_ok==1) {$co++} $mo++; $i++; $f=$input{"f$i"}; $c=$input{"c$i"}; } while ($f ne ""); if ($co==$mo || ($co>=1 && $or_mode==1)) { if (defined($index{"NICHT_LIEFERBAR"})==0 || $afelder[$index{"NICHT_LIEFERBAR"}]!=1) { if ($groupby eq "" || $group{$afelder[$index{$groupby}]}==0) { push(@new_article_dat,$article_dat); } if ($groupby ne "") { $group{$afelder[$index{$groupby}]}=1; } } } } } if ($t eq "") {$t=$template_basket} @basket=&format_warenkorb; @article=@new_article_dat; if ($groupby ne "") { $groupby_index=$index{$groupby}; @article= sort by_groupby @article; } if ($input{"sort"} ne "") { $old_index=$groupby_index; $groupby_index=$index{$input{"sort"}}; @article= sort by_groupby @article; $groupby_index=$old_index; } if ($input{"nsort"} ne "") { $old_index=$groupby_index; $groupby_index=$index{$input{"nsort"}}; @article= sort by_groupby_num @article; $groupby_index=$old_index; } if ($start ne "") { if ($start eq "0") { srand(); $start=int(rand( int($#article/$dif)+1)); $start=$start*$dif+1; } if ($start>0) { $end=$start+$dif-1; if ($end-1>$#article) {$end=$#article+1} } $hit_menu=""; for ($page=1;$page<=int($#article/$dif)+1;$page++) { $page_start=($page-1)*$dif+1; if ($page_start==1 && $#article==-1) {$page_start=0;} $page_end=$page_start+$dif-1; if ($page_end>$#article+1) {$page_end=$#article+1} $query=$global[$id_global_query]; $query=~s/start=(\d+)/start=$page_start/g; if ($page_start!=$start) { $hit_menu.=qq![$page_start - $page_end] !; } } # PAGE BACK ermitteln if ($start>1) { $vorher=$start-$dif; if ($vorher<1) {$vorher=1} $query=$global[$id_global_query]; $query=~s/start=(\d+)/start=$vorher/g; $global[$id_global_hit_back]=$shoppl."?".$query; } if ($start+$dif<=$#article+1) { $forward=$start+$dif; $query=$global[$id_global_query]; $query=~s/start=(\d+)/start=$forward/g; $global[$id_global_hit_forward]=$shoppl."?".$query; } $global[$id_global_hit_start]=$start; $global[$id_global_hit_end]=$end; $global[$id_global_hit_max]=$#article+1; $global[$id_global_hit_menu]=$hit_menu; $#new_article=-1; for ($i=$start-1;$i<=$end-1;$i++) { push(@new_article,$article[$i]); } if ($global[$id_global_hit_start]>$global[$id_global_hit_end]) { $global[$id_global_hit_start]=$global[$id_global_hit_end]; } @article=@new_article; } $check_no_variants.="$no_variants,"; foreach $article (@article) { @fields=split(/\;/,$article); $war_schon=0; for ($i=0;$i<=$#keyw;$i++) { if ($fields[$i]=~/ \/ / && $check_no_variants!~/$keyw[$i]\,/) { @auswahl=split(/ \/ /,$fields[$i]); $binfo{$keyw[$i]."-".$fields[$id_article_id]}.=qq!!; foreach $auswahl (@auswahl) { $fields[$id_article_binfo].=qq!!; $binfo{$keyw[$i]."-".$fields[$id_article_id]}.=qq!!; } $fields[$id_article_binfo].=qq! !; $binfo{$keyw[$i]."-".$fields[$id_article_id]}.=qq! !; $binfoleer{$keyw[$i]}=qq!!; $article=join(';',@fields); } elsif ($fields[$i]=~/ \* / && $check_no_variants!~/$keyw[$i]\,/) { @auswahl=split(/ \* /,$fields[$i]); if ($i!=$id_article_costs && $i!=$id_article_id) { $binfo{$keyw[$i]."-".$fields[$id_article_id]}.=qq!!; for ($j=0;$j<=$#auswahl;$j++) { $binfo{$keyw[$i]."-".$fields[$id_article_id]}.=qq!!; $fields[$id_article_binfo].=qq!!; } $binfo{$keyw[$i]."-".$fields[$id_article_id]}.=qq! !; $fields[$id_article_binfo].=qq! !; $article=join(';',@fields); } } } } if ($cdmodul_ist_aktiv==1) { return @article; } $line=join("\n",&read_data("$tempdirectory$t.htm")); # Vorlage einlesen $line=&parse_line($line); # Variablen ersetzen if ($input{"noctype"}!=1) { print "Content-type: text/html\n\n"; } print $line; # ausgeben exit; } # ======================================================================================== # Redirect auf eine beliebige URL # ========================================================================================== sub redirect { $url=$_[0]; print "Status: 302 Found\n"; print "Location: $url\n"; print "URI: <$url>\n"; print "Content-type: text/html\r\n\r\n"; } sub create_gutschein { srand(time); @l=split(//,$gutschein_pass_chars); $gutschein=""; for ($i=1;$i<=$gutschein_pass_length;$i++) { $gutschein.=substr($gutschein_pass_chars,rand($#l+1),1); } return $gutschein; } sub get_gutschein_pass { local($nr)=@_; @this=(-1,0,0,0); @g=&read_data($datadirectory."gutschein_db.txt"); foreach $g (@g) { @d=split(/\;/,$g); if ($d[0] eq $nr) { @this=($d[2],$d[1],$d[3],$d[4]); } } return @this; } sub add_gutschein_to_db { local($gutschein_nr,$gutschein_wert,$gutschein_pw,$gutschein_bezahlt,$gutschein_ausgeloest)=@_; @new_g=($gutschein_nr,$gutschein_wert,$gutschein_pw,$gutschein_bezahlt,$gutschein_ausgeloest); open(f,">>$datadirectory"."gutschein_db.txt"); print f join(';',@new_g)."\n"; close(f); } sub change_gutschein_status { local($adminpass,$gutschein_nr,$new_bezahlt,$new_ausgeloest)=@_; if ($adminpass ne $admin_passwort) {&abbruch("Falsches Passwort");} ($pass,$wert,$bezahlt,$ausgeloest)=&get_gutschein_pass($gutschein_nr); if ($pass eq "-1") {&abbruch("Die Gutschein Nr. $gutschein_nr existiert nicht.")} if ($new_bezahlt ne "") {$bezahlt=$new_bezahlt} if ($new_ausgeloest ne "") {$ausgeloest=$new_ausgeloest} &add_gutschein_to_db($gutschein_nr,$wert,$pass,$bezahlt,$ausgeloest); print "Content-type: text/html\n\n"; print "Der Status wurde neu gesetzt."; exit; } # ========================================================================================== # Gibt die "Vielen Dank!" Seite aus, nachdem eine Bestellung abgeschickt wurde. # Falls eine Redirect-Bedingung definiert wurde und diese zutrifft, wird ein Redirect # ausgeführt. Dies können Sie nutzen, um die Bestellung auf ein SSL-Bestellformular # für Kreditkarten-Daten weiterzuleiten. # Beispiel: #
# # ... #
# ========================================================================================== sub output_order { # Gutschein! foreach $basket_dat (@basket_dat) { @f=split(/\;/,$basket_dat); if ($f[$index{"NR"}]=~/^GE_(.*)/) { $gutschein_nr=$1; ($pass,$wert,$bezahlt,$ausgeloest)=&get_gutschein_pass($gutschein_nr); if ($pass eq "-1") {&abbruch("Diese Gutschein Nr. existiert nicht.")} if ($bezahlt==0) {&abbruch("Der Gutschein $gutschein_nr ist noch nicht bezahlt.")} if ($ausgeloest>0) {&abbruch("Der Gutschein $gutschein_nr ist bereits ausgelöst.")} &add_gutschein_to_db($gutschein_nr,$wert,$pass,1,$ausgeloest+1); } } # Bestandverwaltung! if ($bestand_verwaltung==1) { foreach $basket_dat (@basket_dat) { @f=split(/\;/,$basket_dat); $stock{$f[$id_article_id]}=$f[$id_article_quantity]; } foreach $article_dat (@article_dat) { @f=split(/\;/,$article_dat); $f[$index{"STOCK"}]-=$stock{$f[$id_article_id]}; if ($f[$index{"STOCK"}]<0) { $f[$index{"STOCK"}]=0; } $article_dat=join(';',@f); } &save_array($articledat,"article",@article_dat); } $rurl=$input{"redirect_url"}; if ($rurl ne "") { @rtypes=split(/\;/,$rurl); foreach $rtypes (@rtypes) { @condition_url=split(/\-\>/,$rtypes); @keyvalue=split(/\=/,$condition_url[0]); $key=$keyvalue[0]; $value=$keyvalue[1]; if ($input{"$key"} eq $value) { &redirect($condition_url[1]); exit; } } } if ($input{"t"} ne "") { $template_send=$input{"t"}; } $line=join("\n",&read_data("$tempdirectory$template_send.htm")); # Vorlage einlesen $line=&parse_line($line); # Varibalen ersetzen print "Content-type: text/html\n\n"; print $line; # ausgeben } # ========================================================================================== # Liefert Menge zurück # ========================================================================================== sub get_menge { local($menge)=@_; # String einlesen $menge=~s/\,/\./g; # Bei der Menge "," durch "." ersetzen if ($menge>0) {return $menge}; # Falls Wert > 0, Wert zurückgeben if (defined($menge) && $menge==0) { # Falls Menge=0 if ($menge ne "" && $menge ne "0") {return 1;} # Falls String nicht "0" oder leer, 1 zurückgeben } return 0; # sonst 0 zurückgeben } # ========================================================================================== # Aktualisiert den Warenkorb. # ========================================================================================== sub add_basket { local($i)=@_; local($#basket_new)=-1; # Leeren Warenkorb-Array erstellen @basket_new=&get_article_data($input{"id$i"}); # Daten aus Datenbank holen if (join('',@basket_new) eq '-1') { &abbruch(qq!Der Artikel $input{"id$i"} existiert nicht (mehr). $articledat $article_dat[0]!); } if ($basket_new[$index{"STOCK"}]<$input{"quantity$i"} && $bestand_verwaltung==1 && $fehlermeldung_bei_bestand_von_null==1) { &abbruch(qq!Sie möchten die Menge $input{"quantity$i"} des Artikels $basket_new[$index{"NR"}] bestellen, wir haben zur Zeit aber nur einen Bestand von $basket_new[$index{"STOCK"}] verfügbar.

Wenn Sie sich besonders für diesen Artikel interessieren, kontaktieren Sie uns bitte per Mail.!); } $basket_new[$id_article_quantity]=0; # zum vergleichen $basket_new[$id_article_costs]=~s/\,/\./g; # Beim Preis "," durch "." ersetzen $basket_new[$id_article_quantity]=$input{"quantity$i"}; # Menge zuweisen $basket_new[$id_article_quantity]=~s/\,/\./g; # Bei der Menge "," durch "." ersetzen foreach $keyw (@keyw) { if ($input{"${keyw}_select$basket_new[$id_article_id]"} ne "") { $basket_new[$index{$keyw}]=$input{"${keyw}_select$basket_new[$id_article_id]"}; $basket_new[$index{$keyw}]=~s/\s\/\s/\//g; } } for ($j=0;$j<=$#keyw;$j++) { if ($input{"${keyw[$j]}_multipreis$basket_new[$id_article_id]"} ne "") { $mpreisnr=$input{"${keyw[$j]}_multipreis$basket_new[$id_article_id]"}; foreach $basket_new (@basket_new) { if ($basket_new=~/ \* /) { @auswahl=split(/ \* /,$basket_new); $basket_new=$auswahl[$mpreisnr] } } } } if ($basket_new[$id_article_costs]=~/\?/) { @p=split(/\ /,$basket_new[$id_article_costs]); @pq=split(/\?/,$p[0]); $basket_new[$id_article_quantity]=$pq[1]; } $basket_new=join(';',@basket_new); $gef=0; foreach $basket_dat (@basket_dat) { @bf=split(/\;/,$basket_dat); $old_quantity=$bf[$id_article_quantity]; $bf[$id_article_quantity]=$basket_new[$id_article_quantity]; if (join(';',@bf) eq join(';',@basket_new)) { $gef=1; if ($mengen_im_warenkorb_addieren==1) { $bf[$id_article_quantity]=$basket_new[$id_article_quantity]+$old_quantity; } $basket_dat=join(';',@bf); } } if ($gef==0) { push(@basket_dat,$basket_new); push(@basket_dat_new,$basket_new); } } sub process_order { local($i); local(@keys,@values,@field); $#keys=-1; $#values=-1; foreach $keyval (@keyval) { # Array keval durchlaufen @field=split(/\;/,$keyval); # Felder ermitteln push(@keys,$field[0]); # key in Array keys speichern push(@values,$field[1]); # value in Array values speichern } $#basket_new=-1; for ($i=0;$i<=$#basket_dat;$i++) { $input{"wk_quantity$i"}=~s/\,/\./g; if ($input{"wk_delete$i"} ne "" || $input{"wk_delete$i.x"} ne "") { $input{"wk_quantity$i"}=0; } if ($input{"wk_quantity$i"} ne "" || $input{"ok$i"} ne "") { @basket_fields=split(/\;/,$basket_dat[$i]); if ($basket_fields[$id_article_quantity]!=$input{"wk_quantity$i"}) { if ($input{"wk_quantity$i"} ne "") { # Gutschein if ( ($basket_fields[$index{"NR"}]=~/^GE_/ || $basket_fields[$index{"NR"}]=~/^G_/) && $input{"wk_quantity$i"}>1) { &abbruch("Gutscheine können nur mit der Menge 1 bestellt oder eingelöst werden."); } if ($basket_fields[$index{"STOCK"}]<$input{"wk_quantity$i"} && $bestand_verwaltung==1 && $fehlermeldung_bei_bestand_von_null==1) { &abbruch(qq!Sie möchten die Menge $input{"wk_quantity$i"} des Artikels $basket_fields[$index{"NR"}] bestellen, wir haben zur Zeit aber nur einen Bestand von $basket_fields[$index{"STOCK"}] verfügbar.

Wenn Sie sich besonders für diesen Artikel interessieren, kontaktieren Sie uns bitte per Mail.!); } $basket_fields[$id_article_quantity]=$input{"wk_quantity$i"}; $basket_dat[$i]=join(';',@basket_fields); } } if ($input{"ok$i"} ne "") { foreach $keyw (@keyw) { if ($input{"${keyw}_select$i"} ne "") { $basket_fields[$index{$keyw}]=$input{"${keyw}_select$i"}; $basket_fields[$index{$keyw}]=~s/\s\/\s/\//g; } } for ($j=0;$j<=$#keyw;$j++) { if ($input{"${keyw[$j]}_multipreis$i"} ne "") { $mpreisnr=$input{"${keyw[$j]}_multipreis$i"}; foreach $basket_fields (@basket_fields) { if ($basket_fields=~/ \* /) { @auswahl=split(/ \* /,$basket_fields); $basket_fields=$auswahl[$mpreisnr] } } } } } if ($input{"wk_quantity$i"}!=0 || $input{"wk_quantity$i"} eq "") {push(@basket_new,join(';',@basket_fields))}; } else {push(@basket_new,$basket_dat[$i]);} } @basket_dat=@basket_new; if ($input{"change"}==0) { # falls Aufruf NICHT vom Warenkorb kommt (keine Änderung, nur NEUE Artikel) $i=0; ########################################################### ## Überprüfung einer Übergabe durch: ## oder ## ## for ($k=0;$k<=$#keys;$k++) { # Alle Keys durchlaufen if ($keys[$k]=~/^NrAddWk$/) { $input{"id$i"}=$values[$k]; $input{"quantity$i"}=1; if ($input{"MengeAddWk"} ne "") {$input{"quantity$i"}=$input{"MengeAddWk"}} &add_basket($i); $i++; } elsif ($keys[$k]=~/^Nr(.*)$/) { # Falls Key = NrXXX $nr_field=$1; if ($nr_field=~/\.y$/) { # Bei Übergabe durch "type=image" .y nicht berücksichtigen $menge=0; } elsif ($nr_field=~/\.x$/ && $war_schon{$nr_field}==0) { # Bei Übergabe durch "type=image" .x = Menge 1 $nr_field=~s/\.x$//; $menge=1; } elsif ($war_schon{$nr_field}==0) { $menge=&get_menge($values[$k]); # Menge aus Value ermitteln } if ($menge>0 && $war_schon{$nr_field}==0) { # Falls Menge>0 $war_schon{$nr_field}=1; $input{"id$i"}=$nr_field; # Neuer Warenkorbeintrag mit NrXXX $input{"quantity$i"}=$menge; # und Menge &add_basket($i); $i++; # nächster freier Platz } } } ## ########################################################### ########################################################### ## Überprüfung einer Übergabe durch: ## ## ### for ($k=0;$k<=$#keys;$k++) { # Alle Keys durchlaufen if ($keys[$k]=~/^Def(.*)$/) { # Falls Key = DefXXX $defnr=$1; # DefNr ermitteln $artnr=$values[$k]; # ArtikelNummer ist der Value $menge=&get_menge($input{"Menge$defnr"}); # Menge ermitteln if ($menge>0) { # Falls Menge>0 $input{"id$i"}=$artnr; # Neuer Warenkorbeintrag $input{"quantity$i"}=$menge; # Menge &add_basket($i); $i++; # nächster freier Platz } } } ## ########################################################### } $i=0; while ($input{"id$i"} ne "") { # Alle Einträge des WKs durchlaufen, um $i auf einen freien Eintrag zu setzen $i++; } ########################################################### ## Manuelle Eingabe erlauben! ## $z=0; do { $#basket_new=-1; if ($z==0) {$nr="";} else {$nr=$z} for ($k=0;$k<=$#keys;$k++) { # Alle Keys durchlaufen if ($keys[$k]=~/add_(.*)$nr$/) { # Falls Key = add_XXXX $basket_new[$index{$1}]=$values[$k]; } } if ($basket_new[$index{"MENGE"}]>0 || $basket_new[$index{"MENGE"}] ne "") { if ($basket_new[$index{"MENGE"}]==0) {$basket_new[$index{"MENGE"}]=1;} $gef=0; foreach $basket_dat (@basket_dat) { @bf=split(/\;/,$basket_dat); $old_quantity=$bf[$id_article_quantity]; $bf[$id_article_quantity]=$basket_new[$id_article_quantity]; if (join(';',@bf) eq join(';',@basket_new)) { $gef=1; if ($mengen_im_warenkorb_addieren==1) { $bf[$id_article_quantity]=$basket_new[$id_article_quantity]+$old_quantity; } $basket_dat=join(';',@bf); } } if ($gef==0) { push(@basket_dat,join(';',@basket_new)); push(@basket_dat_new,join(';',@basket_new)); } } $z++; } while (defined($input{"add_MENGE$nr"}) || $z<=1); ## ########################################################### &save_array($basketdat,$basketdat,@basket_dat); # Warenkorb speichern } # ========================================================================================== # Liest und formatiert die Variablen fuer den Warenkorb # ========================================================================================== sub format_warenkorb { local($is_mail,$divident)=@_; local($index); if ($divident==0) {$divident=1;} local(@article); # Artikel Array erstellen $global[$id_global_sumall]=0; # Bestellsume auf "0" setzen $i=0; # Zähler auf 0 setzen $#article=-1; # Artikel Array leeren $check_no_variants.="$no_variants,"; $only_gutschein=1; foreach $basket_dat (@basket_dat) { @f=split(/\;/,$basket_dat); if ($f[$index{"NR"}]!~/G_(\d+)/) { $only_gutschein=0; } } foreach $basket_dat (@basket_dat) { # Warenkorbeinträge durchlaufen @fields=split(/\;/,$basket_dat); # Felder ermitteln $#article_fields=-1; # Leeren Artikel Array erstellen foreach $keyw (@keyw) { $index=$index{$keyw}; if ($fields[$index]=~/ \/ / && $check_no_variants!~/$keyw\,/) { if ($is_mail==1) { $fausgabe= qq!Die Bestelldaten können noch nicht verschickt werden, da Sie noch Angaben im Warenkorb zu mindestens einem Artikel festlegen müssen. Im Warenkorb können Sie dazu in einer!; $fausgabe.=qq! Auswahlbox die Einstellung auswählen. Anschliessend drücken Sie bitte jeweils auf den OK-Button neben der Auswahlbox.!; &abbruch($fausgabe); } @auswahl=split(/ \/ /,$fields[$index]); $article_fields[$index]=qq! !; } elsif ($fields[$index]=~/ \* / && $check_no_variants!~/$keyw\,/) { if ($is_mail==1) { $fausgabe= qq!Die Bestelldaten können noch nicht verschickt werden, da Sie noch Angaben im Warenkorb zu mindestens einem Artikel festlegen müssen. Im Warenkorb können Sie dazu in einer!; $fausgabe.=qq! Auswahlbox die Einstellung auswählen. Anschliessend drücken Sie bitte jeweils auf den OK-Button neben der Auswahlbox.!; &abbruch($fausgabe); } @auswahl=split(/ \* /,$fields[$index]); if ($index!=$id_article_costs && $index!=$id_article_id) { $article_fields[$index]=qq! !; } else {$article_fields[$index]=$auswahl[0];} } else { $article_fields[$index]=$fields[$index]; } } $article_fields[$id_article_quantity]=$fields[$id_article_quantity]; # Menge $article_fields[$id_article_newquantity].=qq!!; # Menge als Text Feld if ($fields[$id_article_costs]=~/\?/) { @p=split(/\ /,$fields[$id_article_costs]); foreach $p (@p) { @pq=split(/\?/,$p); if ($fields[$id_article_quantity]>=$pq[1]) { $article_fields[$id_article_sum]= &format_sum($fields[$id_article_quantity]*&format_sum($pq[0]/$divident)); } } } else { $article_fields[$id_article_sum]=&format_sum($fields[$id_article_quantity]*&format_sum($fields[$id_article_costs]/$divident)); # Summe berechnen } $global[$id_global_sumall]+=$article_fields[$id_article_sum]; # Gesamtbestellsumme push(@article,join(';',@article_fields)); # Neuen Artikel einfügen $i++; } if ($dif_porto==1) { # Falls untersch. Versandk.art if ($input{"porto"} ne "") { # Falls Versandk.art angegeben $porto=$input{"porto"}; # Versandk.art einlesen &save_array($portodat,"porto",$porto); # ... und speichern } $gef=0; # Flag gefunden auf 0 sezten foreach $porto_daten (@porto_daten) { # Alle Versandk.arten durchlaufen @pdaten=split(/\;/,$porto_daten); if ($pdaten[0] eq $porto) { # Falls zur Zeit ausgewählte Versandk.art $gef=1; # Flag gefunden auf 0 setzen last; } } if ($gef==0) {@pdaten=split(/\;/,$porto_daten[0]);} # Falls nicht gefunden, Versandk. der 1.Zeile nehmen $porto=$pdaten[0]; $this_porto=$pdaten[1]; $global[$id_global_versandkfreiab]=$pdaten[2]; $global[$id_global_versandkosten]=&format_sum($this_porto/$divident); # sonst Versandkosten = Porto $ptext=""; foreach $porto_daten (@porto_daten) { @pdaten=split(/\;/,$porto_daten); if ($pdaten[0] eq $porto) {$selec="SELECTED "} else {$selec=""} $ptext.= qq!