Fehler bei Checkboxen

[alive]

Hallo,

ich habe ein Problem bei mir werden die checkboxen immer mit dem definierten "aktivierten Wert" zurückgegeben, auch wenn sie gar nicht aktiviert sind.

Woran kann das liegen??

Ich habe den einfachen Form-Mailer verwendet, mit dem eigentlich laut Erläuterungen das Auslesen von checkboxen funktionieren sollte.

http://selfaktuell.teamone.de/tippstricks/cgiperl/form-mail/index.htm

Gruß

[wahsaga]

hi,

ich habe ein Problem bei mir werden die checkboxen immer mit dem definierten "aktivierten Wert" zurückgegeben, auch wenn sie gar nicht aktiviert sind.

Woran kann das liegen??

an deinem code ...?

gruß,
wahsaga

[alive]

Hi,

mein Code ist genau wie der im Beispiel hier auf der Seite!!

Guckst Du...

#!/usr/bin/perl -w

-------> SMTP-Programm zum Versenden der Mail:

$Sendmail_Prog = "/usr/sbin/sendmail";

-------> Modul für CGI-Scripts einbinden:

use CGI;

-------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:

$query = new CGI;
@names = $query->param;

-------> interne Daten aus den erwarteten hidden-Feldern auslesen:

$delimiter = $query->param('delimiter');  # ---> Begrenzerzeichen zwischen name und value
$mailto = $query->param('mailto');        # ---> Empfängeradresse
$returnhtml = $query->param('return');    # ---> URL für Dankeseite
$subject = $query->param('subject');      # ---> E-Mail-Subject

-------> Text der E-Mail aus den Formulardaten ermitteln:

$mailtext = "";
foreach(@names) {
  $name = $_;
  @values = "";
  @values = $query->param($name);
  if($name ne "mailto" && $name ne "return" && $name ne "subject" && $name ne "delimiter") {
    foreach $value (@values) {
      $mailtext = $mailtext.$name;
      $mailtext = $mailtext.$delimiter;
      $mailtext = $mailtext.$value."\n";
    }
  }
}

-------> E-Mail versenden:

open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);

-------> Dankeseite an Browser senden:

print "Location: $returnhtml\n\n";

Gruß

[Rolf Rost]

Hi,

[...]

Sehe da keine Checkboxen. Also auch kein Problem.

Gruss, Rolf

[ortenau-s-bahner]

Hi,

$mailto = $query->param('mailto');        # ---> Empfängeradresse
[...]
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";

*Nie*, absolut *niemals*, die Mailadresse, an die was versendet werden soll, einfach als Parameter übernehmen bzw. übergeben. Das Skript wird somit zum Sprungbrett für jeden Spammer!

Bei Formmailern immer die Adresse fest im Code angeben:

print MAIL "To: [e-mail]\n";

Achja:

foreach(@names) {
  $name = $_;

kann man auch als

foreach $name (@names){

schreiben.

HTH

ortenau-s-bahner

[Rolf Rost]

Hi,

$mailto = $query->param('mailto');        # ---> Empfängeradresse
[...]
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";

*Nie*, absolut *niemals*, die Mailadresse, an die was versendet werden soll, einfach als Parameter übernehmen bzw. übergeben. Das Skript wird somit zum Sprungbrett für jeden Spammer!

Das ist vollkommen richtig, also nicht machen.

Bei Formmailern immer die Adresse fest im Code angeben:

print MAIL "To: [e-mail]\n";

Das muss ich verbessern ;-) so:

print MAIL "To: [e-mail]\n";

Also die Crux mit der Maskiererei... kann umgangen werden mit 'oifach gwodn':

'[e-mail]';

Gruss aus Mittelbaden, Rolf

[ortenau-s-bahner]

Hi,

Das muss ich verbessern ;-) so:

print MAIL "To: [e-mail]\n";

Also die Crux mit der Maskiererei... kann umgangen werden mit 'oifach gwodn':

Grmpf! Immer dieses blöde double-quoting. Jeder steckt alles in doppelte Anführungszeichen, auch wenn es gar nicht nötig ist (ok, in dem Fall wegen dem \n) und verteilt dann lieber zwei Handvoll Backslashes als einfach einfach zu quoten.

'ortenau-s-bahner'

[Rolf Rost]

Hi,

Das muss ich verbessern ;-) so:

print MAIL "To: [e-mail]\n";

Also die Crux mit der Maskiererei... kann umgangen werden mit 'oifach gwodn':

Grmpf! Immer dieses blöde double-quoting. Jeder steckt alles in doppelte Anführungszeichen, auch wenn es gar nicht nötig ist (ok, in dem Fall wegen dem \n) und verteilt dann lieber zwei Handvoll Backslashes als einfach einfach zu quoten.

Achwas, ich stolpere auch regelmäßig darüber ;-)

Das Letztemal hierbei
$impressum = qq(
    <pre>
       eMail: [e-mail]
    </pre>
);

print $impressum; # Internal Server Error

Was solls *g

Gruss vom Oberrhein, Rolf

[alive]

Hallo,

hat sich schon geklärt, hab den Fehler schon gefunden!!!

Danke.

Gruß

[wahsaga]

hi,

hat sich schon geklärt, hab den Fehler schon gefunden!!!

wäre nett, wenn du für's archiv noch kurz mitteilen könntest, woran's lag.

gruß,
wahsaga