3 # link: instead of adding a new account, link to an existing. (output form)
5 # Note: Should be run setuid freeside as user nobody
7 # ivan@voicenet.com 97-feb-5
9 # rewrite ivan@sisd.com 98-mar-17
11 # can also link on some other fields now (about time) ivan@sisd.com 98-jun-24
14 use CGI::Base qw(:DEFAULT :CGI);
15 use FS::UID qw(cgisuidsetup);
16 use FS::Record qw(qsearchs);
19 'svc_acct' => 'username',
20 'svc_domain' => 'domain',
26 my($cgi) = new CGI::Base;
31 foreach $_ (split(/-/,$QUERY_STRING)) { #get & untaint pkgnum & svcpart
32 $pkgnum=$1 if /^pkgnum(\d+)$/;
33 $svcpart=$1 if /^svcpart(\d+)$/;
36 my($part_svc) = qsearchs('part_svc',{'svcpart'=>$svcpart});
37 my($svc) = $part_svc->getfield('svc');
38 my($svcdb) = $part_svc->getfield('svcdb');
39 my($link_field) = $link_field{$svcdb};
41 CGI::Base::SendHeaders();
45 <TITLE>Link to existing $svc account</TITLE>
49 <H1>Link to existing $svc account</H1>
51 <FORM ACTION="process/link.cgi" METHOD=POST>
56 <INPUT TYPE="hidden" NAME="svcnum" VALUE="">
57 <INPUT TYPE="hidden" NAME="link_field" VALUE="$link_field">
58 $link_field of existing service: <INPUT TYPE="text" NAME="link_value">
61 print qq!Service # of existing service: <INPUT TYPE="text" NAME="svcnum" VALUE="">!;
65 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">
66 <INPUT TYPE="hidden" NAME="svcpart" VALUE="$svcpart">
67 <P><CENTER><INPUT TYPE="submit" VALUE="Link"></CENTER>