<% 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");