#!/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.hindernisbau-sickinger.de"}="596-751-941-7612"; # Hier geben Sie Ihren 13-stelligen Registrier-Key ein!!!! WICHTIG !!!! $email='info@abel-consulting.de'; # 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/"; # Verzeichnis, wo Kundendaten (Profile fuer Warenkorb) # gespeichert werden sollen. $tempdirectory="./template/"; # Verzeichnis, wo sich die Templates (HTML und Mail) befinden. $datadirectory="./daten/"; # Verzeichnis, wo sich die aus einer Datenbank # exportierte Textdatei befindet. $globaltxt="./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/lib/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="smtp.abel-consulting.de"; # Mail-Server für ausgehende (Bestellungs) Mails # z.B. mail.IhreDomain.de # ------------------------------------------------- $subject_user_mail="Ihre Bestellung Nr. [USER_ID][ORDERNR] bei Hindernisbau Sickinger"; # Betreff der Kundenmail. $subject_shop_mail="Bestellung Nr. [USER_ID][ORDERNR] bei Hindernisbau Sickinger"; # 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=5.00; # Betrag der Versandkosten für dif_porto=0 # => feste Versandkosten $versandk_frei_ab="500.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 "Bankeinzug;8.00;500.00", # => Geben Sie in jeder Zeile "Vorkasse;8.00;500.00" ); # an! # ----------------------------------------------- $min_order_typ=0; # 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="30.00"; # Mindestbestellmenge $min_order_zuschlag="10.00"; # Mindermengen-Zuschlag! @currency=( # Währungsumrechnungskurse "Euro=1.00", # => Geben Sie in jeder Zeile "Dollar=0.511292"); # "WÄHRUNG=UMRECHNUNGSKURS" # an! Ausgabe: [PREIS_DM], [PREIS_Euro] etc. @pichttp=( # HTTP-Verzeichnis für Bilder (also URL aus der Sicht des CGI-Verzeichnisses) "/artikelbilder/" # Alle Bilder werden in der Form ArtNr.gif hochgeladen, bei, ); # Art.Nr 3333 => 3333.gif # 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) "../artikelbilder/"); # => muss an die Variable @pichttp angepasst werden. # das Skript kontrolliert anhand des Server-Verz., ob das Bild # Art.Nr existiert und gibt dann das HTML-Verzeichnis in der # Ausgabe-HTML aus. @pic_field_name=( "BILD" ); # Geben Sie hier das Datenbankfeld an, in dem die Namen # 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=1; # 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="ac"; # Admin-Passwort! # Das Admin.Menü kann gestartet werden über: # /cgi-bin/his-webshop.pl?admin= $no_variants="NR,BILD,KATEGORIE,TITEL,PREIS1,PREIS2,PREIS3,ZUBEHOER1,ZUBEHOER2"; # Geben Sie hier die Felder ein, die generell keine Artikel-Varianten # (werden mit / oder mit * getrennt) enthalten. @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/reithindernisse.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=( "NICHT_LIEFERBAR", "NR", "BILD", "KATEGORIE", "TITEL", "PREIS1", "PREIS2", "PREIS3", "ZUBEHOER1", "ZUBEHOER2", "LEER" ); # ========================================================================================== # 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=0; # 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_ANREDE", "U_NAME", "U_EMAIL", "U_STRASSE", "U_PLZ", "U_ORT", "U_LAND", "U_LISTE", "U_ORDERS" ); $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=0; # 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=5; # Provison in Prozent! @puserf= ( "P_USER", "P_PASS", "P_ANREDE", "P_NAME", "P_EMAIL", "P_STRASSE", "P_PLZ", "P_ORT", "P_LAND", "P_LISTE", "P_ORDERS" ); $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\nEin Fehler ist aufgetaucht.\n\nBitte wiederholen Sie Ihre Suche."; $fe[1]="Content-type: text/html\n\nEin Fehler ist aufgetaucht.\n\nBitte wiederholen Sie Ihre Suche."; $fe[2]="Content-type: text/html\n\nEin Fehler ist aufgetaucht.\n\nBitte wiederholen Sie Ihre Suche."; $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."hindernisse.csv"; # 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 } 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!
    !; if ($use_partner_db==1) { print qq!
  3. !; 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!
  4. !; 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!
  5. !; print qq!!; print qq!Überweisung an Partner (Reseller) eintragen:
    !; print qq!!; print qq!
    Partner-ID (PID):
    Überwiesener Betrag:
    !; print qq!!; print qq!
    !; print qq!
  6. !; 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] || $ip1[2] ne $ip2[2]) {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"; } # ========================================================================================== # 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 { # 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).!); } 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 "") { 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!