Re: Probleme mit Email-Adresse beim javascript-script - 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 Jürgen (614 Beiträge) am Dienstag, 5.April.2005, 20:01. WWW: TIEREvermittlung.de
    Re: Probleme mit Email-Adresse beim javascript-script

      Dank dir Ruben, aber das Problem lag nicht am Perl sondern am javascript-script-Interpeter, der bei bestimmten Sonder-'Zeichen' zickig war ;-)

      Ich habe mit vorab mit grep alle Zeichen aus dem Textfeld je Eintrag rausgefilter
      @zeichenda = grep /@|„|“|!|–/, @b;   # Text durchsuchen, ob Zeichen vorhanden
      if (@zeichenda >= "1")
      {
      out "<br>ZEICHEN IST DA !<br>";
      }
      


      .... und dann das Template umgestickt

      ----schnipp
      out "document.writeln('<center><table width=$width_table>');";
      

      get "Id==* range=0,$Anzahl sort=?", "$db1";
      while (get_next("$db1")) 
      {
      

      $textout = $_loop{'Beschreibung/Lebenslauf'};
      $a = split(/ /,$textout);             # Zähler Anzahl der Elemente
      

      $teilstr = "@|„|“|!|–"; # Zeichen suchen
      $ersatz = " ";                        # Leerzeichen als Ersatz
      $textout =~ s/$teilstr/$ersatz/g;     # Text durchsuchen und ersetzen
      $beschreibung=substr($textout, 0,75); # Text kürzen
      $beschreibung=~ s/( \S*)$/ .../oi;    # auf's letzte Wort kürzen und Punkte dranhängen
      

      $Nameout=substr($Name, 0,20);
      $WWW=$Homepage; $WWW=~ s#^http://##;
      $Rasseout=substr($Hunderasse, 0,22);
      $Charakterout=substr($Charakter, 0,75);
      if ($beschreibung ne "" && $a >=15)
      {
      out<<EOF;
      document.writeln('<tr><td ... weitere Ausgabe
      </td></tr>');
      EOF
      }
      else
      {
      document.writeln('<tr><td  ... weitere Ausgabe
      EOF
      }
      }
      out "document.writeln('</table>');";
      
      ---schnapp

      Grüße
      Jürgen


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Jürgen (614 Beiträge) am Montag, 4.April.2005, 15:28. WWW: TIEREvermittlung.de
    Probleme mit Email-Adresse beim javascript-script

      Hallo,
      bastele gerade an einen Anzeigen-Panel, das als kostenlosen Content per javascript-script auf anderen HPs ausgegeben werden kann.

      Mit den Bildanzeigen klappt das auch soweit; nun möchte ich aber auch Textanzeigen like google generieren.

      Sobald in einem Textfeld eine Email-Adresse drin ist, meckert das javascript-script. Das Feld wird für die Ausgabe schon abgeschnitten, trotzdem kommt eine Fehlermeldung.

      $Beschreibung=substr($_loop{'Beschreibung/Lebenslauf'}, 0,75);
      $Beschreibung=~ s/( \S*)$/ .../oi;
      

      Jemand eine Idee?

      Den Rohentwurf könnt ihr euch hier schon ansehen...
      http://tierevermittlung.de/baseportal/haustier/Content

     Antworten

    Beitrag von hempelr (1976 Beiträge) am Montag, 4.April.2005, 17:36.
    Re: Probleme mit Email-Adresse beim javascript-script

      logisch, Perl denkt es sei ein Array.
      Das '@' muss maskiert werden wenn eins da ist - am besten mit ner regex, und dann erst ausgeben bzw. ne Funktion nehmen die das macht - ich hab da auch gleich ne Sub gebaut:
      (so wie sie ist, ohne Support bereitgestellt OpenSource unter der GPL! - beachten, wenn es verwendet wird, dann muss auch das Gesamtscript unter die GPL und als OS bereitgestellt werden - es gibt bereits rechtlich bindende Urteile dazu!)
      ----schnipp
      # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
      sub get_feldliste { ################################################################
      $a_debug.= "<b>A sub get_feldliste(@_)</b><br>";
      my $var = shift;
         get "Field=*", "$var.fields", "dbfeldliste";
         while(get_next("dbfeldliste")){
         push @l_dbfelder, $Field;
         }
         $var = \@l_dbfelder;
      $a_debug.= "<b>E sub get_feldliste</b><br>";
      return $var;
      } ################################################################
      # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
      sub convert_mailat { ################################################################
      $a_debug.= "<b>A sub convert_mailat(@_)</b><br>";
      my $dbname = shift;
         my $feldliste = &get_feldliste($dbname);
         foreach my $feld(@$feldliste){
            if ($$feld =~ m/\w{2,}@\w{1,}.{1,}/){
            $a_debug.= "at-ersetzen \$feld($feld) - \$\$feld($$feld)";
            $$feld =~ s/@/\\@/;
            $a_debug.="->($$feld)<br>";
            } # e if at-Zeichen
         } # e foreach
         undef $feldliste;
      $a_debug.= "<b>E sub convert_mailat</b><br>";
      } ################################################################
      # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
      
      ---schnapp
      Ruben

     Antworten

    Beitrag von Jürgen (614 Beiträge) am Dienstag, 5.April.2005, 20:01. WWW: TIEREvermittlung.de
    Re: Probleme mit Email-Adresse beim javascript-script

      Dank dir Ruben, aber das Problem lag nicht am Perl sondern am javascript-script-Interpeter, der bei bestimmten Sonder-'Zeichen' zickig war ;-)

      Ich habe mit vorab mit grep alle Zeichen aus dem Textfeld je Eintrag rausgefilter
      @zeichenda = grep /@|„|“|!|–/, @b;   # Text durchsuchen, ob Zeichen vorhanden
      if (@zeichenda >= "1")
      {
      out "<br>ZEICHEN IST DA !<br>";
      }
      


      .... und dann das Template umgestickt

      ----schnipp
      out "document.writeln('<center><table width=$width_table>');";
      

      get "Id==* range=0,$Anzahl sort=?", "$db1";
      while (get_next("$db1")) 
      {
      

      $textout = $_loop{'Beschreibung/Lebenslauf'};
      $a = split(/ /,$textout);             # Zähler Anzahl der Elemente
      

      $teilstr = "@|„|“|!|–"; # Zeichen suchen
      $ersatz = " ";                        # Leerzeichen als Ersatz
      $textout =~ s/$teilstr/$ersatz/g;     # Text durchsuchen und ersetzen
      $beschreibung=substr($textout, 0,75); # Text kürzen
      $beschreibung=~ s/( \S*)$/ .../oi;    # auf's letzte Wort kürzen und Punkte dranhängen
      

      $Nameout=substr($Name, 0,20);
      $WWW=$Homepage; $WWW=~ s#^http://##;
      $Rasseout=substr($Hunderasse, 0,22);
      $Charakterout=substr($Charakter, 0,75);
      if ($beschreibung ne "" && $a >=15)
      {
      out<<EOF;
      document.writeln('<tr><td ... weitere Ausgabe
      </td></tr>');
      EOF
      }
      else
      {
      document.writeln('<tr><td  ... weitere Ausgabe
      EOF
      }
      }
      out "document.writeln('</table>');";
      
      ---schnapp

      Grüße
      Jürgen

     Antworten


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