Ergebnis 1 bis 2 von 2

Thema: Perl Script in HTML einbinden?!

  1. #1
    Chumscrubber
    Gast

    Standard Perl Script in HTML einbinden?!

    Hallo Leute,

    ich bin am verzweifeln. Ich möchte für meine Homepage ein Kontaktformular einbinden, aber hab keinen blassen schimmer, wie ich das bewerkstelligen soll.
    Die HTML Datei hab ich geschrieben, aber das Perl Script is nicht von mir. Wie kann ich das folgende Script in die HTML Datei einbinden?

    HTML

    Sie haben Fragen zu unseren Leistungen oder Produkten?

    Kein Problem, wir helfen ihnen gern weiter.

    Kontaktieren Sie uns einfach über das folgende Kontaktformular:
    <table width="347" border="0">
    <form id="form1" name="form1" method="post" action="">
    <tr>
    <td width="124">Firma:</td>
    <td width="213">
    <label>
    <input name="Firma" type="text" id="Firma" size="35" maxlength="35" />
    </label>
    </td>
    </tr>
    <tr>
    <td >Name:</td>
    <td>
    <label>
    <input name="Name" type="text" id="Name" size="35" maxlength="35" />
    </label>
    </td>
    </tr>
    <tr>
    <td>Telefonnummer:</td>
    <td>
    <label>
    <input name="Tel" type="text" id="Tel" size="35" maxlength="18" />
    </label>
    </td>
    </tr>
    <tr>
    <td>Betreff:</td>
    <td>
    <label>
    <input name="Betreff" type="text" id="Betreff" size="35" maxlength="35" />
    </label>
    </td>
    </tr>
    <tr>
    <td>eMail:</td>
    <td>
    <label>
    <input name="eMail" type="text" id="eMail" size="35" maxlength="35" />
    </label>
    </td>
    </tr>
    <tr>
    <td>Mitteilung:</td>
    <td>
    <label>
    <textarea name="mitteilung" cols="30" rows="7" id="mitteilung"></textarea>
    </label>
    </td>
    </tr>

    <tr>
    <td>
    <div align="center">
    <input name="loeschen" type="reset" id="loeschen" value="Löschen" />
    </div></td>
    <td>
    <div align="center">
    <input type="submit" name="senden" id="senden" value="Senden" />
    </div></td>
    </tr>
    </form>
    </table>


    Perl

    #!/usr/bin/perl

    print "Content-type: text/html\n\n";
    if ($ENV{'REQUEST_METHOD'} eq "GET")
    {
    $frage=$ENV{'QUERY_STRING'};
    }
    elsif ($ENV{'REQUEST_METHOD'} eq "POST")
    {
    read (STDIN,$frage,$ENV{'CONTENT_LENGTH'});
    }
    @frage=split(/&/,$frage);
    foreach $i(0..$#frage)
    {
    @frage[$i]=~s/\+/ /g;
    ($key,$value)=split(/=/,$frage[$i],2);
    $key=~s/%(..)/pack("c",hex($1))/ge;
    $value=~s/%(..)/pack("c",hex($1))/ge;
    $key=~s/\n/ /g;
    $value=~s/\n/ /g;
    $key=~s/\"/ /g;
    $value=~s/\"/ /g;
    $Frage{$key}=$value;
    }


    ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isd st)=gmtime();
    $jahr=$year;
    $monat=$mon+1;
    $tag=$mday;
    $jahr=$year+1900;
    # Definition der Maildatei
    $tempfile = 'd:\perl_temp\data\mail.tmp';

    # Oeffnen der Maildatei
    open( OUT, ">$tempfile" );

    print OUT "From: $Frage{'Email'}\n";
    print OUT "To: info\@mailadresse.de\n";
    print OUT "Subject: Mail ueber das Kontaktformular Ihrer Internetseite.\n\n";
    print OUT "Heute ist der $tag.$monat.$jahr .\n\n";
    print OUT "Diese Daten wurden eingegeben.\n";
    print OUT "Firma:$Frage{Firma}\n";
    print OUT "Name: $Frage{Name}\n";
    print OUT "Telnr: $Frage{Tel}\n";
    print OUT "Betreff:$Frage{Betreff}\n";
    print OUT "eMail:$Frage{eMail}\n";
    print OUT "Mitteilung:$Frage{Mitteilung}\n";
    close (OUT);

    # Maildatei $tempfile ins Verzeichnis pickup kopieren
    # Sie wird von dort automatisch als Mail versendet.
    $maildat='copy d:\perl_temp\data\mail.tmp c:\inetpub\mailroot\pickup\mail.tmp';
    `$maildat`;

    # Maildatei im Verzeichnis d:\perl_temp\data anschliessend loeschen:
    unlink( $tempfile );

    Gruß und besten Dank für die Hilfe
    Chumscrubber
    Achtung: Dies ist ein alter Thread im HTML und Webmaster Forum
    Diese Diskussion ist älter als 90 Tage. Die darin enthaltenen Informationen sind möglicherweise nicht mehr aktuell. Erstelle bitte zu deiner Frage ein neues Thema im Forum !!!!!

  2. #2
    Forum Guru
    Registriert seit
    13.01.2005
    Ort
    Schweiz
    Beiträge
    5.240
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard

    Das Thema "Kontaktformular in HTML einbinden" behandeln wir hier etwa im Wochentakt.
    Begib dich also bitte mal zur Forensuche und such dir eine von 1000 Lösungen.

    Cheers

Ähnliche Themen

  1. Wie Aktiviere ich ein Perl ( *.pl ) script auf meinem space
    Von Crash1982 im Forum PHP Forum - Apache - CGI - Perl - JavaScript und Co.
    Antworten: 2
    Letzter Beitrag: 24.05.2007, 22:59
  2. perl script zum absenden von formularen
    Von steffi2 im Forum PHP Forum - Apache - CGI - Perl - JavaScript und Co.
    Antworten: 5
    Letzter Beitrag: 12.04.2007, 14:16
  3. Brauche dringend ein perl script
    Von MezzoMix im Forum PHP Forum - Apache - CGI - Perl - JavaScript und Co.
    Antworten: 2
    Letzter Beitrag: 03.02.2007, 21:50
  4. email Perl script Problem!!
    Von sirclueless im Forum PHP Forum - Apache - CGI - Perl - JavaScript und Co.
    Antworten: 1
    Letzter Beitrag: 24.01.2007, 14:41
  5. Perl - Variablendeklaration aus Script auslagern?
    Von webbie im Forum PHP Forum - Apache - CGI - Perl - JavaScript und Co.
    Antworten: 1
    Letzter Beitrag: 01.12.2004, 00:14

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •