Subversion Repositories DevTools

package Codestriker::Template::Plugin::StringObfuscator;

# Simple template toolkit plugin module for modifying the string
# into a more obfuscated form which spam harvesters can't use for
# nabbing email addresses.

use Template::Plugin::Filter;
use Codestriker;

use base qw( Template::Plugin::Filter );

sub filter {
    my ($self, $text) = @_;

    my $length = length($text);
    my $result = "";
    for (my $i = 0; $i < $length; $i++) {
        my $char = substr $text, $i, 1;
        $result .= "\"" unless $i == 0;
        $result .= "$char";
        $result .= "\"+" unless $i == $length-1;
    }

    return $result;
}

1;