# Selima Website Content Management System
# MungAddr.pm: The subroutines to hide e-mail addresses from spammers' e-mail collectors.

#  Copyright (c) 2003-2018 imacat.
#
#  Licensed under the Apache License, Version 2.0 (the "License");
#  you may not use this file except in compliance with the License.
#  You may obtain a copy of the License at
#
#      http://www.apache.org/licenses/LICENSE-2.0
#
#  Unless required by applicable law or agreed to in writing, software
#  distributed under the License is distributed on an "AS IS" BASIS,
#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
#  See the License for the specific language governing permissions and
#  limitations under the License.

# Author: imacat <imacat@mail.imacat.idv.tw>
# First written: 2003-03-31

package Selima::MungAddr;
use 5.008;
use strict;
use warnings;
use base qw(Exporter);
use vars qw(@EXPORT @EXPORT_OK);
BEGIN {
@EXPORT = qw(mung_address_at unmung_address_at mung_email_span);
@EXPORT_OK = @EXPORT;
# Prototype declaration
sub mung_address_at($);
sub unmung_address_at($);
sub mung_email_span($);
}

# mung_address_at: Mung mail addresses with " at "
sub mung_address_at($) {
    local ($_, %_);
    $_ = $_[0];
    s/@/ at /g;
    return $_;
}

# unmung_address_at: Un-mung mail addresses with " at "
sub unmung_address_at($) {
    local ($_, %_);
    $_ = $_[0];
    s/ at /@/g;
    return $_;
}

# mung_email_span: Mung mail addresses with <span>&#64;</span>
sub mung_email_span($) {
    local ($_, %_);
    $_ = $_[0];
    s/@/<span>@<\/span>/g;
    return $_;
}

return 1;