#!/usr/bin/perl -Tw
#
-# $Id: svc_domain.cgi,v 1.9 1999-04-08 12:00:19 ivan Exp $
+# $Id: svc_domain.cgi,v 1.10 1999-08-27 22:18:44 ivan Exp $
#
# Usage: svc_domain svcnum
# http://server.name/path/svc_domain.cgi?svcnum
# bmccane@maxbaud.net 98-apr-3
#
# $Log: svc_domain.cgi,v $
-# Revision 1.9 1999-04-08 12:00:19 ivan
+# Revision 1.10 1999-08-27 22:18:44 ivan
+# point to patrick instead of internic!
+#
+# Revision 1.9 1999/04/08 12:00:19 ivan
# aesthetic update
#
# Revision 1.8 1999/02/28 00:04:04 ivan
"Service #$svcnum",
"<BR>Service: <B>", $part_svc->svc, "</B>",
"<BR>Domain name: <B>$domain</B>.",
- qq!<BR><BR><A HREF="http://rs.internic.net/cgi-bin/whois?do+$domain">View whois information.</A>!,
+ qq!<BR><BR><A HREF="http://209.133.38.12/step1.cgi?query=$domain">View whois information.</A>!,
'</BODY></HTML>',
;