[ic] telephone.filter

[Stefan Hornburg]

On Thu, 25 Aug 2005 11:40:03 +0200
"Marco Mescoli" <m.mescoli at omnib.it> wrote:

> I need to add a "telephone.filter" that from a string pass only digits and
> the char '+'.

CodeDef telephone Filter
CodeDef telephone Routine <<EOR
sub {
    my $value = shift;

    $value =~ s/[^+0-9]//g;

    return $value;
}
EOR

Untested :-)

Bye
	Racke



-- 
LinuXia Systems => http://www.linuxia.de/
Expert Interchange Consulting and System Administration
ICDEVGROUP => http://www.icdevgroup.org/
Interchange Development Team