httemplate/misc/custom_link_proxy.cgi

   1 % if( $response->is_success ) {
   2 <% $response->decoded_content %>
   3 % }
   4 % else {
   5 <% $response->error_as_HTML %>
   6 % }
   7 <%init>
   8
   9 my( $custnum ) = $cgi->param('custnum');
  10 my $cust_main = qsearchs('cust_main', { custnum => $custnum } )
  11   or die "custnum '$custnum' not found"; # just check for existence
  12
  13 my $conf = new FS::Conf;
  14 my $url = $conf->config('cust_main-custom_link') . $cust_main->custnum;
  15 #warn $url;
  16
  17 my $curuser = $FS::CurrentUser::CurrentUser;
  18
  19 die "access denied"
  20   unless $curuser->access_right('View customer');
  21
  22 my $ua = new LWP::UserAgent;
  23 my $response = $ua->get($url);
  24 </%init>