projekt kivitendo

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) = @_;

  return "controller.pl?action=CTI/call&number=" . uri_encode($class->sanitize_number(number => $params{number})) . ($params{internal} ? '&internal=1' : '');

}

sub sanitize_number {

  my ($class, %params) = @_;

  my $config           = $::lx_office_conf{cti} || {};

  my $idp              = $config->{international_dialing_prefix} // '00';

  my $number           = $params{number} // '';

  $number              =~ s/[^0-9+\.-]//g;                                     # delete unsupported characters

  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

  return '' unless $number;

  return ($countrycode ? $idp . $countrycode : '') . $number;

}

1;

package SL::Controller::CTI;

use strict;

use SL::CTI;

use SL::DB::AuthUserConfig;

use SL::Helper::Flash;

use SL::Locale::String;

use parent qw(SL::Controller::Base);

use Rose::Object::MakeMethods::Generic (

  'scalar --get_set_init' => [ qw(internal_extensions) ],

);

sub action_call {

  my ($self) = @_;

  eval {

    my $res = SL::CTI->call(number => $::form->{number}, internal => $::form->{internal});

    flash('info', t8('Calling #1 now', $::form->{number}));

    1;

  } or do {

    flash('error', $@);

  };

  $self->render('cti/calling');

}

sub action_list_internal_extensions {

  my ($self) = @_;

  $self->render('cti/list_internal_extensions', title => t8('Internal Phone List'));

}

#

# filters

#

sub init_internal_extensions {

  my ($self) = @_;

  my $user_configs = SL::DB::Manager::AuthUserConfig->get_all(

    where => [

      cfg_key      => 'phone_extension',

      '!cfg_value' => undef,

      '!cfg_value' => '',

    ],

    with_objects => [ qw(user) ],

  );

  my %users;

  foreach my $config (@{ $user_configs }) {

    $users{$config->user_id} ||= {

      name            => $config->user->get_config_value('name') || $config->user->login,

      phone_extension => $config->cfg_value,

      call_link       => SL::CTI->call_link(number => $config->cfg_value, internal => 1),

    };

  }

  return [

    sort { lc($a->{name}) cmp lc($b->{name}) } values %users

  ];

}

1;

use SL::CTI;

    if (my $number = SL::CTI->sanitize_number(number => $ref->{phone})) {

      $row->{phone}->{link}       = SL::CTI->call_link(number => $number);

      $row->{phone}->{link_class} = 'cti_call_action';

    }

    for (qw(cp_phone1 cp_phone2 cp_mobile1)) {

      next unless my $number = SL::CTI->sanitize_number(number => $ref->{$_});

      $row->{$_}->{link}       = SL::CTI->call_link(number => $number);

      $row->{$_}->{link_class} = 'cti_call_action';

    }

[cti]

# If you want phone numbers to be clickable then this must be set to a

# command that does the actually dialing. Within this command three

# variables are replaced before it is executed:

#

# 1. <%phone_extension%> and <%phone_password%> are taken from the user

#    configuration (changeable in the admin interface).

# 2. <%number%> is the number to dial. It has already been sanitized

#    and formatted correctly regarding e.g. the international dialing

#    prefix.

#

# The following is an example that works with the OpenUC telephony

# server:

# dial_command = curl --insecure -X PUT https://<%phone_extension%>:<%phone_password%>@IP.AD.DR.ESS:8443/sipxconfig/rest/my/call/<%number%>

dial_command =

# If you need to dial something before the actual number then set

# external_prefix to it.

external_prefix = 0

# The prefix for international calls (numbers starting with +).

international_dialing_prefix = 00

/* CTI */

a.cti_call_action {

  display: inline-block;

  padding-left: 18px;

  height: 16px;

  position: relative;

  top: 2px;

  vertical-align: center;

  background-image: url(../../image/icons/16x16/phone.png);

  background-repeat: no-repeat;

}

/* CTI */

a.cti_call_action {

  display: inline-block;

  padding-left: 18px;

  height: 16px;

  position: relative;

  top: 2px;

  vertical-align: center;

  background-image: url(../../image/icons/16x16/phone.png);

  background-repeat: no-repeat;

}

phone.png

  this.update_dial_action = function($input) {

    var $action = $('#' + $input.prop('id') + '-dial-action');

    if (!$action)

      return true;

    var number = $input.val().replace(/\s+/g, '');

    if (number == '')

      $action.hide();

    else

      $action.prop('href', 'controller.pl?action=CTI/call&number=' + encodeURIComponent(number)).show();

    return true;

  };

  this.init_dial_action = function(input) {

    if ($('#_cti_enabled').val() != 1)

      return false;

    var $input    = $(input);

    var action_id = $input.prop('id') + '-dial-action';

    if (!$('#' + action_id).size()) {

      var $action = $('<a href="" id="' + action_id + '" class="cti_call_action" target="_blank" tabindex="-1"></a>');

      $input.wrap('<span nobr></span>').after($action);

      $input.change(function() { kivi.CustomerVendor.update_dial_action($input); });

    }

    kivi.CustomerVendor.update_dial_action($input);

    return true;

  };

function local_reinit_widgets() {

  $('#cv_phone,#shipto_shiptophone,#contact_cp_phone1,#contact_cp_phone2,#contact_cp_mobile1,#contact_cp_mobile2').each(function(idx, elt) {

    kivi.CustomerVendor.init_dial_action($(elt));

  });

}

  'CTI settings'                => 'CTI-Einstellungen',

  'Calling #1 now'              => 'Wähle jetzt #1',

  'Dial command missing in kivitendo configuration\'s [cti] section' => 'Wählbefehl fehlt im Abschnitt [cti] der kivitendo-Konfiguration',

  'Internal Phone List'         => 'Interne Telefonliste',

  'No internal phone extensions have been configured yet.' => 'Es wurden noch keine internen Durchwahlen konfiguriert.',

  'Phone extension'             => 'Durchwahl',

  'Phone extension missing in user configuration' => 'Durchwahl fehlt in der Benutzerkonfiguration',

  'Phone password'              => 'Telefonpasswort',

  'Phone password missing in user configuration' => 'Telefonpasswort fehlt in der Benutzerkonfiguration',

[Program--Internal Phone List]

module=controller.pl

action=CTI/list_internal_extensions

use Test::More tests => 9;

use strict;

use lib 't';

use utf8;

use_ok 'SL::CTI';

{

  no warnings 'once';

  $::lx_office_conf{cti}->{international_dialing_prefix} = '00';

}

is SL::CTI->call_link(number => '0371 5347 620'),        'controller.pl?action=CTI/call&number=03715347620';

is SL::CTI->call_link(number => '0049(0)421-22232 22'),  'controller.pl?action=CTI/call&number=0049421-2223222';

is SL::CTI->call_link(number => '+49(0)421-22232 22'),   'controller.pl?action=CTI/call&number=0049421-2223222';

is SL::CTI->call_link(number => 'Tel: +49 40 809064 0'), 'controller.pl?action=CTI/call&number=0049408090640';

is SL::CTI->call_link(number => '0371 5347 620',        internal => 1), 'controller.pl?action=CTI/call&number=03715347620&internal=1';

is SL::CTI->call_link(number => '0049(0)421-22232 22',  internal => 1), 'controller.pl?action=CTI/call&number=0049421-2223222&internal=1';

is SL::CTI->call_link(number => '+49(0)421-22232 22',   internal => 1), 'controller.pl?action=CTI/call&number=0049421-2223222&internal=1';

is SL::CTI->call_link(number => 'Tel: +49 40 809064 0', internal => 1), 'controller.pl?action=CTI/call&number=0049408090640&internal=1';

use Test::More tests => 5;

use strict;

use lib 't';

use utf8;

use_ok 'SL::CTI';

{

  no warnings 'once';

  $::lx_office_conf{cti}->{international_dialing_prefix} = '00';

}

is SL::CTI->sanitize_number(number => '0371 5347 620'),        '03715347620';

is SL::CTI->sanitize_number(number => '0049(0)421-22232 22'),  '0049421-2223222';

is SL::CTI->sanitize_number(number => '+49(0)421-22232 22'),   '0049421-2223222';

is SL::CTI->sanitize_number(number => 'Tel: +49 40 809064 0'), '0049408090640';

 <h2>[%- LxERP.t8("CTI settings") %]</h2>

 <table>

  <tr>

   <th align="right">[% LxERP.t8("Phone extension") %]</th>

   <td>[% L.input_tag("user.config_values.phone_extension", props.phone_extension) %]</td>

  </tr>

  <tr>

   <th align="right">[% LxERP.t8("Phone password") %]</th>

   <td>[% L.input_tag("user.config_values.phone_password", props.phone_password) %]</td>

  </tr>

 </table>

<body>

[% PROCESS 'common/flash.html' %]

</body>

</html>

[%- USE HTML %][%- USE LxERP -%]

<body>

<h1>[% HTML.escape(title) %]</h1>

[% IF !SELF.internal_extensions.size %]

 <p>[% LxERP.t8("No internal phone extensions have been configured yet.") %]</p>

[% ELSE %]

 <table>

  <tr class="listheading">

   <th>[% LxERP.t8("Name") %]</th>

   <th>[% LxERP.t8("Phone extension") %]</th>

  </tr>

  [%- FOREACH extension = SELF.internal_extensions %]

   <tr class="listrow">

    <td>[% HTML.escape(extension.name) %]</td>

    <td><a href="[% HTML.escape(extension.call_link) %]" class="cti_call_action">[% HTML.escape(extension.phone_extension) %]</a></td>

   </tr>

  [%- END %]

 </table>

[% END %]

</body>

</html>

[% L.hidden_tag('_cti_enabled', !!LXCONFIG.cti.dial_command) %]

            onchange = "kivi.CustomerVendor.selectContact({onFormSet: function(){ contactsMapWidget.testInputs(); local_reinit_widgets(); }});",

             onchange = "kivi.CustomerVendor.selectShipto({onFormSet: function(){ shiptoMapWidget.testInputs(); local_reinit_widgets(); }});",