-use strict;
-use vars qw( $cgi $query $svcnum $svc_www $cust_svc $pkgnum
- $cust_pkg $custnum $p $domain_record );
- #$part_svc $p $svc_acct $email
-use CGI;
-use FS::UID qw(cgisuidsetup);
-use FS::CGI qw(header menubar popurl menubar);
-use FS::Record qw(qsearchs);
-use FS::svc_www;
-use FS::domain_record;
-use FS::cust_svc;
-#use FS::cust_pkg;
-#use FS::part_svc;
-
-$cgi = new CGI;
-cgisuidsetup($cgi);
-
-($query) = $cgi->keywords;