Moritz: Kontaktformular mit txt Datenfunktion?

Hallo,

ich möchte ein Kontaktformular basteln, das die Daten in einer txt Datei speichert.
Ich stehe noch komplett am Anfang. Gibt es irgendwo eine wirklich einfache Anweisung oder ein fertiges skript das ich nurnoch einbinden muss?

Die website unterstützt eigene CGI.

Vielen Dank
Mortiz

  1. hi Moritz!

    ich möchte ein Kontaktformular basteln, das die Daten in einer txt Datei speichert. [...]
    Die website unterstützt eigene CGI.

    und welche sprache? perl, php, ...?

    das noetigste wissen, um so etwas in perl selbst zu basteln findest du z.b. auf http://selfhtml.teamone.de/cgiperl/index.htm

    prost
    seth

  2. Hallo Moritz,

    Ich stehe noch komplett am Anfang. Gibt es irgendwo eine wirklich einfache Anweisung oder ein fertiges skript das ich nurnoch einbinden muss?

    Du kennst nicht zufällig jemanden mit Namen "fatalis" ;-)
    Für den Anfang: [pref:t=65973&m=375927]

    Grüße
    Torsten

  3. Hi,

    falls es sich deine Frage noch nicht erledigt hat, kann ich dir mal ein voll konkretes Bespiel schicken.

    Gruß
    Dieter

    1. Du baust ein Perl-Skript z.B. speichern.cgi
      Dieses rufts Du uber deine form-Action im Formular auf und übermittelst speichern.cgi die Daten:

      ... wir beginnen mal mitten drin!

      $query = new CGI;
      print $query->header;

      #####################################################################

      Uebergebene Parameter einlesen

      #####################################################################

      my $name = $query->param("name"); # Parameter 'name' aus dem Formular
      my $telefon = $query->param("telefon"); # Parameter 'telefon'
      my $email = $query->param("email"); # Parameter 'email' Formular

      ... usw.

      ... mehr Quelltext

      Festlegen des Speicherortes deiner Dateien

      Die Variablen werden zum Teil selbst gesetzt

      my $ndat = $ENV{'DOCUMENT_ROOT'}.$BASEPATH . '/'. $datei. '_' .$version. '.txt';

      ###############################################################

      Speichern der Daten

      ###############################################################

      open (FILE, "+>" . $ndat) || die "Fehler beim Oeffnen von $ndat";

      print FILE <<EOF;
      Name=$name
      Telefon=$telefon
      EMail=$email

      Datei=$datei
      Version=$version
      Kommentar=$kommentar
      Prio=$prio

      EOF

      close (FILE);

      ... hier kommt der Rest vom Skript

      z.B. Feedbackseite ausgeben

      Benachrichtigung, Antwort mailen nach dem Motto

      Hallo Kontakt, vielen Dank für Ihr Interesse, ...

      Reicht das soweit?
      Ansonsten per Email Kontakt aufnehmen

      Chiao
      Dieter