%
%
%if ( $cgi->param('search_svc') =~ /\.[a-z]{2,8}$/i ) {
%
%  # looks (enough) like a domain
%
%  
<% $cgi->redirect('svc_domain.cgi?domain='. uri_escape( $cgi->param('search_svc') ) ) %>
%
%
%} elsif ( $cgi->param('search_svc') =~ /\w/ ) {
%
%  #looks (enough) like a username
%
%  
<% $cgi->redirect('svc_acct.cgi?username_type=Exact;username='. uri_escape( $cgi->param('search_svc') ) ) %>
%
%
%} else {
%
%
<% include('/elements/header.html', 'Unrecognized service string') %>
  <% include('/elements/footer.html') %>
%
%
%} 
%
%