[cgi]Mail form - Softwareontwikkeling

zondag 28 juni 2009 15:29

Acties:

0 Henk 'm!

Verwijderd

Topicstarter

Voor iemand ben ik bezig om een goed werkend form to mail te maken.
het werkt op zich prima behalve dat de text in de email niet aligned is.
helaas kan ik niet achterhalen waar de fout ligt dus wilde ik een beroep op jullie expertise doen.
Hier is de cgi code die ik gebruik.
prive gegevens zijn gemaskeerd met XXXXX

code:

#!/usr/bin/perl



$path_to_sendmail = "/usr/sbin/sendmail";
$email_field = "01Email";
$use_autoresponse = "No";
$autoresponse_message = "";
$showconfirmation = "No";
$usecustomthankyou = "Yes";

$htmlheader = "";
$htmlfooter = "";

print "Content-type: text/html\n\n";
%data=&get_data();
@fields = sort(keys(%data));
@required = ('00Naam','01Email','02Adres','03Postcode','04Woonplaats','05Land');
if($fields[0] eq ""){
    print "$htmlheader
           <body  bgcolor=\"#FEFCF5\" text=\"#000000\" link=\"#0000FF\" alink=\"#FF0000\" vlink=\"#800080\">
           <b>Fout: Onvoldoende
           informatie</b><br><br>
       <font size=+1>U heeft geen gegevens ingevoerd.
       Ga terug naar bestellen, vul alles in, en druk op verzenden.</font>";
           print "<hr><a href=\"javascript:history.back();\">Back...</a>";
           print "</font>$htmlfooter";
       exit();
   }

foreach $field (@required){
  if($field eq $email_field){
    $email_test = &check_email($data{$field});
    if($email_test){
        $error_fields .= $email_test;
        }
    }
  foreach $req (@required){
    if($req eq $field){
       if($data{$field} eq ""){
     if($field eq $email_field && $email_test ne ""){ next; }
         $field =~ s/^\d\d//g;
         $field =~ s/_/ /g;
      $error_fields .= "$field must be filled out.<br>";
      }
       }
    }
 }
#if($data{'Message'} eq "" || $data{'Message'} =~ /^\s+$/){
#        $error_fields .= "U heeft geen bericht ingevoerd!<br>\n";
#        }
if($error_fields ne ""){
          print "$htmlheader
                 <body  bgcolor=\"#FEFCF5\" text=\"#000000\" link=\"#0000FF\" alink=\"#FF0000\" vlink=\"#800080\">
                <b>Fout: Onvoldoende
        Informatie</b><br><br>
            <font size=+1>Sorry, maar er is een probleem met wat u heeft ingevuld.</font><br>
        <br>
                Verbeter uw fout en probeer opnieuw:<br>
        <br>
        $error_fields
        <br><br>
                Ga terug naar bestellen, vul alles in, en druk op verzenden..</font>";
          print "<hr><a href=\"javascript:history.back();\">Back...</a>";
          print "</font>$htmlfooter";
      exit();
    }
foreach $field (@fields){
    $len1 = sprintf("%3s", length($field));
    $len1 =~ s/\D/0/g;
    $lengths[$#lengths + 1] = $len1;
    }

@lengths = sort(@lengths);
$longest = $lengths[$#lengths];

 $toemail = "XXXXXXXX\@XXXXXXX.nl";
 $fromemail = "XXXXXXXX\@XXXXXXXXX.nl";
 if($data{$email_field}){
    $replytoemail = $data{$email_field};
    }
 else {
    $replytoemail = $fromemail;
    }
 if($data{'FormSubject'} ne ""){
    $subject = $data{'FormSubject'};
    }
 else {
    $subject = "Bericht van uw website";
    }
 $subject =~ s/\s+/ /sg;
 $subject =~ s/\0/ /sg;
 $subject .= "\n\n";

 $message = "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\n";
 $message .= " Deze bericht is verstuurd via uw website, de gebruiker die deze\n";
 $message .= " bericht heeft verstuurd heeft IP adres:\n";
 $message .= " $ENV{'REMOTE_ADDR'} $ENV{'REMOTE_HOST'}\n";
 $message .= " Tijdstip: " . localtime() . "\n";
 $message .= " Als dit bericht spam is, neem dan contact op met hun provider.\n";
 $message .= "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=";
 $message .= "\n\n";

  if($showconfirmation eq "Yes"){
    $confirmation = "<table border=1 cellpadding=2 cellspacing=0>
    <tr><td colspan=2><b>Het volgende informtatie heeft u verzonden:</b></td></tr>\n";
    }

foreach $field (@fields){
   if($field eq "FA" ||
      $field eq "owneremail" ||
      $field eq "BodyTag" ||
      $field eq "Submit" ||
      $field eq "required" ||
      $field eq "Message"){
     next;
     }
  $show = $field;
  $show =~ s/^\d\d//g;
  $show =~ s/_/ /g;
  $longest = $longest * 1;
  $len = "% ".$longest."s";
  $show = sprintf("$len", $show);
  $message .= "$show: $data{$field}\n";
  if($showconfirmation eq "Yes"){
    $confirmation .= "<tr><td><b>$show</b></td><td>$data{$field}</td></tr>\n";
    }
  }

  if($showconfirmation eq "Yes"){
    $confirmation .= "<tr><td valign=left><b>Message</b></td><td>$data{'Message'}</td></tr>";
    $confirmation .= "</table>\n";
    }

  $message .= "\nBericht:\n\n$data{'Message'}\n";
  foreach $msgline (split(/\n/, $message)){
    $msgline =~ s/^cc:/ X-abused-cc: /isg;
    $msgline =~ s/^bcc:/ X-abused-bcc: /isg;
    $msgline =~ s/^to:/ X-abused-to: /isg;
    $msgline =~ s/^from:/ X-abused-from: /isg;
    $msgline =~ s/^reply-to:/ X-abused-reply-to: /isg;
    $msgline =~ s/^subject:/ X-abused-subject: /isg;
    $msgline =~ s/^Received:/ X-abused-received: /isg;
    $newmsg .= "$msgline\n";
    }
   $message = $newmsg;
  # Do the Autoresponse, if any
  if($replytoemail ne $fromemail && $use_autoresponse eq "Yes" &&
     $autoresponse_message ne ""){
     &send_mail($replytoemail,$replytoemail,$fromemail,$fromemail,$fromemail,
             $fromemail,"Bedankt voor uw email",$autoresponse_message,
             'mail.your_domain.com',
             'www.your_domain.com',
             'unix', '',$smtp_auth,
         $pop_un,$pop_pw);
    }
  # Send the mail to you
  &send_mail($toemail,"Webmaster",$fromemail,"$replytoemail ",$replytoemail,
             $replytoemail,$subject,$message,
             'mail.your_domain.com',
             'www.your_domain.com',
             'unix', '',$smtp_auth,
         $pop_un,$pop_pw);

  $data{'BodyTag'} =~ s/&lt;/\</g;
  $data{'BodyTag'} =~ s/&gt;/\>/g;
  $data{'BodyTag'} =~ s/&quot;/\"/g;

  if($usecustomthankyou eq "No"){
    print "$htmlheader
      $data{'BodyTag'}
      <font size=+1>Dank je.  Je bericht is verzonden.<br><br>
      $confirmation<br> ";

    print "<a href=\"http://www.XXXXXXXXX.nl/XXXXXXXXX.html\">http://www.XXXXXXXXX.nl/XXXXXXXXX.html</a>";

      print "</font>$htmlfooter";
    exit();
    }
  else {
    $htmlheader =~ s/<\/head>/<meta HTTP-EQUIV=Refresh Content=\"0;URL=http:\/\/www.XXXXXXXXX.nl\/XXXXXXXXX.html\">\n<\/head>/is;
    if($htmlheader !~ /<\/head>/i){
        $htmlheader .= "<head>\n<META HTTP-EQUIV=Refresh Content=\"0;URL=http://www.gXXXXXXXXX.nl/XXXXXXXXX.html\">\n</head>";
        }
    print "$htmlheader
      $data{'BodyTag'}
      <font size=+1>Dank je.  Je bericht is verzonden.<br>
      $confirmation<br> ";

    print "<a href=\"http://www.XXXXXXXXX.nl/XXXXXXXXX.html\">http://www.XXXXXXXXX.nl/XXXXXXXXX.html</a>";

     print " </font>$htmlfooter";
    exit();
    }

sub check_email {

 my $email = $_[0];
 if($email !~ /(.{1,})(\@)(.{1,})(\.)(.{2,})/ ||
    $email =~ /,/ || $email =~ /.*\@.*\@/ || $email =~ /\@\@/ ||
    $email =~ /\s/ || $email =~ /\.$/ || $email =~ /\@\./){
    return "Email adres is geen geldige email adres.<br>";
    }

}

#&send_mail("to_email","to_name","from_email","from_name","replyto_email",
#               "replyto_name","subject","message","mail_server_hostname",
#              "this_server_hostname",$opsys,$htmlmail,$smtp_auth,
#               $pop_un,$pop_pw);
sub send_mail {
   local($toemail,$toname,$fromemail,$fromname,
         $replytoemail,$replytoname,$subject,
         $message,$mail_server_hostname,$this_server_hostname,$opsys,
         $htmlmail,$smtp_auth,$pop_un,$pop_pw) = @_;
  my($boundary) = crypt("blah",time.$$).time.$$;
  my($testaddr);
  foreach $testaddr (split(/,/, "toemail,toname,fromemail,fromname,replytoemail,replytoname,subject")) {
        ${$testaddr} =~ s/\0//sg;
        ${$testaddr} =~ s/\r//sg;
        ${$testaddr} =~ s/\n//sg;
        ${$testaddr} =~ s/\r\n//sg;
        ${$testaddr} =~ s/\015//sg;
        ${$testaddr} =~ s/\012//sg;
        ${$testaddr} =~ s/\015\012//sg;
        ${$testaddr} =~ s/\s+/ /sg;
        }

if($opsys eq "win"){
   my($port,$child,$proto);

   # Switch to $auth_from_address if there is one.
   if(($smtp_auth eq "POP" || $smtp_auth eq "SMTP") &&
      $auth_from_address){
      $fromemail = $auth_from_address;
      }
   # Do pop-before-smtp auth if necessary.
   if($smtp_auth eq "POP"){
     &do_pop_auth($this_server_hostname,$mail_server_hostname,$pop_un,$pop_pw);
     }
   $CRLF = "\015\012"; # Make sure we have the correct line endings
   $message =~ s/\r\n/\n/sg;
   $message =~ s/\r/\n/sg;
   $message =~ s/\n/$CRLF/sg;
   my $port = 25;
   use Socket;

   $SIG{'INT'} = 'dokill';
   sub dokill {
       kill 9,$child if $child;
   }


   my $proto = 6; # tcp

   $this = pack_sockaddr_in(0, inet_aton($this_server_hostname));
   $that = pack_sockaddr_in($port, inet_aton($mail_server_hostname));

   if (socket(S, AF_INET, SOCK_STREAM, $proto)) {
       &debug("Created socket.");
   }
   else { &debug("Could not create socket for mail: $!"); }

   if (connect(S,$that)) {
       &debug("Connected to socket.");
   }
   else { &debug("Could not connect to socket: $!"); }

   # Unbuffer the output for socket and stdout
   select(S); $| = 1; select(STDOUT); $| = 1;
   &debug("Server responded: " . read_response()) if $no_more !=1;
   # SMTP auth is done in the same socket connection, so let's do it now.
   if($smtp_auth eq "SMTP"){
       &do_smtp_auth($pop_un,$pop_pw);
       }
   # We don't need HELO with SMTP auth because we already did EHLO
   else {
      &debug("I sent: HELO $this_server_hostname\\r\\n") if $no_more !=1;
      print S "HELO $this_server_hostname$CRLF";
      &debug("Server responded: " . read_response()) if $no_more !=1;
      }
   &debug("I sent: MAIL FROM:<$fromemail>\\r\\n") if $no_more !=1;
   print S "MAIL FROM:<$fromemail>$CRLF";
   &debug("Server responded: " . read_response()) if $no_more !=1;
   &debug("I sent: RCPT TO:<$toemail>\\r\\n") if $no_more !=1;
   print S "RCPT TO:<$toemail>$CRLF";
   &debug("Server responded: " . read_response()) if $no_more !=1;
   &debug("I sent: DATA\\r\\n") if $no_more !=1;
   print S "DATA$CRLF";
   &debug("Server responded: " . read_response()) if $no_more !=1;
   &debug("I sent: To: $toname <$toemail>\\r\\n") if $no_more !=1;
   print S "To: $toname <$toemail>$CRLF";
   &debug("I sent: From: $fromname <$fromemail>\\r\\n") if $no_more !=1;
   print S "From: $fromname <$fromemail>$CRLF";
   if($replytoemail ne ""){
      &debug("I sent: Reply-to: $replytoname <$replytoemail>\\r\\n") if $no_more !=1;
      print S "Reply-to: $replytoname <$replytoemail>$CRLF";
      }
   if(!$x_auth_header){ $x_auth_header = "X-Auth-Type: None"; }
   print S "$x_auth_header$CRLF";
   print S "X-Mailer: $0 http://tesol.net/scripts/$CRLF";
   &debug("I sent: Subject: $subject\\r\\n") if $no_more !=1;
   print S "Subject: $subject$CRLF";
   if($htmlmail eq "yes"){
     &debug("Putting in HTML message\\r\\n") if $no_more !=1;
     print S "MIME-Version: 1.0$CRLF";
     print S "Content-type: MULTIPART/MIXED; BOUNDARY=\"$boundary\"$CRLF";
     print S "--$boundary$CRLF";
     print S "Content-type: text/html;$CRLF$CRLF";
     print S "$message$CRLF";
     print S "$CRLF$CRLF";
     print S "--$boundary$CRLF";
     print S "Content-type: TEXT/PLAIN; charset=US-ASCII$CRLF$CRLF";
     print S "$message--$boundary--$CRLF";
     }
   else {
      &debug("Putting in plain text message\\r\\n") if $no_more !=1;
      print S "$CRLF";
      print S "$message$CRLF";
      }
   &debug("I sent: .\\r\\n") if $no_more !=1;
   print S ".$CRLF";
   &debug("Server responded: " . read_response()) if $no_more !=1;
   &debug("I sent: QUIT\\r\\n") if $no_more !=1;
   print S "QUIT$CRLF";
   &debug("Server responded: " . read_response()) if $no_more !=1;
   &debug("Sending mail done.") if $no_more !=1;

   }

elsif($opsys eq "unix"){

   # Allow for qmail-inject ~sigh~
   # Most other mailer thingies do use the -t option like
   # sendmail in order to be compatible, but apparently
   # qmail-inject does not. Oh well...

   if($path_to_sendmail !~ /qmail-inject/){
      $path_to_sendmail = "$path_to_sendmail -t";
      }

   open(MAIL, "|$path_to_sendmail") ||
     &debug("Could not open sendmail: $!");
     print MAIL "To: \"$toname\" <$toemail>\n";
     print MAIL "From: \"$fromname\" <$fromemail>\n";
     print MAIL "X-Abuse-Identifier: $ENV{'REMOTE_ADDR'}\n";
     if($replytoemail ne ""){
       print MAIL "Reply-to: \"$replytoname\" <$replytoemail>\n";
       }
     print MAIL "Subject: $subject\n";
     if($htmlmail eq "yes"){
        print MAIL "MIME-Version: 1.0\n";
        print MAIL "Content-type: MULTIPART/MIXED; BOUNDARY=\"$boundary\"\n";
        print MAIL "--$boundary\n";
        print MAIL "Content-type: text/html;\n\n";
        print MAIL "$message\n";
        print MAIL "\n\n";
        print MAIL "--$boundary\n";
        print MAIL "Content-type: TEXT/PLAIN; charset=US-ASCII\n\n";
        print MAIL "$message--$boundary--\n";
        }
     else {
        print MAIL "\n";
        print MAIL "$message\n";
        }
     close(MAIL) || &debug("Sending mail got an error: $! $?");
     &debug("Sending mail done.");
   }

else {

   &debug("Cannot send mail. '$opsys' is not a valid operating sytem.
           Please set \$opsys to either 'unix' or 'win' in the script
           and try this again.");
    }
}

# Usage: do_pop_auth(local_server_hostname,mail_server_hostname,username,pw);
# Opens a socket connection to the pop server to do POP-before-SMTP
# authentication.

sub do_pop_auth {
   my($this_server_hostname,$mail_server_hostname,$username,$password) = @_;
   use Socket;
   $port = 110;

   $x_auth_header = "X-Auth-Type: POP-BEFORE-SMTP";

   my $CRLF = "\r\n";
   $SIG{'INT'} = 'dokill';
   sub dokill {
       kill 9,$child if $child;
   }

   my $proto = 6;

   $this = pack_sockaddr_in(0, inet_aton($this_server_hostname));
   $that = pack_sockaddr_in($port, inet_aton($mail_server_hostname));

   if (socket(S, AF_INET, SOCK_STREAM, $proto)) {
    &debug("Created S socket for pop auth.");
   }
   else { &debug("Could not create socket for pop auth: $!"); }

   if (connect(S, $that)){
    &debug("Connected to S socket for pop auth.");
   }
   else { &debug("Could not connect to socket for pop auth: $!"); }

   select(S); $| = 1; select(STDOUT); $| = 1;

   &debug("Server responded: " . read_response()) if $no_more !=1;
   &debug("I sent: USER $username\\r\\n") if $no_more !=1;
   print S "USER $username$CRLF";
   &debug("Server responded: " . read_response()) if $no_more !=1;
   &debug("I sent: PASS <password>\\r\\n") if $no_more !=1;
   print S "PASS $password$CRLF";
   &debug("Server responded: " . read_response()) if $no_more !=1;
   if($_ !~ /OK/){ &debug("Ooops. Username/PW incorrect."); }
   else {
      &debug("I sent: QUIT\\r\\n") if $no_more !=1;
      print S "QUIT$CRLF";
      &debug("Server responded: " . read_response()) if $no_more !=1;
      }
   close(S) || &debug("Could not close S socket: $!\n");
   &debug("POP before SMTP attempt complete.");


}

# Usage: do_smtp_auth($username,$password);
# Assumes that your socket connection to the SMTP port of the mail server
# is already open from sub send_mail above.

sub do_smtp_auth {

   my($username,$password) = @_;
   $x_auth_header = "X-Auth-Type: SMTP-AUTH-LOGIN";

   &debug("I sent: EHLO $this_server_hostname\\r\\n") if $no_more !=1;
   print S "EHLO $this_server_hostname\r\n";
   &debug("Server responded: " . read_response()) if $no_more !=1;
   &debug("I sent: AUTH LOGIN\\r\\n") if $no_more !=1;
   print S "AUTH LOGIN\015\012";
   &debug("Server responded: " . read_response()) if $no_more !=1;
   # AUTH LOGIN requires username/pw encoded in Base64. However, we don't
   # know if the user will have the Base64 module available, so we'll do it
   # manually.
   $b64_u = join '', map( pack('u',$_)=~ /^.(\S*)/, ($username=~/(.{1,45})/gs));
   $b64_u =~ tr|` -_|AA-Za-z0-9+/|;
   &debug("I sent: '$b64_u'\\r\\n") if $no_more !=1;
   print S "$b64_u$CRLF";
   &debug("Server responded: " . read_response()) if $no_more !=1;
   $b64_p= join '', map( pack('u',$_)=~ /^.(\S*)/, ($password=~/(.{1,45})/gs));
   $b64_p=~ tr|` -_|AA-Za-z0-9+/|;
   &debug("I sent: '$b64_p'\\r\\n") if $no_more !=1;
   print S "$b64_p$CRLF";
   &debug("Server responded: " . read_response()) if $no_more !=1;
   if($_ !~ /^235/){
    &debug("ERROR: SMTP authentication failed. Mail may not be sent.");
    }
   &debug("SMTP auth attempt complete.");

}

# Read multi-line responses from our socket connection. Only if
# using a Windows server for mail.
sub read_response {
  my ($socket_says);
  # If we've hit a 500 error, we're not going any further, so go ahead
  # and quit the connection.
  if($no_more == 1){ return; }
  do {
     $_ = <S>; chomp($_);
     $socket_says .= $_ . "\n";
     if(/^5/){
    &debug("\nERROR: Something went wrong." .
                  "Anything beyond this won't work. $server_says ");
        print S "QUIT$CRLF";
        $no_more = 1;
        }
     } while (/^[\d]+-/);
  $socket_says;
}

sub get_data {

    use CGI qw/:standard/;
    my $query = new CGI;
    foreach $key ($query->param()){
        $data{$key} = $query->param($key);
        }

        %data;          # return associative array of name=value
    }

sub debug {
   if($debugging == 1){
      print "DEBUG: $_[0]<br>\n";
   }
}

Alvast mijn dank voor enige reacties

zondag 28 juni 2009 15:44

Acties:

0 Henk 'm!

Soultaker

Verwijderd schreef op zondag 28 juni 2009 @ 15:29:
het werkt op zich prima behalve dat de text in de email niet aligned is.

Wat bedoel je daar precies mee? Het zal wel met de HTML-opmaak van het bericht te maken hebben; daar hoeven we je Perl code niet voor te zien. Post liever de inhoud van je mailtje en geef aan wat er precies mis gaat is.

(Sowieso hoor je hier - naar mijn mening - geen codefragmenten van meer dan enkele tientallen regels te plaatsen, laat staan meer dan vijfhonderd!)

zondag 28 juni 2009 15:54

Acties:

0 Henk 'm!

Verwijderd

Topicstarter

dit is wat ik in mijn mail krijg :

code:

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Deze bericht is verstuurd via uw website, de gebruiker die deze
 bericht heeft verstuurd heeft IP adres:
 82.170.54.201 
 Tijdstip: Sun Jun 28 00:42:17 2009
 Als dit bericht spam is, neem dan contact op met hun provider.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

          Naam: 54
         Email: magicprey@magicprey.nl
         Adres: erews
      Postcode: 3455 gf
    Woonplaats: test
          Land: NL
      Massiges: 0
Souain-Navarin: 4
    buitenland: gegevens
     grensland: informatie

Bericht:

Zoals je ziet verspringt de text
Zover ik zie heb ik geen variablen in de html die dit kan veroorzaken.
align left of right heeft geen effect op de mail formatie.

en sorry voor zo'n lange lijst, ik dacht dat de forum hem scrollbaar zou maken .

[ Voor 4% gewijzigd door Verwijderd op 28-06-2009 15:59 . Reden: forum liet code niet goed zien ]

zondag 28 juni 2009 16:00

Acties:

0 Henk 'm!

Verwijderd

Topicstarter

hmm blijkbaar laat de forum hem niet goed zien maar vanaf adres tot grensland verspringt hij
hij is dus niet zoals hij nu op de forum laat zien maar zo wil ik hem wel

edit
screenshot zoals hij er nu uit ziet

Afbeeldingslocatie: http://f.imagehost.org/0083/mail.jpg

[ Voor 23% gewijzigd door Verwijderd op 28-06-2009 16:12 ]

zondag 28 juni 2009 16:49

Acties:

0 Henk 'm!

Silentuz

-_-

ehm, dit lijkt me het verschil tussen een monospaced font en een niet monospaced font.

_{verder is het dit bericht en het forum}

zondag 28 juni 2009 17:57

Acties:

0 Henk 'm!

Soultaker

Zoals ik al zei is dit dus een probleem met de HTML opmaak, niet met je mailform script. Zet er een pre-tag omheen of zet de informatie in een tabel met twee kolommen (en een rij per veld).

zondag 28 juni 2009 21:33

Acties:

0 Henk 'm!

Verwijderd

Topicstarter

ik heb een beetje gespeeld met een pre-tag en zag veranderingen op de website.
Echter als ik dan een email krijg, zie ik exact hetzelfde als eerst...
Hier is mijn stukje form html. (hoop dat hij niet te lang is

)
ik heb het ingekort maar korter dan 64 lines kom ik niet

code:

<form method="post" action="/cgi-bin/mail.cgi"/>
<p>Graag ontvang ik onderstaande publicatie(s) :<br />
    <br />
</p>
<div align="left">
  <table width="780" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td width="232">&nbsp;ISBN 978 90 79547 01 2</td>
      <td width="400">Massiges, het eerste jaar &nbsp;&nbsp;&nbsp;á € 15,00</td>
      <td width="148">aantal &nbsp;
        <select name="Massiges">
          <option selected="selected">0 </option>
          <option>1 </option>
        </select></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;ISBN  978 90 79547 02 9</td>
      <td>Souain-Navarin, Champagne 1914-1916&nbsp;&nbsp;&nbsp;á € 15,00</td>
      <td>aantal &nbsp;
        <select name="Souain-Navarin">
          <option selected="selected">0 </option>
          <option>1 </option>
        </select></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
  </table>
  <table width="780" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td width="182">&nbsp;</td>
      <td width="598">&nbsp;</td>
    </tr>
    <tr>
      <td>Naam:&nbsp;</td>
      <td><input type="text" name="00Naam" size="50" maxlength="80" /></td>
    </tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
  </table>
  <p>
    <input type="checkbox" value="gegevens" name="buitenland"/>
&nbsp;Stuur mij betalingsgegevens voor betalingen vanuit het buitenland</p>
  <p>
    <input type="checkbox" value="informatie" name="grensland"/>
&nbsp;Ik wil graag op de hoogte gehouden worden van nieuwe Grensland uitgaven</p>
</div>
</table>
<p>Ruimte voor opmerkingen :<br />
<tr><th ><textarea name=Message rows=10 cols=80></textarea></th>
                  </tr></dl>
</p>
<p>&nbsp;</p>
<input type="submit" value="Verzenden"/>
<input type="reset" value="Wissen"/>
</form>

p.s. ik kan ook de hele html en cgi mailen als iemand er iets meer mee kan.

[ Voor 1% gewijzigd door Verwijderd op 28-06-2009 21:34 . Reden: extra regel toegevoegd ]

zondag 28 juni 2009 21:36

Acties:

0 Henk 'm!

Gomez12

Soultaker bedoelt de html van je mailtje...

Niet de html van je reactie pagina...

Post eens gewoon een mailtje online, inclusief headers etc ( uiteraard wel de doublures + emailadressen etc eruit gehaald zodat je gewoon binnen beschaafde grenzen blijft )

zondag 28 juni 2009 21:52

Acties:

0 Henk 'm!

Verwijderd

Topicstarter

dit zou een form naar mail moeten en geen html of zie ik dit verkeerd ?
waar kan ik dan eventueel de html van mijn mail vinden?

Sorry dat ik het even niet meer snap maar normaal programeer ik geen cgi.

zondag 28 juni 2009 22:14

Acties:

0 Henk 'm!

Gomez12

Mail is gewoon een container, deze kan tekst / html / etc. bevatten.

Het cgi programmeren heeft hier niets mee te maken, je dondert iets in dat mailtje en de vraag is : Wat donder jij in dat mailtje, hoogstwaarschijnlijk zou dat html moeten zijn ( met een tabel etc zodat je uitlijning klopt ), waarschijnlijk is dat gewoon tekst...

Met tekst ben je gewoon gebonden aan het lettertype wat de lezer heeft ingesteld.

code:

headerzooi...
Date: Sun, 28 Jun 2009 22:24:30 +0200

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Deze bericht is verstuurd via uw website, de gebruiker die deze
 bericht heeft verstuurd heeft IP adres:
 82.170.54.201 
 Tijdstip: Sun Jun 28 22:24:30 2009
 Als dit bericht spam is, neem dan contact op met hun provider.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

          Naam: 54
         Email: magicprey@magicprey.nl
         Adres: erews
      Postcode: 3455 gf
    Woonplaats: gbv
          Land: NL
      Massiges: 1
Souain-Navarin: 1
    buitenland: gegevens
     grensland: informatie

Bericht:

test test test

Dit is dus de letterlijke tekst, die ziet er hier gewoon goed uit. Oftewel ander font instellen als default font in je reader...

Wat je als quick-fix kan proberen is om op regel 102 de tag < pre> toe te voegen, en dan op regel 135 de tag < /pre>.

Geen idee of dit gewoon geaccepteerd wordt door een emailprogramma ( je verstuurt html maar je laat enkele mime-identifiers op dat moment weg )

Alternatief is om op regel 124 nette html te versturen.

Standaard tekst kent geen alignement ( je kan het handmatig uitlijnen met spaties met een mono-font maarja, als de klant dan geen mono-font als standaard ingesteld heeft krijg je jouw resultaat )

[ Voor 57% gewijzigd door Gomez12 op 28-06-2009 23:06 ]

zondag 28 juni 2009 23:59

Acties:

0 Henk 'm!

Verwijderd

Topicstarter

Ik heb het geprobeerd maar helaas zonder resultaat
her en der de font aangepast naar standaard font van bv outlook -> zelfde resultaat als eerst.
Pre-tag toegevoegd (op site zie ik andere font) -> zelfde resultaat als eerst
De complete text invoerveld in een nieuwe tabel gezet los van de hele rits -> zelfde resultaat als eerst.
ik kan van alles aanpassen voor op de site maar dan nog blijft de email op dezelfde manier binnenkomen...

Ik was in de veronderstelling dat de html form variablen aanmaakte en de cgi leest dit en maakt er een mail van...
Ik kan mijn gedachten dus niet ergens anders op focusen dan dat het ergens in de cgi zit....
Alvast mijn dank voor de tips zover.
Ik blijf nog wel ff sleutelen her en der....

maandag 29 juni 2009 00:28

Acties:

0 Henk 'm!

Gomez12

Tja, simpel gezegd van regel 109 tot 128 bouw je de berichttekst op. Daar moet je iets aanpassen ( bijv een tabel ertussen gooien )

maandag 29 juni 2009 00:47

Acties:

0 Henk 'm!

Verwijderd

Topicstarter

sorry maar kwam er nu (denk ik) achter
met je nummers bedoel je met mijn 1e post
dit is een cgi script geen html
pre-tag word niet geacepteerd.... en tabel aanmaken kan dus ook niet
maar je hebt wel gelijk dat rond regel 109 tot 128 de opbouw is
maar ik zie niets raars in het script.
tenminste niet iets wat die rare verspringing verklaart

maandag 29 juni 2009 08:40

Acties:

0 Henk 'm!

Verwijderd

Er is geen rare verspringing.
Wat je hier ziet (en dat is al een paar keer genoemd) is het verschil tussen een niet-proportioneel font (courier bv.) en een proportioneel font (arial, times roman). In het eerste geval zijn alle karakters, dus ook spaties, even breed, en in het 2e geval zijn spaties een stuk smaller dan een gemiddelde letter. 10 Spaties nemen dan een stuk minder ruimte in dan 10 letters, met als gevolg dat er minder naar rechts wordt ingesprongen.

maandag 29 juni 2009 09:16

Acties:

0 Henk 'm!

Woy

Moderator Devschuur®

Dit heeft niet veel met programming te maken, aangezien het probleem in de resulterende HTML/fonts, zoals al in het topic is aangegeven.

Eigenlijk hoort dit topic dus ook in WEB thuis, maar ook daar word het niet gewaardeerd als je in je openingspost 501 regels code plaatst met een erg magere beschrijving van je probleem.

In het vervolg zien we graag een wat uitgebreidere uitleg wat er precies mis gaat, en bij programmeer problemen zien we wel graag code, maar dan wel alleen relevante stukjes.

Deze gaat dus op slot.

“Build a man a fire, and he'll be warm for a day. Set a man on fire, and he'll be warm for the rest of his life.”

Pagina: 1

Dit topic is gesloten.