Habs gefunden--- - 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 Micha Jost (347 Beiträge) am Mittwoch, 24.April.2002, 19:47.
    Habs gefunden---

      Fehlte halt ein "
      Wer Augen im Kopf hat ist auch in Sachen perl klar im Vorteil.


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Micha Jost (347 Beiträge) am Mittwoch, 24.April.2002, 17:07.
    Fehlermeldung bei umgebautem Gästebuch mit Mailversand

      Hallo,

      das nachfolgende Template (Gästebuch aus bib + Eintrag verschicken) funktioniert, aber gibt eine hässliche Schlusszeile im Template aus:
       Fehler: (perl) in /rathaus-buerstadt.de/guestbook: Can't find string terminator '"' anywhere before EOF at (eval 1353) line 11. ]
      
      Wo habe da in der Syntax geschlampt.

      Danke

      Gruß
      Micha
       

      <html><head><title>Gästebuch der Stadtverwaltung Bürstadt</title></head>
      <body bgcolor=ffffff>
      <include src=style>
      

      <p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="3"><b>Gästebuch der Stadtverwaltung Bürstadt</b></font></p>

      <p align="left"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">Hier können Sie Kommentare, Wünsche, Anregungen oder Kritik an uns richten.<br> Die bisherigen Beiträge finden Sie weiter unten.</font></p>
      

      <br></font>

      <perl>
      

      my $maxtext=5000;
      my $emsg="";
      

      if(%_put)
      {
        $emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Name} eq "";
        $emsg.="Bitte geben Sie einen Text ein! " if $_put{Text} eq "";
        $emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Text})>$maxtext;
      
        if($emsg eq "")   {     put;     out "<ul><font face=\"Verdana, Arial, Helvetica\" size=\"2\"><b>Vielen Dank für Ihren Eintrag</b></ul>";   } else   {     out "<ul><font color=d80000><b>$emsg</b></font></ul>";   }
      }



      "";
      </perl>
      

      <do action=list listtype=add>

      <ul>
      <loop sort=- convert_html=Name,Text code=perl>
      

      my $www=$WWW; $www=~ s#^http://##;

      out '<table width=90%><tr><td><hr size=1><br><font face=verdana,helvetica size=2>';
      out "Beitrag von <b>$Name</b> am $Datum<br>";
      out "EMail: <a href=\"mailto:$EMail\">$EMail</a> " if $EMail ne "";
      out "WWW: <a href=\"http://$www\" target=\"_blank\">$www</a> " if $www ne "";
      out "<br><b>$Titel</b><p>";
      out "<p><ul>$Text</ul></td></tr></table>";
      

      </loop>



      </ul>
      <perl>
      if ($cmd eq "add")
      {
      $admin="micha.jost\@buerstadt.de";
      $inhalt="Eintrag in Gästebuch
      Eingabe von: $_put{Name}
      E-Mail: $_put{EMail}
      Thema: $_put{Titel}
      Nachricht: $_put{Text}\n\
      
      Mit freundlichen Grüßen";
      mail $admin,"Eingabe in Gästebuch Stadt Bürstadt",
      "$inhalt",'micha.jost@buerstadt.de',"","Stadt Bürstadt,"",'micha.jost@buerstadt.de';
      }
      </perl>
      

      <include src=footer>
      </body></html>
      

     Antworten

    Beitrag von Micha Jost (347 Beiträge) am Mittwoch, 24.April.2002, 19:47.
    Habs gefunden---

      Fehlte halt ein "
      Wer Augen im Kopf hat ist auch in Sachen perl klar im Vorteil.

     Antworten


     
 Liste der Einträge von 47850 bis 48000: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.07s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!