Re: PERL

[ Follow Ups ] [ Post Followup ] [ Report This Message as Offensive ] [ St Augustine's Old Boys Message Board ] [ FAQ ]

Posted by webmaster on January 14, 2003 at 23:37:22:

In Reply to: Automatic Censorship posted by webmaster on January 14, 2003 at 16:26:04:

For the Techies...

if ($censor eq '1') {
$value =~ s/fuck\s?off/\"Go Forth and Multiply\"/ixg;
$value =~ s/bastard/\"Love Child\"/ixg;
$value =~ s/fuck\s?you/\"4Q\"/ixg;
$value =~ s/fuckwit/\"Emminent Sexologist\"/ixg;
$value =~ s/fucking/\"Coital\"/ixg;
$value =~ s/piss\soff/\"Kindly Urinate Elsewhere\"/ixg;
$value =~ s/flying\s?fuck/\"One Mile High Club\"/ixg;
$value =~ s/arsehole/\"Back Office\"/ixg;
$value =~ s/cunt/\"Front Office\"/ixg;
$value =~ s/bleeding/\"Exsanguinating\"/ixg;
$value =~ s/wanker/\"moins que\"/ixg;
$value =~ s/bugger\s?off|sod\s?off/\"Take Thee to the Land of Sodom\"/ixg;
}

Follow Ups:

Post a Followup

Name:
E-Mail:

Subject:

Comments:
: For the Techies... : if ($censor eq '1') { : $value =~ s/fuck\s?off/\"Go Forth and Multiply\"/ixg; : $value =~ s/bastard/\"Love Child\"/ixg; : $value =~ s/fuck\s?you/\"4Q\"/ixg; : $value =~ s/fuckwit/\"Emminent Sexologist\"/ixg; : $value =~ s/fucking/\"Coital\"/ixg; : $value =~ s/piss\soff/\"Kindly Urinate Elsewhere\"/ixg; : $value =~ s/flying\s?fuck/\"One Mile High Club\"/ixg; : $value =~ s/arsehole/\"Back Office\"/ixg; : $value =~ s/cunt/\"Front Office\"/ixg; : $value =~ s/bleeding/\"Exsanguinating\"/ixg; : $value =~ s/wanker/\"moins que\"/ixg; : $value =~ s/bugger\s?off|sod\s?off/\"Take Thee to the Land of Sodom\"/ixg; : }

Password:
If you do not know the password and are an an Old Boy/Staff of St Augustine's please contact the webmaster

Optional Extras
Link URL (eg http://www.mysite.com)----------------:
Link Title (essential if above link URL entered)--------:
Image URL (eg http://www.mysite.com/mypicture.jpg):

[ Follow Ups ] [ Post Followup ] [ St Augustine's Old Boys Message Board ] [ FAQ ]