kivitendo/SL/CTI.pm @ 4a663bf8
| 53d80f2a | Moritz Bunkus | package SL::CTI;
|
||
use strict;
|
||||
use String::ShellQuote;
|
||||
use SL::MoreCommon qw(uri_encode);
|
||||
sub call {
|
||||
my ($class, %params) = @_;
|
||||
my $config = $::lx_office_conf{cti} || {};
|
||||
my $command = $config->{dial_command} || die $::locale->text('Dial command missing in kivitendo configuration\'s [cti] section');
|
||||
my $external_prefix = $params{internal} ? '' : ($config->{external_prefix} // '');
|
||||
my %command_args = (
|
||||
phone_extension => $::myconfig{phone_extension} || die($::locale->text('Phone extension missing in user configuration')),
|
||||
phone_password => $::myconfig{phone_password} || die($::locale->text('Phone password missing in user configuration')),
|
||||
number => $external_prefix . $class->sanitize_number(%params),
|
||||
);
|
||||
foreach my $key (keys %command_args) {
|
||||
my $value = shell_quote($command_args{$key});
|
||||
$command =~ s{<\% ${key} \%>}{$value}gx;
|
||||
}
|
||||
return `$command`;
|
||||
}
|
||||
sub call_link {
|
||||
my ($class, %params) = @_;
|
||||
| cfb460aa | Sven Schöling | my $config = $::lx_office_conf{cti} || {};
|
||
if ($config->{dial_command}) {
|
||||
return "controller.pl?action=CTI/call&number=" . uri_encode($class->sanitize_number(number => $params{number})) . ($params{internal} ? '&internal=1' : '');
|
||||
} else {
|
||||
return 'callto://' . uri_encode($class->sanitize_number(number => $params{number}));
|
||||
}
|
||||
| 53d80f2a | Moritz Bunkus | }
|
||
sub sanitize_number {
|
||||
my ($class, %params) = @_;
|
||||
my $config = $::lx_office_conf{cti} || {};
|
||||
my $idp = $config->{international_dialing_prefix} // '00';
|
||||
my $number = $params{number} // '';
|
||||
| b3a1f678 | Moritz Bunkus | $number =~ s/[^0-9+]//g; # delete unsupported characters
|
||
| 53d80f2a | Moritz Bunkus | my $countrycode = $number =~ s/^(?: $idp | \+ ) ( \d{2} )//x ? $1 : ''; # TODO: countrycodes can have more or less than 2 digits
|
||
$number =~ s/^0//x if $countrycode; # kill non standard optional zero after global identifier
|
||||
| b3a1f678 | Moritz Bunkus | $number =~ s{[^0-9]+}{}g;
|
||
| 53d80f2a | Moritz Bunkus | |||
return '' unless $number;
|
||||
return ($countrycode ? $idp . $countrycode : '') . $number;
|
||||
}
|
||||
1;
|