From 124601883f5c26ddc16d0f9d0890614dfd58a91e Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Tue, 3 Aug 2010 03:30:34 +0000
Subject: customer view tab for an external info page, RT#8903

---
 httemplate/misc/custom_link_proxy.cgi | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 httemplate/misc/custom_link_proxy.cgi

(limited to 'httemplate/misc/custom_link_proxy.cgi')

diff --git a/httemplate/misc/custom_link_proxy.cgi b/httemplate/misc/custom_link_proxy.cgi
new file mode 100644
index 000000000..e5934e4a6
--- /dev/null
+++ b/httemplate/misc/custom_link_proxy.cgi
@@ -0,0 +1,24 @@
+% if( $response->is_success ) {
+<% $response->decoded_content %>
+% }
+% else {
+<% $response->error_as_HTML %>
+% }
+<%init>
+
+my( $custnum ) = $cgi->param('custnum');
+my $cust_main = qsearchs('cust_main', { custnum => $custnum } ) 
+  or die "custnum '$custnum' not found"; # just check for existence
+
+my $conf = new FS::Conf;
+my $url = $conf->config('cust_main-custom_link') . $cust_main->custnum;
+#warn $url;
+
+my $curuser = $FS::CurrentUser::CurrentUser;
+
+die "access denied"
+  unless $curuser->access_right('View customer');
+
+my $ua = new LWP::UserAgent;
+my $response = $ua->get($url);
+</%init>
-- 
cgit v1.2.1