diff options
| author | ivan <ivan> | 2001-04-23 07:12:44 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-04-23 07:12:44 +0000 |
| commit | 0b9841bf3fea52f423242313afc2cc058d6e6a46 (patch) | |
| tree | 2915155134c41ea1042215aae7d659f79613ca1b /htdocs/edit | |
| parent | 1c14b1faec0f3f07a6d4190cf535b3ddb45075ce (diff) | |
better error message (if kludgy) for no referral
remove outdated NSI foo from domain ordering. also, fuck NSI.
Diffstat (limited to 'htdocs/edit')
| -rwxr-xr-x | htdocs/edit/process/svc_domain.cgi | 14 | ||||
| -rwxr-xr-x | htdocs/edit/svc_domain.cgi | 12 |
2 files changed, 13 insertions, 13 deletions
diff --git a/htdocs/edit/process/svc_domain.cgi b/htdocs/edit/process/svc_domain.cgi index e12aa1b55..ad1892dd1 100755 --- a/htdocs/edit/process/svc_domain.cgi +++ b/htdocs/edit/process/svc_domain.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: svc_domain.cgi,v 1.6 1999-02-28 00:03:47 ivan Exp $ +# $Id: svc_domain.cgi,v 1.7 2001-04-23 07:12:44 ivan Exp $ # # Usage: post form to: # http://server.name/path/svc_domain.cgi @@ -18,7 +18,11 @@ # bmccane@maxbaud.net 98-apr-3 # # $Log: svc_domain.cgi,v $ -# Revision 1.6 1999-02-28 00:03:47 ivan +# Revision 1.7 2001-04-23 07:12:44 ivan +# better error message (if kludgy) for no referral +# remove outdated NSI foo from domain ordering. also, fuck NSI. +# +# Revision 1.6 1999/02/28 00:03:47 ivan # removed misleading comments # # Revision 1.5 1999/02/07 09:59:33 ivan @@ -60,11 +64,7 @@ $new = new FS::svc_domain ( { } ( fields('svc_domain'), qw( pkgnum svcpart action purpose ) ) } ); -if ($cgi->param('legal') ne "Yes") { - $error = "Customer did not agree to be bound by NSI's ". - qq!<A HREF="http://rs.internic.net/help/agreement.txt">!. - "Domain Name Resgistration Agreement</A>"; -} elsif ($cgi->param('svcnum')) { +if ($cgi->param('svcnum')) { $error="Can't modify a domain!"; } else { $error=$new->insert; diff --git a/htdocs/edit/svc_domain.cgi b/htdocs/edit/svc_domain.cgi index 6b5eff560..49be88073 100755 --- a/htdocs/edit/svc_domain.cgi +++ b/htdocs/edit/svc_domain.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: svc_domain.cgi,v 1.9 1999-02-28 00:03:39 ivan Exp $ +# $Id: svc_domain.cgi,v 1.10 2001-04-23 07:12:44 ivan Exp $ # # Usage: svc_domain.cgi pkgnum{pkgnum}-svcpart{svcpart} # http://server.name/path/svc_domain.cgi?pkgnum{pkgnum}-svcpart{svcpart} @@ -15,7 +15,11 @@ # no GOV in instructions ivan@sisd.com 98-jul-17 # # $Log: svc_domain.cgi,v $ -# Revision 1.9 1999-02-28 00:03:39 ivan +# Revision 1.10 2001-04-23 07:12:44 ivan +# better error message (if kludgy) for no referral +# remove outdated NSI foo from domain ordering. also, fuck NSI. +# +# Revision 1.9 1999/02/28 00:03:39 ivan # removed misleading comments # # Revision 1.8 1999/02/07 09:59:25 ivan @@ -138,10 +142,6 @@ print ' CHECKED' if $kludge_action eq 'M'; print qq!>Transfer!; print <<END; -<P>Customer agrees to be bound by NSI's -<A HREF="http://rs.internic.net/help/agreement.txt"> -Domain Name Registration Agreement</A> -<SELECT NAME="legal" SIZE=1><OPTION SELECTED>No<OPTION>Yes</SELECT> <P>Domain <INPUT TYPE="text" NAME="domain" VALUE="$domain" SIZE=28 MAXLENGTH=26> <BR>Purpose/Description: <INPUT TYPE="text" NAME="purpose" VALUE="$purpose" SIZE=64> <P><CENTER><INPUT TYPE="submit" VALUE="Submit"></CENTER> |