htdocs/misc/link.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: link.cgi,v 1.4 1999-01-18 09:41:36 ivan Exp $
   4 #
   5 # Note: Should be run setuid freeside as user nobody
   6 #
   7 # ivan@voicenet.com 97-feb-5
   8 #
   9 # rewrite ivan@sisd.com 98-mar-17
  10 #
  11 # can also link on some other fields now (about time) ivan@sisd.com 98-jun-24
  12 #
  13 # $Log: link.cgi,v $
  14 # Revision 1.4  1999-01-18 09:41:36  ivan
  15 # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
  16 # (good idea anyway)
  17 #
  18 # Revision 1.3  1998/12/23 03:03:39  ivan
  19 # $cgi->keywords instead of $cgi->query_string
  20 #
  21 # Revision 1.2  1998/12/17 09:12:45  ivan
  22 # s/CGI::(Request|Base)/CGI.pm/;
  23 #
  24
  25 use strict;
  26 use CGI;
  27 use CGI::Carp qw(fatalsToBrowser);
  28 use FS::UID qw(cgisuidsetup);
  29 use FS::CGI qw(popurl);
  30 use FS::Record qw(qsearchs);
  31
  32 my(%link_field)=(
  33   'svc_acct'    => 'username',
  34   'svc_domain'  => 'domain',
  35   'svc_acct_sm' => '',
  36   'svc_charge'  => '',
  37   'svc_wo'      => '',
  38 );
  39
  40 my($cgi) = new CGI;
  41 cgisuidsetup($cgi);
  42
  43 my($pkgnum,$svcpart);
  44 my($query) = $cgi->keywords;
  45 foreach $_ (split(/-/,$query)) { #get & untaint pkgnum & svcpart
  46   $pkgnum=$1 if /^pkgnum(\d+)$/;
  47   $svcpart=$1 if /^svcpart(\d+)$/;
  48 }
  49
  50 my($part_svc) = qsearchs('part_svc',{'svcpart'=>$svcpart});
  51 my($svc) = $part_svc->getfield('svc');
  52 my($svcdb) = $part_svc->getfield('svcdb');
  53 my($link_field) = $link_field{$svcdb};
  54
  55 print $cgi->header( '-expires' => 'now' ), header("Link to existing $svc account"),
  56       qq!<FORM ACTION="!, popurl(1), qq!process/link.cgi" METHOD=POST>!;
  57
  58 if ( $link_field ) {
  59   print <<END;
  60   <INPUT TYPE="hidden" NAME="svcnum" VALUE="">
  61   <INPUT TYPE="hidden" NAME="link_field" VALUE="$link_field">
  62   $link_field of existing service: <INPUT TYPE="text" NAME="link_value">
  63 END
  64 } else {
  65   print qq!Service # of existing service: <INPUT TYPE="text" NAME="svcnum" VALUE="">!;
  66 }
  67
  68 print <<END;
  69 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">
  70 <INPUT TYPE="hidden" NAME="svcpart" VALUE="$svcpart">
  71 <P><CENTER><INPUT TYPE="submit" VALUE="Link"></CENTER>
  72     </FORM>
  73   </BODY>
  74 </HTML>
  75 END
  76