httemplate/misc/link.cgi

   1 <!-- $Id: link.cgi,v 1.5 2002-01-30 14:18:09 ivan Exp $ -->
   2 <%
   3
   4 my %link_field = (
   5   'svc_acct'    => 'username',
   6   'svc_domain'  => 'domain',
   7   'svc_acct_sm' => '',
   8   'svc_charge'  => '',
   9   'svc_wo'      => '',
  10 );
  11
  12 my($query) = $cgi->keywords;
  13 my($pkgnum, $svcpart) = ('', '');
  14 foreach $_ (split(/-/,$query)) { #get & untaint pkgnum & svcpart
  15   $pkgnum=$1 if /^pkgnum(\d+)$/;
  16   $svcpart=$1 if /^svcpart(\d+)$/;
  17 }
  18
  19 my $part_svc = qsearchs('part_svc',{'svcpart'=>$svcpart});
  20 my $svc = $part_svc->getfield('svc');
  21 my $svcdb = $part_svc->getfield('svcdb');
  22 my $link_field = $link_field{$svcdb};
  23
  24 print header("Link to existing $svc"),
  25       qq!<FORM ACTION="!, popurl(1), qq!process/link.cgi" METHOD=POST>!;
  26
  27 if ( $link_field ) {
  28   print <<END;
  29   <INPUT TYPE="hidden" NAME="svcnum" VALUE="">
  30   <INPUT TYPE="hidden" NAME="link_field" VALUE="$link_field">
  31   $link_field of existing service: <INPUT TYPE="text" NAME="link_value">
  32 END
  33 } else {
  34   print qq!Service # of existing service: <INPUT TYPE="text" NAME="svcnum" VALUE="">!;
  35 }
  36
  37 print <<END;
  38 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">
  39 <INPUT TYPE="hidden" NAME="svcpart" VALUE="$svcpart">
  40 <P><CENTER><INPUT TYPE="submit" VALUE="Link"></CENTER>
  41     </FORM>
  42   </BODY>
  43 </HTML>
  44 END
  45
  46 %>