diff options
Diffstat (limited to 'httemplate/search/svc_www.cgi')
-rwxr-xr-x | httemplate/search/svc_www.cgi | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/httemplate/search/svc_www.cgi b/httemplate/search/svc_www.cgi deleted file mode 100755 index 1f05c2377..000000000 --- a/httemplate/search/svc_www.cgi +++ /dev/null @@ -1,42 +0,0 @@ -<% - -#my $conf = new FS::Conf; - -my($query)=$cgi->keywords; -$query ||= ''; #to avoid use of unitialized value errors -my(@svc_www, $orderby); -if ( $query eq 'svcnum' ) { - $orderby = 'ORDER BY svcnum'; -} else { - eidiot('unimplemented'); -} - -my $count_query = 'SELECT COUNT(*) FROM svc_www'; -my $sql_query = { - 'table' => 'svc_www', - 'hashref' => {}, - 'extra_sql' => $orderby, -}; - -my $link = [ "${p}view/svc_www.cgi?", 'svcnum', ]; -#my $dlink = [ "${p}view/svc_www.cgi?", 'svcnum', ]; -my $ulink = [ "${p}view/svc_acct.cgi?", 'usersvc', ]; - - -%> -<%= include( 'elements/search.html', - 'title' => 'Virtual Host Search Results', - 'name' => 'virtual hosts', - 'query' => $sql_query, - 'count_query' => $count_query, - 'header' => [ '#', 'Zone', 'User', ], - 'fields' => [ 'svcnum', - sub { $_[0]->domain_record->zone }, - sub { $_[0]->svc_acct->email }, - ], - 'links' => [ $link, - '', - $ulink, - ], - ) -%> |