Ergebnis 1 bis 9 von 9

Thema: bbcodes für perlscript (Chat-Gästebuch)

  1. #1
    ChatMaster
    Gast

    Standard bbcodes für perlscript (Chat-Gästebuch)

    Hi, ich suche jemand der mir einen gefallen tut, und zwar hab ich perl nicht im griff und daher diese bitte um diesen gefallen, fals sich jemand zeit nehmen würde.

    Es ist so, ich habe ein integriertes gästebuch in perl das in meinen Chat arbeitet, jetzt möchte ich dieses gästebuch ein bisschen aufpeppen. Smiliefunktionen hat er jetzt von mir reinbekommen. Und nun hab ich probiert bbcodes noch reinzuhauen, aber da ich nur die javascript in der html datei einfügen konnte fehlt mir jetzt in der pm datei vo die perlcodes sind des gästebuchs den rest damit er mir die bbcodes auch ausgibt im gästebuch. Das wäre sehr dankbar wen mir da jemand den perlcode reinhauen könnte in der pm datei damit ich auch die bbcodes gebrauchen kann am gästebuch.

    hier mal die pm datei des gästebuchs wo ihr mir den perlcode reinhauen müsstet für die bbcodefunktionen.

    Code:
    ################################################################################
    #                                                                              #
    #  Gästebuch 0.95 V1.1                                                         #
    #                                                                              #
    #  GTChat 0.95 Alpha Plugin                                                    #
    #  Copyright & Written 2005                                                    #
    #  Author: Michael Schiefer                                                    #
    #  E-Mail: Webmaster@ScriptWorldX.de                                           #
    #  Web : http://www.ScriptWorldX.de                                            #
    #  							                                                   #
    #  Gästebuch Script für GTChat 0.95                                            #
    ################################################################################
    
    package GTChat::Plugins::GBuch;
    use strict;
    use DBI;
    
    bless({
    	template_var_handlers => {
    		'gbuch' => \&gbuch_handler,
    		'gbuch_send' => \&gbuchsend_handler,
    		'gbuch_del' => \&gbuchdel_handler,
    	},
    	command_handlers => {
    	'gbm' => \&gbm_handler,
    	'gbme' => \&gbme_handler,
    	},
    });
    
    sub gbuch_handler
    {
    	my($self,$main,$text) = @_;
    	my $von = $main->{current_user}{nick};
    	my $an = $main->{input}{nickname};
    	my $page;
    	if ($an eq "") {
    		my %info = {};
    		foreach (split(/&/,$ENV{'QUERY_STRING'}))
    		{
    		my ($v,$i) = split(/=/,$_);
    		$v =~ tr/+/ /;
    		$v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    		$i =~ tr/+/ /;
    		$i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    		$i =~ s///g;
    		$info{$v} = $i;
    		}
    	$an = $info{'an'};
    	$page = $info{'page'};
    	}
    
    
    	if ($an eq "") { $an = $main->{current_user}{nick}; }
    	if ($page eq "") { $page=1; }
    	my $schleife = "$page"."0";
    	my $anfang;
    	if ($schleife > 10) { $anfang = ($page-1); $anfang = "$anfang"."0"; }
    
    	##########################################################
    	##########################################################
    
             my $db_name = "DBI:mysql:usr_web8_1"; #Datenbankname
             my $db_user = "web8"; #Datenbank-Username
             my $db_pass = "00NJbnsp"; #Datenbank-Passwort
    
    	##########################################################
    	##########################################################
    
    	my $dbh = DBI->connect("$db_name","$db_user","$db_pass") || die "Database connection not made: $DBI::errstr";
    	my $sth = $dbh->prepare("SELECT * FROM gtchat_gb WHERE an = '$an' ORDER BY uhrzeit DESC");
    	$sth->execute();
    	my $count=0;
    	my @gbook=();
    	my $gbuch=();
    	while(@gbook=$sth->fetchrow_array)
    			{
    			$count++;
    			}
    
    	my $sth = $dbh->prepare("SELECT * FROM gtchat_gb WHERE an = '$an' ORDER BY uid DESC LIMIT $schleife");
    	$sth->execute();
    	my $zahl = 0;
    	my $administer;
    	my $ausgabe = "";
    			while(@gbook=$sth->fetchrow_array)
    			{
    			$zahl++;
    				if ($zahl > $anfang)
    				{
    				$gbuch->{id} = $gbook[0];
    				$gbuch->{von} = $gbook[2];
    				$gbuch->{datum} = $gbook[3];
    				$gbuch->{uhrzeit} = $gbook[4];
    				$gbuch->{messa} = $gbook[5];
                                       if&#40;$main->&#123;current_user&#125;&#123;nick&#125; eq $an || $main->&#123;current_user&#125;&#123;tempgroup&#125; > 4&#41; &#123; $administer = "<input type=button value=\"Delete\" onClick=\"if &#40;confirm&#40;'Soll dieser Beitrag wirklich gelöscht werden?'&#41;&#41; document.location.href='$main->&#123;runtime&#125;&#123;completeurl&#125;&template=gbuch_del&uid=$gbuch->&#123;id&#125;&an=$an\';return false\" title=\"Diesen Beitrag löschen!\">"; &#125; else &#123; $administer = ""; &#125;
                                    push @gbook,$gbuch;
                            $ausgabe = $ausgabe."<div align='center'><table width=\"100%\" border=\"0\" cellpadding=\"2\" cellspacing=\"0\" class=\"outer\"><tr><td width=\"20%\" align=\"center\" class=\"row1\">Nickname&#58;</td><td width=\"80%\" align=\"center\" class=\"rowtitle\">Geschrieben am $gbuch->&#123;datum&#125;, um $gbuch->&#123;uhrzeit&#125; Uhr</td></tr>
                                                 <tr><td width=\"20%\" class=\"rowyellow\" align=\"center\" valign=\"top\"><table width=\"100%\" border=\"0\" cellpadding=\"6\" cellspacing=\"0\" class=\"entered\"><tr><td align=\"center\" valign=\"top\"><a href=\"$main->&#123;runtime&#125;&#123;completeurl&#125;&template=gbuch&an=$gbuch->&#123;von&#125;\" title=\"Zum Gästebuch dieses Users!\"><font color=\"#000000\">$gbuch->&#123;von&#125;</font></a></td></tr></table></td><td width=\"80%\" valign=\"top\"><table width=\"100%\" border=\"0\" cellpadding=\"6\" cellspacing=\"0\" class=\"entered\"><tr><td valign=\"top\">$gbuch->&#123;messa&#125;</td></tr></table></td></tr>
                                                 <tr><td width=\"20%\" class=\"row1\" align=\"center\"></td><td width=\"80%\" align=\"right\" class=\"rowtitle\" valign=\"top\">$administer</td></tr></table>
    
    </div>";
                            &#125;
    			&#125;
    
    			$sth->finish&#40;&#41;;
    			$dbh->disconnect&#40;&#41;;
    			my $counter;
    	if &#40;$count > 0&#41; &#123; $counter = &#40;$count-1&#41; &#125;;
    	my $seiten = &#40;$counter / 10&#41;;
    	$gbuch->&#123;seiten&#125;  = sprintf&#40;"%d",$seiten&#41;;
    	my $site = "";
    	my $seitencount = 0;
    	for&#40;my $i = 0; $i <= $gbuch->&#123;seiten&#125;; $i++&#41; &#123;
     	$seitencount++;
    	if &#40;$seitencount ne $page&#41; &#123;
    	$site =  $site." <a href=\"$main->&#123;runtime&#125;&#123;completeurl&#125;&template=gbuch&an=$an&page=$seitencount\">$seitencount</a> |";
    								&#125;
    								else
    								&#123;
    	$site =  $site." $seitencount |";
    								&#125;
    	&#125;
    
    	$gbuch->&#123;seiten&#125; = "Seiten &#58; | $site";
    	if &#40;$count > 0&#41;
    	&#123;
    	$gbuch->&#123;fehler&#125; = "0";
    	$gbuch->&#123;ausgabe&#125; = $ausgabe;
    	&#125;
    	if &#40;$count eq 0&#41;
    	&#123;
    	$gbuch->&#123;fehler&#125; = "1";
    	$gbuch->&#123;noentry&#125; = "Keine Einträge vorhanden";
    	&#125;
    
    	$gbuch->&#123;count&#125; = $count;
    	$gbuch->&#123;an&#125; = $an;
    	$main->&#123;template_vars&#125;&#123;gbuch&#125; = $gbuch;
    
    &#125;
    
    sub gbuchsend_handler
    &#123;
    	my&#40;$self,$main,$command,$text&#41; = @_;
    	my %info = &#123;&#125;;
    	my $an = $main->&#123;input&#125;&#123;an&#125;;
    	my $von = $main->&#123;current_user&#125;&#123;nick&#125;;
    
    	my $messa = $main->&#123;input&#125;&#123;messa&#125;;
    	if&#40;$messa ne ""&#41; &#123;
    	my &#40;$Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit&#41; = localtime&#40;time&#41;;
    	my $CTIME_String = localtime&#40;time&#41;;
    	$Monat+=1;
    	$Jahrestag+=1;
    	$Monat = $Monat < 10 ? $Monat = "0".$Monat &#58; $Monat;
    	$Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag &#58; $Monatstag;
    	$Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden &#58; $Stunden;
    	$Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten &#58; $Minuten;
    	$Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden &#58; $Sekunden;
    	$Jahr+=1900;
    	my $datum = "$Monatstag.$Monat.$Jahr";
    	my $uhrzeit = "$Stunden.$Minuten";
    	$messa =~ s/>/&gt;/g;
    	$messa =~ s/</&lt;/g;
    	$messa =~ s/&#40;^|\s&#41;&#40;&#40;?&#58;https?|ftp&#41;&#58;\/\/&#91;^<>\*\s\n\"\&#93;\&#91;\&#40;\&#41;&#93;+&#91;^<>\*\s\n\"\&#93;\&#91;\&#40;\&#41;,.?!&#58;-&#93;&#41;/"$1<a href=\"".$2."\" target=\"_blank\" class=\"stdlink\" onfocus=\"if &#40;window.resetFocus&#41; resetFocus&#40;&#41;\">$2<\/a>"/ige;
    	$messa =~ s/&#40;^|\s&#41;&#40;www\.&#91;^<>\*\s\n\&#93;\&#91;\&#40;\&#41;&#93;+&#91;^<>\*\s\n\"\&#93;\&#91;\&#40;\&#41;,.?!&#58;-&#93;&#41;/"$1<a href=\"http&#58;\/\/".$2."\" target=\"_blank\" class=\"stdlink\" onfocus=\"if &#40;window.resetFocus&#41; resetFocus&#40;&#41;\">$2<\/a>"/ige;
    	$messa =~ s/&#40;^|\s&#41;&#40;&#91;\w\-_.&#93;+@&#91;\w\-_.&#93;+\.&#91;a-z&#93;&#123;2,&#125;&#41;/$1<a href=\"mailto&#58;$2\" class=\"stdlink\" onfocus=\"if &#40;window.resetFocus&#41; resetFocus&#40;&#41;\"\>$2<\/a>/ig;
    	$messa =~ s /<EMBED &#91;^&#93;+>&#91;^&#93;*>/<\/EMBED>/ig;
    	$messa =~ s/&#91;\\'&#93;/\\$&/g;
    	$messa =~ s/\t/\\t/g;
    	$messa =~ s/<\/script/<\/'+'script/g;
    	$messa =~ s/\r?\n/
    /g;
    
    	##########################################################
    	##########################################################
    
             my $db_name = "DBI&#58;mysql&#58;usr_web8_1"; #Datenbankname
             my $db_user = "web8"; #Datenbank-Username
             my $db_pass = "00NJbnsp"; #Datenbank-Passwort
    
    	##########################################################
    	##########################################################
    
    	my $dbh = DBI->connect&#40;"$db_name","$db_user","$db_pass"&#41; || die "Database connection not made&#58; $DBI&#58;&#58;errstr";
    	my $sth = $dbh->prepare&#40;"INSERT INTO gtchat_gb &#40;an, von, datum, uhrzeit, messa&#41; VALUES &#40;'$an', '$von', '$datum', '$uhrzeit', '$messa'&#41;"&#41;;
    	$sth->execute&#40;&#41;;
    
    	my $gbuch;
    	$gbuch->&#123;an&#125; = $an;
    	$gbuch->&#123;chatmessage&#125; = ";opener.sendText&#40;'/gbm $gbuch->&#123;an&#125; $main->&#123;current_user&#125;&#123;nick&#125; schaut in dein Gästebuch!'";
    	$main->&#123;template_vars&#125;&#123;gbuch&#125; = $gbuch;
    
    
    	$sth->finish&#40;&#41;;
    	$dbh->disconnect&#40;&#41;;
    	&#125;
    	else
    	&#123;
    	my $gbuch;
    	$gbuch->&#123;an&#125; = $an;
    	$main->&#123;template_vars&#125;&#123;gbuch&#125; = $gbuch;
    	&#125;
    &#125;
    sub gbuchdel_handler
    &#123;
    my&#40;$self,$main,$command,$text&#41; = @_;
    
    		my %info = &#123;&#125;;
    		foreach &#40;split&#40;/&/,$ENV&#123;'QUERY_STRING'&#125;&#41;&#41;
    		&#123;
    		my &#40;$v,$i&#41; = split&#40;/=/,$_&#41;;
    		$v =~ tr/+/ /;
    		$v =~ s/%&#40;&#91;a-fA-F0-9&#93;&#91;a-fA-F0-9&#93;&#41;/pack&#40;"C", hex&#40;$1&#41;&#41;/eg;
    		$i =~ tr/+/ /;
    		$i =~ s/%&#40;&#91;a-fA-F0-9&#93;&#91;a-fA-F0-9&#93;&#41;/pack&#40;"C", hex&#40;$1&#41;&#41;/eg;
    		$i =~ s///g;
    		$info&#123;$v&#125; = $i;
    		&#125;
    	my $uid = $info&#123;'uid'&#125;;
    	my $an = $info&#123;'an'&#125;;
    
    	##########################################################
    	##########################################################
    
             my $db_name = "DBI&#58;mysql&#58;usr_web8_1"; #Datenbankname
             my $db_user = "web8"; #Datenbank-Username
             my $db_pass = "00NJbnsp"; #Datenbank-Passwort
    
    	##########################################################
    	##########################################################
    
    	my $gbuch;
    	my $dbh = DBI->connect&#40;"$db_name","$db_user","$db_pass"&#41; || die "Database connection not made&#58; $DBI&#58;&#58;errstr";
    	my $sth = $dbh->prepare&#40;"DELETE FROM gtchat_gb WHERE uid = '$uid'"&#41;;
    	$sth->execute&#40;&#41;;
    	$sth->finish&#40;&#41;;
    	$dbh->disconnect&#40;&#41;;
    	$gbuch->&#123;an&#125; = $an;
    	$main->&#123;template_vars&#125;&#123;gbuch&#125; = $gbuch;
    &#125;
    
    sub gbm_handler
    &#123;
    	my&#40;$self,$main,$command,$text&#41; = @_;
    	my @parts = split&#40;/\s+/,$text&#41;;
    	my $tonick = shift @parts;
    	my $von = $main->&#123;current_user&#125;&#123;nick&#125;;
    	my $candidates = $main->getPossibleOnlineUsers&#40;$tonick&#41;;
    	my $user = $candidates->&#91;0&#93;;
    	if &#40;$#$candidates==0&#41;
    	&#123;
    	if &#40;$von ne $tonick&#41; &#123;
    	my $output = $main->createOutput&#40;
    					&#123;
    						template => 'gbuch_messi',
    						name => $main->&#123;current_user&#125;&#123;name&#125;,
    						nick => $main->&#123;current_user&#125;&#123;nick&#125;,
    						color => $main->&#123;current_user&#125;&#123;color&#125;,
    					&#125;&#41;;
    		return &#91;$output->restrictToUser&#40;$user->&#123;name&#125;&#41;&#93;;
    						&#125;
    	&#125;
    &#125;
    
    sub gbme_handler
    &#123;
    	my&#40;$self,$main,$command,$text&#41; = @_;
    	my @parts = split&#40;/\s+/,$text&#41;;
    	my $tonick = shift @parts;
    	my $von = $main->&#123;current_user&#125;&#123;nick&#125;;
    	my $candidates = $main->getPossibleOnlineUsers&#40;$tonick&#41;;
    	if &#40;$#$candidates>0&#41;    # Too many users online with nick starting like this
    	&#123;
    		return &#91;$main->createErrorOutput&#40;'ambiguousname',&#123;nick => $tonick&#125;&#41;&#93;;
    	&#125;
    	elsif &#40;$#$candidates==0 && $von ne $tonick&#41;   # User is online
    	&#123;
    		my $user = $candidates->&#91;0&#93;;
    
    		$main->loadUser&#40;$user->&#123;name&#125;,$user&#41;;
    		my $output = $main->createOutput&#40;
    					&#123;
    						template => 'gbuch_messo',
    						name => $main->&#123;current_user&#125;&#123;name&#125;,
    						nick => $main->&#123;current_user&#125;&#123;nick&#125;,
    						color => $main->&#123;current_user&#125;&#123;color&#125;,
    					&#125;&#41;;
    		return &#91;$output->restrictToUser&#40;$user->&#123;name&#125;&#41;&#93;;
    	&#125;
    
    
    &#125;
    &#91;/list&#93;
    
    Dabei steht messa für die textarea und Messas für die form.
    
    hier noch den javascript den ich dür die html datei reingehauen habe&#58;
    &#91;list&#93;<script type="text/javascript" language="javascript">
                     function smilie&#40;smiliecode&#41; &#123;
    		document.Messas.messa.value += smiliecode+" ";
    		document.Messas.messa.focus&#40;&#41;;
    		&#125;
    function fett&#40;&#41;
       &#123;
      text = prompt&#40;"Dein Text",""&#41;;
       if&#40;text && text!=""&#41;
          &#123;
          text = ""+ text +"";
          document.Messas.messa.value += text;
          &#125;
    &#125;
    function underline&#40;&#41;
        &#123;
        text = prompt&#40;"<u>Dein Text</u>",""&#41;;
       if&#40;text && text!=""&#41;
          &#123;
          text = "<u>"+ text +"</u>";
          document.Messas.messa.value += text;
          &#125;
        &#125;
    function italic&#40;&#41;
        &#123;
        text = prompt&#40;"Dein Text",""&#41;;
       if&#40;text && text!=""&#41;
          &#123;
          text = ""+ text +"";
          document.Messas.messa.value += text;
          &#125;
        &#125;
    function Farbe&#40;&#41;
    &#123;
    if &#40;document.Messas.Font.selectedIndex=="1"&#41;
    &#123;
    
        text = prompt&#40;"Schreibe dein Text, der ORANGE erscheinen soll!",""&#41;;
       if&#40;text && text!=""&#41;
          &#123;
          text = "&#91;ORANGE&#93;"+ text +"&#91;/ORANGE&#93;";
          document.Messas.messa.value += text;
          &#125;
    
    &#125;
    if &#40;document.Messas.Font.selectedIndex=="2"&#41;
    &#123;
    
        text = prompt&#40;"Schreibe dein Text, der ROT erscheinen soll!",""&#41;;
       if&#40;text && text!=""&#41;
          &#123;
          text = "&#91;ROT&#93;"+ text +"&#91;/ROT&#93;";
          document.Messas.messa.value += text;
          &#125;
    
    &#125;
    if &#40;document.Messas.Font.selectedIndex=="3"&#41;
    &#123;
    
        text = prompt&#40;"Schreibe dein Text, der BLAU erscheinen soll!",""&#41;;
      if&#40;text && text!=""&#41;
          &#123;
          text = "&#91;BLAU&#93;"+ text +"&#91;/BLAU&#93;";
          document.Messas.messa.value += text;
          &#125;
    
    &#125;
    if &#40;document.Messas.Font.selectedIndex=="4"&#41;
    &#123;
    
        text = prompt&#40;"Schreibe dein Text, der GRÜN erscheinen soll!",""&#41;;
       if&#40;text && text!=""&#41;
          &#123;
          text = "&#91;GRÜN&#93;"+ text +"&#91;/GRÜN&#93;";
          document.Messas.messa.value += text;
          &#125;
    
    &#125;
    if &#40;document.Messas.Font.selectedIndex=="5"&#41;
    &#123;
    
        text = prompt&#40;"Schreibe dein Text, der SILBER erscheinen soll!",""&#41;;
        if&#40;text && text!=""&#41;
          &#123;
          text = "&#91;SILBER&#93;"+ text +"&#91;/SILBER&#93;";
          document.Messas.messa.value += text;
          &#125;
    
    &#125;
    &#125;
    function Groesse&#40;&#41;
    &#123;
    if &#40;document.Messas.Size.selectedIndex=="1"&#41;
    &#123;
    
        text = prompt&#40;"Schreibe dein Text, der KLEIN erscheinen soll!",""&#41;;
        if&#40;text && text!=""&#41;
          &#123;
          text = "&#91;KLEIN&#93;"+ text +"&#91;/KLEIN&#93;";
          document.Messas.messa.value += text;
          &#125;
    
    &#125;
    if &#40;document.Messas.Size.selectedIndex=="2"&#41;
    &#123;
    
        text = prompt&#40;"Schreibe dein Text, der GROSS erscheinen soll!",""&#41;;
       if&#40;text && text!=""&#41;
          &#123;
          text = "&#91;GROSS&#93;"+ text +"&#91;/GROSS&#93;";
          document.Messas.messa.value += text;
          &#125;
    
    &#125;
    if &#40;document.Messas.Size.selectedIndex=="3"&#41;
    &#123;
    
        text = prompt&#40;"Schreibe dein Text, der RIESIG erscheinen soll!",""&#41;;
        if&#40;text && text!=""&#41;
          &#123;
          text = "&#91;RIESIG&#93;"+ text +"&#91;/RIESIG&#93;";
          document.Messas.messa.value += text;
          &#125;
    
    &#125;
    &#125;
    function pruefung&#40;Messas&#41;
    &#123;
       if&#40;Messas.messa.value.length < 1&#41;
       &#123;
          alert&#40;"Nachrichtfeld muß ausgefüllt werden!"&#41;
          return false
       &#125;
       return true
    &#125;
    
    </script>
    Ich hoffe das reicht und wäre sehr erleichtert wen jemand mir diesen riesen gefallen tun könnte. Habe schon gegooglt aber nichts schlaues gefunden bisher, da ich sowiso kein perl kann *g*
    Achtung: Dies ist ein alter Thread im HTML und Webmaster Forum
    Diese Diskussion ist älter als 90 Tage. Die darin enthaltenen Informationen sind möglicherweise nicht mehr aktuell. Erstelle bitte zu deiner Frage ein neues Thema im Forum !!!!!

  2. #2
    ChatMaster
    Gast

    Standard

    Weiss wirklich nimand wie man da mit perl bbcodes reinprogrammiert?

  3. #3
    Forum Guru
    Registriert seit
    28.12.2004
    Ort
    Ringgenberg(bei Interlaken) / Schweiz
    Beiträge
    4.787
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard

    doch shcon hat bloß keienr lust es zu machen vermute ich mal...

    da du es dazu noch net mal als code gepostet hast...

  4. #4
    Gast
    Gast

    Standard

    Hi GreenRover
    Wie meinst du noch nicht als code gepostet, dort oben ist ja der code des chatgästebuchs, und da ich gesagt habe das ich kein perl kann, kann ich ja auch kein code reinmachen. Oder was meinst du?

  5. #5
    Gast
    Gast

    Standard

    Naja, wen mir das jemand machen würde, würd ich ja gerne was zurückgeben, nur wüsst ich nicht was. *lol* villeicht mal wen mein Chat fertig ist, ein besonderer rang oder so im Chat *fg*

  6. #6
    Forum Guru
    Registriert seit
    28.12.2004
    Ort
    Ringgenberg(bei Interlaken) / Schweiz
    Beiträge
    4.787
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard

    also soweit ich das sehe ist der teil der das JS erzeigt schon vorhanden oder ?!

    dann musst du ja eigentlich nur noch aufzeigen aus was was weren soll..

    also die oberste ezile idch folgt findest du so in deinem text und die danach folgende ist ein beispiel für das [ORANGE] tag

    Code:
    $messa =~ s /<EMBED &#91;^&#93;+>&#91;^&#93;*>/<\/EMBED>/ig;
    
    $messa =~ s/\&#91;ORANGE\&#93;&#40;.*&#41;\&#91;\/ORANGE\&#93;/\<span style\=\"color\&#58; orange\;\"\>$0\<\/span\>/ig;
    aber deine normalen JS funktionen solltest du auch komplett auf bbCode umstellen da ja lles HTM lvon:

    Code:
       $messa =~ s/>/&gt;/g;
       $messa =~ s/</&lt;/g;
    gefressen wird...

  7. #7
    Gast
    Gast

    Standard

    Also danke erstmal, echt nett das du mich da dochnoch unterstützt

    Nun, hab dich glaubs nicht 100% verstanden, mit JS meinst du ja javascript?
    Ja das javascript für den headbereich das für die dropdownmenüs wo zb. die farben drin sind oder sonstige bbcodes zuständig sind hab ich im headbereich der html seite wo für das gästebuch zuständig ist drin.

    Also das gästebuch ansich läuft ja schon bereits, möchte nur noch jetzt mit diesem javascript das ich für die bbcodes im headbereich eingefügt habe bbcodes im gästebuch gebrauchen können.
    Die zwei dropdownmenüs die für die bbcodes zuständig sind (zb. für die farben) hab ich auch bereits drinn im body der html seite.

    Nun damit ich jetzt das richtige mache, und dich auch verstehe.
    wohin genau muss ich den teil von dir wohin platzieren in der .pm datei? Die pm datei ist ja für die funktion des gästebuchs zuständig. Hier nochmals die ganze .pm datei:
    ################################################## ##############################

    package GTChat::Plugins::GBuch;
    use strict;
    use DBI;

    bless({
    template_var_handlers => {
    'gbuch' => \&gbuch_handler,
    'gbuch_send' => \&gbuchsend_handler,
    'gbuch_del' => \&gbuchdel_handler,
    },
    command_handlers => {
    'gbm' => \&gbm_handler,
    'gbme' => \&gbme_handler,
    },
    });



    sub gbuch_handler
    {
    my($self,$main,$text) = @_;
    my $von = $main->{current_user}{nick};
    my $an = $main->{input}{nickname};
    my $page;
    if ($an eq "") {
    my %info = {};
    foreach (split(/&/,$ENV{'QUERY_STRING'}))
    {
    my ($v,$i) = split(/=/,$_);
    $v =~ tr/+/ /;
    $v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $i =~ tr/+/ /;
    $i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $i =~ s///g;
    $info{$v} = $i;
    }
    $an = $info{'an'};
    $page = $info{'page'};
    }


    if ($an eq "") { $an = $main->{current_user}{nick}; }
    if ($page eq "") { $page=1; }
    my $schleife = "$page"."0";
    my $anfang;
    if ($schleife > 10) { $anfang = ($page-1); $anfang = "$anfang"."0"; }

    ################################################## ########
    ################################################## ########

    my $db_name = "DBI:mysql:usr_web8_1"; #Datenbankname
    my $db_user = "web8"; #Datenbank-Username
    my $db_pass = "00NJbnsp"; #Datenbank-Passwort

    ################################################## ########
    ################################################## ########

    my $dbh = DBI->connect("$db_name","$db_user","$db_pass") || die "Database connection not made: $DBI::errstr";
    my $sth = $dbh->prepare("SELECT * FROM gtchat_gb WHERE an = '$an' ORDER BY uhrzeit DESC");
    $sth->execute();
    my $count=0;
    my @gbook=();
    my $gbuch=();
    while(@gbook=$sth->fetchrow_array)
    {
    $count++;
    }

    my $sth = $dbh->prepare("SELECT * FROM gtchat_gb WHERE an = '$an' ORDER BY uid DESC LIMIT $schleife");
    $sth->execute();
    my $zahl = 0;
    my $administer;
    my $ausgabe = "";
    while(@gbook=$sth->fetchrow_array)
    {
    $zahl++;
    if ($zahl > $anfang)
    {
    $gbuch->{id} = $gbook[0];
    $gbuch->{von} = $gbook[2];
    $gbuch->{datum} = $gbook[3];
    $gbuch->{uhrzeit} = $gbook[4];
    $gbuch->{messa} = $gbook[5];
    if($main->{current_user}{nick} eq $an || $main->{current_user}{tempgroup} > 4) { $administer = "<input type=button value=\"Delete\" onClick=\"if (confirm('Soll dieser Beitrag wirklich gelöscht werden?')) document.location.href='$main->{runtime}{completeurl}&template=gbuch_del&uid=$gb uch->{id}&an=$an\';return false\" title=\"Diesen Beitrag löschen!\">"; } else { $administer = ""; }
    push @gbook,$gbuch;
    $ausgabe = $ausgabe."<div align='center'><table width=\"100%\" border=\"0\" cellpadding=\"2\" cellspacing=\"0\" class=\"outer\"><tr><td width=\"20%\" align=\"center\" class=\"row1\">Nickname:</td><td width=\"80%\" align=\"center\" class=\"rowtitle\">Geschrieben am $gbuch->{datum}, um $gbuch->{uhrzeit} Uhr</td></tr>
    <tr><td width=\"20%\" class=\"rowyellow\" align=\"center\" valign=\"top\"><table width=\"100%\" border=\"0\" cellpadding=\"6\" cellspacing=\"0\" class=\"entered\"><tr><td align=\"center\" valign=\"top\"><a href=\"$main->{runtime}{completeurl}&template=gbuch&an=$gbuch->{von}\" title=\"Zum Gästebuch dieses Users!\"><font color=\"#000000\">$gbuch->{von}</font></a></td></tr></table></td><td width=\"80%\" valign=\"top\"><table width=\"100%\" border=\"0\" cellpadding=\"6\" cellspacing=\"0\" class=\"entered\"><tr><td valign=\"top\">$gbuch->{messa}</td></tr></table></td></tr>
    <tr><td width=\"20%\" class=\"row1\" align=\"center\"></td><td width=\"80%\" align=\"right\" class=\"rowtitle\" valign=\"top\">$administer</td></tr></table>

    </div>";
    }
    }

    $sth->finish();
    $dbh->disconnect();
    my $counter;
    if ($count > 0) { $counter = ($count-1) };
    my $seiten = ($counter / 10);
    $gbuch->{seiten} = sprintf("%d",$seiten);
    my $site = "";
    my $seitencount = 0;
    for(my $i = 0; $i <= $gbuch->{seiten}; $i++) {
    $seitencount++;
    if ($seitencount ne $page) {
    $site = $site." <a href=\"$main->{runtime}{completeurl}&template=gbuch&an=$an&page =$seitencount\">$seitencount</a> |";
    }
    else
    {
    $site = $site." $seitencount |";
    }
    }

    $gbuch->{seiten} = "Seiten : | $site";
    if ($count > 0)
    {
    $gbuch->{fehler} = "0";
    $gbuch->{ausgabe} = $ausgabe;
    }
    if ($count eq 0)
    {
    $gbuch->{fehler} = "1";
    $gbuch->{noentry} = "Keine Einträge vorhanden";
    }

    $gbuch->{count} = $count;
    $gbuch->{an} = $an;
    $main->{template_vars}{gbuch} = $gbuch;

    }

    sub gbuchsend_handler
    {
    my($self,$main,$command,$text) = @_;
    my %info = {};
    my $an = $main->{input}{an};
    my $von = $main->{current_user}{nick};

    my $messa = $main->{input}{messa};
    if($messa ne "") {
    my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
    my $CTIME_String = localtime(time);
    $Monat+=1;
    $Jahrestag+=1;
    $Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat;
    $Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag;
    $Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden;
    $Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten;
    $Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden;
    $Jahr+=1900;
    my $datum = "$Monatstag.$Monat.$Jahr";
    my $uhrzeit = "$Stunden.$Minuten";
    $messa =~ s/>/&gt;/g;
    $messa =~ s/</&lt;/g;
    $messa =~ s/(^|\s)((?:https?|ftp):\/\/[^<>\*\s\n\"\]\[\(\)]+[^<>\*\s\n\"\]\[\(\),.?!:-])/"$1<a href=\"".$2."\" target=\"_blank\" class=\"stdlink\" onfocus=\"if (window.resetFocus) resetFocus()\">$2<\/a>"/ige;
    $messa =~ s/(^|\s)(www\.[^<>\*\s\n\]\[\(\)]+[^<>\*\s\n\"\]\[\(\),.?!:-])/"$1<a href=\"http:\/\/".$2."\" target=\"_blank\" class=\"stdlink\" onfocus=\"if (window.resetFocus) resetFocus()\">$2<\/a>"/ige;
    $messa =~ s/(^|\s)([\w\-_.]+@[\w\-_.]+\.[a-z]{2,})/$1<a href=\"mailto:$2\" class=\"stdlink\" onfocus=\"if (window.resetFocus) resetFocus()\"\>$2<\/a>/ig;
    $messa =~ s /<EMBED [^]+>[^]*>/<\/EMBED>/ig;
    $messa =~ s/[\\']/\\$&/g;
    $messa =~ s/\t/\\t/g;
    $messa =~ s/<\/script/<\/'+'script/g;
    $messa =~ s/\r?\n/
    /g;

    ################################################## ########
    ################################################## ########

    my $db_name = "DBI:mysql:usr_web8_1"; #Datenbankname
    my $db_user = "web8"; #Datenbank-Username
    my $db_pass = "00NJbnsp"; #Datenbank-Passwort

    ################################################## ########
    ################################################## ########

    my $dbh = DBI->connect("$db_name","$db_user","$db_pass") || die "Database connection not made: $DBI::errstr";
    my $sth = $dbh->prepare("INSERT INTO gtchat_gb (an, von, datum, uhrzeit, messa) VALUES ('$an', '$von', '$datum', '$uhrzeit', '$messa')");
    $sth->execute();

    my $gbuch;
    $gbuch->{an} = $an;
    $gbuch->{chatmessage} = ";opener.sendText('/gbm $gbuch->{an} $main->{current_user}{nick} schaut in dein Gästebuch!'";
    $main->{template_vars}{gbuch} = $gbuch;


    $sth->finish();
    $dbh->disconnect();
    }
    else
    {
    my $gbuch;
    $gbuch->{an} = $an;
    $main->{template_vars}{gbuch} = $gbuch;
    }
    }
    sub gbuchdel_handler
    {
    my($self,$main,$command,$text) = @_;

    my %info = {};
    foreach (split(/&/,$ENV{'QUERY_STRING'}))
    {
    my ($v,$i) = split(/=/,$_);
    $v =~ tr/+/ /;
    $v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $i =~ tr/+/ /;
    $i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $i =~ s///g;
    $info{$v} = $i;
    }
    my $uid = $info{'uid'};
    my $an = $info{'an'};

    ################################################## ########
    ################################################## ########

    my $db_name = "DBI:mysql:usr_web8_1"; #Datenbankname
    my $db_user = "web8"; #Datenbank-Username
    my $db_pass = "00NJbnsp"; #Datenbank-Passwort

    ################################################## ########
    ################################################## ########

    my $gbuch;
    my $dbh = DBI->connect("$db_name","$db_user","$db_pass") || die "Database connection not made: $DBI::errstr";
    my $sth = $dbh->prepare("DELETE FROM gtchat_gb WHERE uid = '$uid'");
    $sth->execute();
    $sth->finish();
    $dbh->disconnect();
    $gbuch->{an} = $an;
    $main->{template_vars}{gbuch} = $gbuch;
    }

    sub gbm_handler
    {
    my($self,$main,$command,$text) = @_;
    my @parts = split(/\s+/,$text);
    my $tonick = shift @parts;
    my $von = $main->{current_user}{nick};
    my $candidates = $main->getPossibleOnlineUsers($tonick);
    my $user = $candidates->[0];
    if ($#$candidates==0)
    {
    if ($von ne $tonick) {
    my $output = $main->createOutput(
    {
    template => 'gbuch_messi',
    name => $main->{current_user}{name},
    nick => $main->{current_user}{nick},
    color => $main->{current_user}{color},
    });
    return [$output->restrictToUser($user->{name})];
    }
    }
    }

    sub gbme_handler
    {
    my($self,$main,$command,$text) = @_;
    my @parts = split(/\s+/,$text);
    my $tonick = shift @parts;
    my $von = $main->{current_user}{nick};
    my $candidates = $main->getPossibleOnlineUsers($tonick);
    if ($#$candidates>0) # Too many users online with nick starting like this
    {
    return [$main->createErrorOutput('ambiguousname',{nick => $tonick})];
    }
    elsif ($#$candidates==0 && $von ne $tonick) # User is online
    {
    my $user = $candidates->[0];

    $main->loadUser($user->{name},$user);
    my $output = $main->createOutput(
    {
    template => 'gbuch_messo',
    name => $main->{current_user}{name},
    nick => $main->{current_user}{nick},
    color => $main->{current_user}{color},
    });
    return [$output->restrictToUser($user->{name})];
    }


    }

    Hier dein teil wo irgendwo hinsoll in der .pm datei wen ich dich richtig verstanden habe, nur wohin genau?

    $messa =~ s /<EMBED [^]+>[^]*>/<\/EMBED>/ig;

    $messa =~ s/\[ORANGE\](.*)\[\/ORANGE\]/\<span style\=\"color\: orange\;\"\>$0\<\/span\>/ig;

    Und was meinst du mit mein javascript ganz umändern? was meinst du mit diesem teil von dir?
    $messa =~ s/>/&gt;/g;
    $messa =~ s/</&lt;/g;
    Und zum schluss zeig ich dir, damits ganz übersichtlich wird, die html datei mit den javascript-teil im headbereich was ja für die bbcodes zuständig wäre und,.. all den rest wie zb. die textarea
    markiere ich mal rot, auch die form's ect. Damit man übersicht hat über das ganze. Hoffe du kannst mir so helfen. *g*:

    PS: ich wäre natürlich sehr froh wen ich das heute noch erledigen könnte, also würd ich zumindest sehr hoffen. Da ich leider morgen früh ne operation hab, und paar tage im spital liegen muss *grins*. Wäre allgemein für hilfe sehr dankbar.
    <html>
    <head>
    {NEED_PERMISSION|user}
    {NEED|$user_information}
    {NEED|$gbuch}
    <base href="{GET|$settings.urls.htmlurl}">
    <link rel="stylesheet" href="{GET|$runtime.style}.css">
    <title>Gästebuch von {GET|$gbuch.an}</title>
    <script type="text/javascript" language="javascript">
    function smilie(smiliecode) {
    document.Messas.messa.value += smiliecode+" ";
    document.Messas.messa.focus();
    }
    function fett()
    {
    text = prompt("Dein Text","");
    if(text && text!="")
    {
    text = ""+ text +"";
    document.Messas.messa.value += text;
    }
    }
    function underline()
    {
    text = prompt("<u>Dein Text</u>","");
    if(text && text!="")
    {
    text = "<u>"+ text +"</u>";
    document.Messas.messa.value += text;
    }
    }
    function italic()
    {
    text = prompt("Dein Text","");
    if(text && text!="")
    {
    text = ""+ text +"";
    document.Messas.messa.value += text;
    }
    }
    function Farbe()
    {
    if (document.Messas.Font.selectedIndex=="1")
    {

    text = prompt("Schreibe dein Text, der ORANGE erscheinen soll!","");
    if(text && text!="")
    {
    text = "[ORANGE]"+ text +"[/ORANGE]";
    document.Messas.messa.value += text;
    }

    }
    if (document.Messas.Font.selectedIndex=="2")
    {

    text = prompt("Schreibe dein Text, der ROT erscheinen soll!","");
    if(text && text!="")
    {
    text = "[ROT]"+ text +"[/ROT]";
    document.Messas.messa.value += text;
    }

    }
    if (document.Messas.Font.selectedIndex=="3")
    {

    text = prompt("Schreibe dein Text, der BLAU erscheinen soll!","");
    if(text && text!="")
    {
    text = "[BLAU]"+ text +"[/BLAU]";
    document.Messas.messa.value += text;
    }

    }
    if (document.Messas.Font.selectedIndex=="4")
    {

    text = prompt("Schreibe dein Text, der GRÜN erscheinen soll!","");
    if(text && text!="")
    {
    text = "[GRÜN]"+ text +"[/GRÜN]";
    document.Messas.messa.value += text;
    }

    }
    if (document.Messas.Font.selectedIndex=="5")
    {

    text = prompt("Schreibe dein Text, der SILBER erscheinen soll!","");
    if(text && text!="")
    {
    text = "[SILBER]"+ text +"[/SILBER]";
    document.Messas.messa.value += text;
    }

    }
    }
    function Groesse()
    {
    if (document.Messas.Size.selectedIndex=="1")
    {

    text = prompt("Schreibe dein Text, der KLEIN erscheinen soll!","");
    if(text && text!="")
    {
    text = "[KLEIN]"+ text +"[/KLEIN]";
    document.Messas.messa.value += text;
    }

    }
    if (document.Messas.Size.selectedIndex=="2")
    {

    text = prompt("Schreibe dein Text, der GROSS erscheinen soll!","");
    if(text && text!="")
    {
    text = "[GROSS]"+ text +"[/GROSS]";
    document.Messas.messa.value += text;
    }

    }
    if (document.Messas.Size.selectedIndex=="3")
    {

    text = prompt("Schreibe dein Text, der RIESIG erscheinen soll!","");
    if(text && text!="")
    {
    text = "[RIESIG]"+ text +"[/RIESIG]";
    document.Messas.messa.value += text;
    }

    }
    }
    function pruefung(Messas)
    {
    if(Messas.messa.value.length < 1)
    {
    alert("Nachrichtfeld muß ausgefüllt werden!")
    return false
    }
    return true
    }

    </script>


    </head>

    <body onload="opener.autosize(window);opener.sendText('/gbm {GET|$gbuch.an}')">
    {IF|$current_user.tempgroup > -1}
    <table border=0 width="450" cellspacing=0 cellpadding=6 class="outer">
    <tr>
    <td class="row1" align="center">
    Gästebuch von {GET|$gbuch.an} - {GET|$gbuch.count} Einträge
    </td>

    </tr><tr><td>
    </td></tr><tr><td align="center" valign="top">

    {IF|$gbuch.fehler eq 0}
    {DOFILTER|smileys} {GET|$gbuch.ausgabe} {ENDDO}
    {ENDIF}

    {IF|$gbuch.fehler eq 1}
    <div align="center"><u>{GET|$gbuch.noentry}</u></div>
    {ENDIF}

    </td>

    </tr><tr><td align="center" valign="top" class="smalltext">{GET|$gbuch.seiten}</td></tr>

    <tr><td align="center" valign="top">


    <table border=0 width="450" cellspacing=0 cellpadding=2 class="entered" align="center"><tr><td valign="top" align="left" width="100">


    <center>
    Smilies:

    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]


    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]


    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]


    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]


    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]


    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]


    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]
    [img]images/cool.gif[/img]</center>
    </td><td valign="top" align="right" width="350">
    <table border=0 width="350" cellspacing=0 cellpadding=2 class="outer">
    <tr>

    <td class="rowyellow" align="center">Kommentar:</td></tr><tr><td valign="top" class="rowwhite">
    <form name="Messas" method="POST" action="{GET|$runtime.chaturl}" onSubmit="return pruefung(this)">
    <select onChange="Farbe()" name=Font>
    <option value=0>FARBE</option>
    <option value=1 style="colorrange">Orange</font></option>
    <option value=2 style="color:red">Rot</option>
    <option value=3 style="color:blue">Blau</option>
    <option value=4 style="color:green">Grün</option>
    <option value=5 style="color:silver">Silber</option>
    </select>

    <select onChange="Groesse()" name=Size>
    <option value=0>GRÖSSE</option>
    <option value=1>klein</font></option>
    <option value=2>gross</option>
    <option value=3>riesig</option>
    </select>

    <input type="button" value="B" onclick="fett()"> <input type="button" value="U" onclick="underline()"> <input type="button" value="I" onclick="italic()">











    </td></tr>
    <tr><td align="center" valign="top" class="rowwhite">
    <form name="Messas" method="POST" action="{GET|$runtime.chaturl}" onSubmit="return pruefung(this)">{GET|$runtime.hiddenfields}



    <input type="hidden" name="template" value="gbuch_send">

    <input type="hidden" name="an" value="{GET|$gbuch.an}">
    <tr><td align="center" class="rowwhite" valign="top"><table border=0 width="300" cellspacing=0 cellpadding=2><tr><td class="rowtitle" valign="top"></td></tr></table></td></tr>
    <tr><td align="center" class="rowtitle" valign="top">
    <textarea name="messa" cols="40" rows="8" onkeyup="count(event)"></textarea>
    </td></tr>
    </table></td></tr>
    <tr><td valign="top"></td><td valign="top">
    <input type="submit" value="Eintragen"><input type="reset" value="Reset">
    </form></form>
    </td></tr></table>
    </td></tr></table>
    {ENDIF}









    <div class="headertext" align="center">







    [Fenster schließen]







    </div>




    </body>

    </html>

  8. #8
    Gast

    Standard

    HEY HEY, habs geschaft, unglaublich aber es geht.
    musste am javascript nichts ändern. Hab auch plötzlich verstanden wo ich den teil in die .pm datei einfügen muss. Hab nur was kleines ändern müssen und zwar das $0 auf $1, mit $1 ging es plötzlich.
    $messa =~ s/\[ROT\](.*)\[\/ROT\]/\<span style\=\"color\: red\;\"\>$1\<\/span\>/ig;
    Habe da nur noch zwei fragen, und zwar wie mache ich das span tag auf für size also grösse klar, und wie mache ich bold italic und unterstrichen? Geht das alles mit dem spantag? wen ja wie genau?

    Man was soll ich sagen, dankeschön, war ja schneller als ich dachte das ganze, bist echt in ortnung, danke für deine mühe
    Fals du ein wunsch hast kannste in eusern *g*

  9. #9
    Forum Guru
    Registriert seit
    28.12.2004
    Ort
    Ringgenberg(bei Interlaken) / Schweiz
    Beiträge
    4.787
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard

    Ok, wie gesagt habe mom keien lust und zeit das volständig zu machen und zu testen....

    diese Zeiel befindet sich in eienr dateier Datein...
    $messa =~ s /<EMBED [^]+>[^]*>/<\/EMBED>/ig;

    Darunter kannst du als beispiel einfügen:
    $messa =~ s/\[ORANGE\](.*)\[\/ORANGE\]/\<span style\=\"color\: orange\;\"\>$0\<\/span\>/ig;

    der Grundsyntax davon sit:

    $messa =~ Änderen in der nachricht



    Ändere:

    s/VON/ZU/ig;

    s ersetzen
    i ignoriere groß klein schreibung
    g ersetze alles im text nicht nur eins

    ein komplettes tutorial:
    http://www.infos24.de/perle/handbuch...pression.htm#6

    \ wird vor zeichen gesetzt um sie als suchausdruck zu makieren und NICHT als operator

    \[ORANGE\](.*)\[\/ORANGE\]

    heist: suchge nach

    [ORANGE]irgent einen kram dazwischen[/ORANGE]



    \<span style\=\"color\: orange\;\"\>$0\<\/span\>
    ersetze es durch

    <span style="color: orange;">irgent einen kram dazwischen</span>



    So machen diese beiden zeilen, die dein code benihalte aus

    > ein &gt;
    < ein &lt;

    also das dein html ausgegebn anstat ausgeführt wird..

    daher sind diene JS für fett und kursiv müll...

    $messa =~ s/>/&gt;/g;
    $messa =~ s/</&lt;/g;

Ähnliche Themen

  1. Spezielle BBCodes
    Von im Forum PHP Forum - Apache - CGI - Perl - JavaScript und Co.
    Antworten: 1
    Letzter Beitrag: 27.06.2008, 21:02
  2. dateiupload mit perlscript
    Von ledzep im Forum PHP Forum - Apache - CGI - Perl - JavaScript und Co.
    Antworten: 1
    Letzter Beitrag: 19.03.2007, 14:10
  3. Gästebuch als "Chat".
    Von Stubi im Forum PHP Forum - Apache - CGI - Perl - JavaScript und Co.
    Antworten: 0
    Letzter Beitrag: 03.09.2006, 15:44
  4. BBCodes durch klicken einfügen
    Von BBCode braucher im Forum PHP Forum - Apache - CGI - Perl - JavaScript und Co.
    Antworten: 3
    Letzter Beitrag: 18.10.2005, 17:34
  5. Hier Chat treffen und Adresse des Chat !
    Von admin im Forum Off Topic und Quasselbox
    Antworten: 0
    Letzter Beitrag: 29.04.2003, 21:03

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •