Revision b3a1f678
Von Moritz Bunkus vor mehr als 9 Jahren hinzugefügt
| SL/CTI.pm | ||
|---|---|---|
| 40 | 40 |
my $idp = $config->{international_dialing_prefix} // '00';
|
| 41 | 41 |
|
| 42 | 42 |
my $number = $params{number} // '';
|
| 43 |
$number =~ s/[^0-9+\.-]//g; # delete unsupported characters
|
|
| 43 |
$number =~ s/[^0-9+]//g; # delete unsupported characters
|
|
| 44 | 44 |
my $countrycode = $number =~ s/^(?: $idp | \+ ) ( \d{2} )//x ? $1 : ''; # TODO: countrycodes can have more or less than 2 digits
|
| 45 | 45 |
$number =~ s/^0//x if $countrycode; # kill non standard optional zero after global identifier |
| 46 |
$number =~ s{[^0-9]+}{}g;
|
|
| 46 | 47 |
|
| 47 | 48 |
return '' unless $number; |
| 48 | 49 |
|
Auch abrufbar als: Unified diff
SL::CTI::sanitize_number: nur Ziffern zurückliefern