diff options
| author | cvs2git <cvs2git> | 2002-08-12 06:17:10 +0000 |
|---|---|---|
| committer | cvs2git <cvs2git> | 2002-08-12 06:17:10 +0000 |
| commit | 160be29a0dc62e79a4fb95d2ab8c0c7e5996760e (patch) | |
| tree | 94ebadb17321b138fd7bfd9a5c379eec97c5d328 /httemplate/misc/link.cgi | |
| parent | 3ef62a0570055da710328937e7f65dbb2c027c62 (diff) | |
This commit was manufactured by cvs2svn to create branch 'BESTPRACTICAL'.
Diffstat (limited to 'httemplate/misc/link.cgi')
| -rwxr-xr-x | httemplate/misc/link.cgi | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/httemplate/misc/link.cgi b/httemplate/misc/link.cgi deleted file mode 100755 index efc762cc5..000000000 --- a/httemplate/misc/link.cgi +++ /dev/null @@ -1,46 +0,0 @@ -<!-- mason kludge --> -<% - -my %link_field = ( - 'svc_acct' => 'username', - 'svc_domain' => 'domain', - 'svc_acct_sm' => '', - 'svc_charge' => '', - 'svc_wo' => '', -); - -my($query) = $cgi->keywords; -my($pkgnum, $svcpart) = ('', ''); -foreach $_ (split(/-/,$query)) { #get & untaint pkgnum & svcpart - $pkgnum=$1 if /^pkgnum(\d+)$/; - $svcpart=$1 if /^svcpart(\d+)$/; -} - -my $part_svc = qsearchs('part_svc',{'svcpart'=>$svcpart}); -my $svc = $part_svc->getfield('svc'); -my $svcdb = $part_svc->getfield('svcdb'); -my $link_field = $link_field{$svcdb}; - -print header("Link to existing $svc"), - qq!<FORM ACTION="!, popurl(1), qq!process/link.cgi" METHOD=POST>!; - -if ( $link_field ) { - print <<END; - <INPUT TYPE="hidden" NAME="svcnum" VALUE=""> - <INPUT TYPE="hidden" NAME="link_field" VALUE="$link_field"> - $link_field of existing service: <INPUT TYPE="text" NAME="link_value"> -END -} else { - print qq!Service # of existing service: <INPUT TYPE="text" NAME="svcnum" VALUE="">!; -} - -print <<END; -<INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum"> -<INPUT TYPE="hidden" NAME="svcpart" VALUE="$svcpart"> -<P><CENTER><INPUT TYPE="submit" VALUE="Link"></CENTER> - </FORM> - </BODY> -</HTML> -END - -%> |