diff options
| author | ivan <ivan> | 2006-12-29 08:51:34 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-12-29 08:51:34 +0000 |
| commit | 633c48448d9468690b7ad77eb6ff7c660a286658 (patch) | |
| tree | 4e08051f8d805e7e95c8dffe5e3e73b0c360f965 /httemplate/misc/link.cgi | |
| parent | 6cb5c702b17b98be46adea4539e15d5f312e5be1 (diff) | |
service refactor!
Diffstat (limited to 'httemplate/misc/link.cgi')
| -rwxr-xr-x | httemplate/misc/link.cgi | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/httemplate/misc/link.cgi b/httemplate/misc/link.cgi index 1d1f5e133..ef72b4a5c 100755 --- a/httemplate/misc/link.cgi +++ b/httemplate/misc/link.cgi @@ -1,6 +1,3 @@ -<!-- mason kludge --> -% -% %my %link_field = ( % 'svc_acct' => 'username', % 'svc_domain' => 'domain', @@ -16,12 +13,10 @@ % }, %); % -%my($query) = $cgi->keywords; -%my($pkgnum, $svcpart) = ('', ''); -%foreach $_ (split(/-/,$query)) { #get & untaint pkgnum & svcpart -% $pkgnum=$1 if /^pkgnum(\d+)$/; -% $svcpart=$1 if /^svcpart(\d+)$/; -%} +%$cgi->param('pkgnum') =~ /^(\d+)$/ or die 'unparsable pkgnum'; +%my $pkgnum = $1; +%$cgi->param('svcpart') =~ /^(\d+)$/ or die 'unparsable svcpart'; +%my $svcpart = $1; % %my $part_svc = qsearchs('part_svc',{'svcpart'=>$svcpart}); %my $svc = $part_svc->getfield('svc'); @@ -29,8 +24,6 @@ %my $link_field = $link_field{$svcdb}; %my $link_field2 = $link_field2{$svcdb}; % -% - <% include("/elements/header.html","Link to existing $svc") %> <FORM ACTION="<% popurl(1) %>process/link.cgi" METHOD=POST> |