Email-versand und Perl? - baseportal Forum - Web-Anwendungen einfach, schnell, leistungsfähig!
baseportal
English - Deutsch "Es gibt keine dummen Fragen - jeder hat einmal angefangen"

 baseportal-ForumDie aktuellsten 10, 30, 50, 100 Einträge anzeigen.  

 
 Ausgewählter Eintrag: Zur Liste 
    Beitrag von UweG (2 Beiträge) am Donnerstag, 22.Juli.2004, 08:52. WWW: garz.de
    Email-versand und Perl?

      Guten Morgen,
      (habe keine programierkenntnisse, nutze Version MIETE"
      ich möchte gerne eine Datenbank mit Nutzereintrag und der Möglichkeit einer Änderung nur für den Nutzer realiesieren. Dazu habe ich eine Vorlage an meine Felder angepasst. Nun möchte ich aber noch, dass eine Email an * und án die Adresse im Feld Email versand wird.
      Wie binde ich die Befehle << mail_put=*,Email mail_mod=*,EMail >> ein?
      Anschließend html der Seite:
      <html><head>
<title>baseportal Datenbank</title>
</head><body bgcolor=ffffff>
<br><ul>
<perl>
put if %_put;
if($Id ne "")
{
  get "Id==$Id";
  if($xName)
  {
    if($Passwort eq $xPasswort)
    {
      mod "Id==$Id", ["Name",$xName,"Titel",$xTitel,"Nachricht",$xNachricht];
      out "<b>Eintrag geändert...</b>";
    } else
    {
      out "<b>Passwort falsch!</b>";
    }
  } else
  {
    out <<EOF;
<h3>Eintrag ändern</h3>
<table>
<form action="/cgi-bin/baseportal.pl?htx=$htx&Id=$Id" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<input type=hidden name="Id=" value="$Id">
<tr><td>Name:</td><td><input type="text" name="xName=" value="$Name"></td></tr>
<tr><td>Titel:</td><td><input type="text" name="xTitel=" value="$Titel"></td></tr>
<tr><td>Nachricht:</td><td><input type="textarea" name="xNachricht=" value="$Nachricht"></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="xPasswort="></td></tr>
<tr><td></td><td><input type=submit value="Abschicken"> </td></tr>
</form></table>
EOF
  }
  out "<p><a href=\"$_link\">Neuer Eintrag</a>";
} else
{
  out "<h3>Neuer Eintrag</h3>";
  out "Mit dem Passwort können Sie den Eintrag später bearbeiten.";
  init; get;
  list "add";
}
get;
out "<h3>Liste aller Einträge</h3>";
out "<table><tr><td>Name</td><td>Titel</td><td>Nachricht</td></tr>";
while(get_next)
{
  out "<tr><td><a href=\"$_link&Id=$_id\">$Name</a></td><td>$Titel</td> <td>$Nachricht</td></tr>";
}
out "</table>";

      </perl>

      </body></html>


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von UweG (2 Beiträge) am Donnerstag, 22.Juli.2004, 08:52. WWW: garz.de
    Email-versand und Perl?

      Guten Morgen,
      (habe keine programierkenntnisse, nutze Version MIETE"
      ich möchte gerne eine Datenbank mit Nutzereintrag und der Möglichkeit einer Änderung nur für den Nutzer realiesieren. Dazu habe ich eine Vorlage an meine Felder angepasst. Nun möchte ich aber noch, dass eine Email an * und án die Adresse im Feld Email versand wird.
      Wie binde ich die Befehle << mail_put=*,Email mail_mod=*,EMail >> ein?
      Anschließend html der Seite:
      <html><head>
<title>baseportal Datenbank</title>
</head><body bgcolor=ffffff>
<br><ul>
<perl>
put if %_put;
if($Id ne "")
{
  get "Id==$Id";
  if($xName)
  {
    if($Passwort eq $xPasswort)
    {
      mod "Id==$Id", ["Name",$xName,"Titel",$xTitel,"Nachricht",$xNachricht];
      out "<b>Eintrag geändert...</b>";
    } else
    {
      out "<b>Passwort falsch!</b>";
    }
  } else
  {
    out <<EOF;
<h3>Eintrag ändern</h3>
<table>
<form action="/cgi-bin/baseportal.pl?htx=$htx&Id=$Id" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<input type=hidden name="Id=" value="$Id">
<tr><td>Name:</td><td><input type="text" name="xName=" value="$Name"></td></tr>
<tr><td>Titel:</td><td><input type="text" name="xTitel=" value="$Titel"></td></tr>
<tr><td>Nachricht:</td><td><input type="textarea" name="xNachricht=" value="$Nachricht"></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="xPasswort="></td></tr>
<tr><td></td><td><input type=submit value="Abschicken"> </td></tr>
</form></table>
EOF
  }
  out "<p><a href=\"$_link\">Neuer Eintrag</a>";
} else
{
  out "<h3>Neuer Eintrag</h3>";
  out "Mit dem Passwort können Sie den Eintrag später bearbeiten.";
  init; get;
  list "add";
}
get;
out "<h3>Liste aller Einträge</h3>";
out "<table><tr><td>Name</td><td>Titel</td><td>Nachricht</td></tr>";
while(get_next)
{
  out "<tr><td><a href=\"$_link&Id=$_id\">$Name</a></td><td>$Titel</td> <td>$Nachricht</td></tr>";
}
out "</table>";

      </perl>

      </body></html>

     Antworten

    Beitrag von UweG (2 Beiträge) am Donnerstag, 22.Juli.2004, 09:06.
    Re: Email-versand und Perl?

     Antworten

    Beitrag von till (1103 Beiträge) am Donnerstag, 22.Juli.2004, 10:51.
    Re: Email-versand und Perl?

      hallo,

      diese befehle kannst du nur verwenden, wenn du mit do action ausgibst.
      ansonsten ist es wie folgt dokumentiert:

      "
      "mail"-Befehl
      Ein Perl-Befehl erlaubt direktes Versenden von EMails aus Perl:

      mail "Empfänger", "Thema", "Text", "Sender", "Empfänger-Name", "Sender-Name", "Kopien", "Blinde Kopien", "Header-Angaben";
       

      Thema und Text sollten klar sein. Empfänger ist die EMail-Adresse, an die die Email geschickt werden soll. Wird der Sender weggelassen, wird automatisch die bei der baseportal-Registrierung angegebene EMail-Adresse benutzt. Werden Empfänger-Name oder Sender-Name angegeben, so werden diese bei der Empfänger-, bzw. Sender-Adresse in der Form Name <EMail-Adresse> hinzugefügt. Bei Kopien können Sie weitere Empfänger, die Kopien der EMail erhalten sollen, angeben. Ebenso bei Blinde Kopien, allerdings sind diese zusätzlichen Empfänger für die anderen nicht sichtbar. Bei Header-Angaben können Sie beliebige weitere Angaben machen, die im "Kopfbereich" einer Mail mitgeschickt werden sollen.

      Beachten Sie :Das @-Zeichen steht in Perl für eine Listenvariable. Schreiben Sie eine EMail-Adresse einfach in (normale) doppelte Anführungsstriche (z.B. "info@server.de") so erzeugt dies eine Fehlermeldung, ausser die Liste @server würde existieren. Selbst dann ist das natürlich nicht das, was Sie damit bezwecken. Sie müssen deshalb das @-Zeichen "escapen": "info\@server.de"
      Oder Sie verwenden einfache Anführungsstriche bei den jeweiligen Angaben, denn darin befindliche Variablen werden nicht ersetzt: 'info@server.de'"

      aus der bp doku, siehe auch:
      http://baseportal.de/bpws_doku.html#a20


      till

     Antworten


     
 Liste der Einträge von 29251 bis 29401:Einklappen Zur Eingabe 
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < Zur Eingabe  > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge

Zurück zur Homepage

© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen



powered in 0.09s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!