baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<perl> if(%_put) { my $test=$_put{Titel}.$_put{Text}.$_put{WWW}; return if $test=~ /boese|woerter|etc. blabla/i; } </perl>
|
Alle Einträge zum Thema: | Zur Liste |
if(%_put) { my $test=$_put{Titel}.$_put{Text}.$_put{WWW}; return if $test=~ /boese|woerter|etc. blabla/i; }
<do action=input> <do action=list listtype=add db=/wintrack/main selectbrowse=no listfields=-Zaehler>
<perl> if(%_put) { my $test=$_put{Titel}.$_put{Text}.$_put{WWW}; return if $test=~ /boese|woerter|etc. blabla/i; } </perl>
my $test=$_put{Titel}.$_put{Text}.$_put{WWW};
<perl> if(%_put) { my $test=$_put{Bild}; return if $test=~ /test\.gif/i; } </perl> <do action=input> <do action=list listtype=add db=/wintrack/main selectbrowse=no listfields=-Zaehler>
<perl> my $test=$_put{Bild}; if(%_put) { return if $test=~ /test\.gif/i; out" nix da"; } else { put; ###<do action=input db=???> out" ok kein test bild"} </perl>
return if $test~= /boese|woerter|etc. blabla/i;
<perl> if(%_put) { my $test=$_put{Titel}.$_put{Text}.$_put{WWW}; return if $test=~ /boese|woerter|etc. blabla/i; } do_all; </perl>
<perl> if(%_put) { my $test=$_put{Titel}.$_put{Text}.$_put{WWW}; put unless $test=~ /boese|woerter|etc. blabla/i; } </perl>
<perl> if(%_put) { my $test=$_put{Titel}.$_put{Text}.$_put{WWW}; undef %_put if $test=~ /boese|woerter|etc. blabla/i; } </perl> <do action=all>
<perl> if(%_put) { my $test=$_put{Titel}.$_put{Text}.$_put{WWW}; undef %_put if $test=~ /boese|woerter|etc. blabla/i; } </perl> <do action=all>
<perl> if(%_put) { my $test=$_put{Titel}.$_put{Text}.$_put{WWW}; if ($test=~ /boese|woerter|etc. blabla/i){ undef %_put; $_get{cmd}=""; } } </perl> <do action=all>
<perl> if (%_put and &spamfilter($_put{Titel}.$_put{Text}.$_put{WWW}>=3)){#3=Härte des Filters undef %_put; $_get{cmd}=""; error "Eintrag konnte nicht aufgenommen werden da er zuviele Links enthält."; #oder hier jetzt ein captcha anbieten }
sub spamfilter{ my $text = shift; my $points = 0; #Badwords foreach (qw|http:// \[/url\] </a> und noch andere böse wörter|){ $points += $text =~ #$_#i; }
#raum für eigene Ideen return $points; } </perl> <do action=all>
<perl> if(%_put) { my $test=$_put{Bild}; if($test=~ /\.\.\.|test\.gif/i) { undef %_put; $_get{cmd}=""; out "<b>Eintrag ungültig...</b><br><br>"; } } </perl>
Liste der Einträge von 14250 bis 14400: | 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 |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |