% include('/elements/init_overlib.html') %>
% if ( length($number) ) {
<% $number %>
% if ( $opt{'callable'} ) {
%
% if ( $curuser->option('vonage-username') ) {
%
% (my $vonage_number = $curuser->option('vonage-fromnumber')) =~ s/\D//g;
% $vonage_number =~ /^1/ or $vonage_number = "1$vonage_number";
<% include('/elements/popup_link.html',
'action' =>
'https://secure.click2callu.com/tpcc/makecall'.
'?username='. uri_escape($curuser->option('vonage-username')).
'&password='. uri_escape($curuser->option('vonage-password')).
"&fromnumber=$vonage_number".
"&tonumber=$snumber",
'width' => 240,
'height' => 64,
'actionlabel' => 'Initiating call',
'html_label' => "<$img>",
)
%>
% } elsif ( $curuser->option('snom-ip') ) {
%
% my $host = $curuser->option('snom-ip');
% if ( $curuser->option('snom-username') ) {
% my $userpass = uri_escape($curuser->option('snom-username'));
% $userpass .= ':'. uri_escape($curuser->option('snom-password'))
% if $curuser->option('snom-password');
% $host = $userpass.'@'.$host;
% }
%
% $snumber = "1$snumber" unless $snumber =~ /~1/; #NANPA-centric
%# <% include('/elements/popup_link.html',
%# 'action' => "http://$host/command.htm?number=$snumber",
%# %link_common,
%# )
%# %>
<<% $img %>>
% }
%
% }
%
% if ( $opt{'calling_list_exempt'} ) {
- calling list exempt
% }
%
% } else {
% }
<%init>
my( $number, %opt ) = @_;
( my $snumber = $number ) =~ s/\D//g;
my $curuser = $FS::CurrentUser::CurrentUser;
my $img = qq(IMG SRC="${fsurl}images/red_telephone_mimooh_01.png" BORDER=0 ALT="Call this number");
%init>