+++ /dev/null
-% if ( $cgi->param('search_svc') =~ /\.[a-z]{2,8}$/i
-% && $cgi->param('search_svc') !~ /\@/
-% )
-% {
-
-% # looks (enough) like a domain
- <% $cgi->redirect('svc_domain.cgi?domain='. uri_escape( $cgi->param('search_svc') ) ) %>
-
-% } elsif ( $cgi->param('search_svc') =~ /\w/ ) {
-%
-% if ( $cgi->param('search_svc') =~ /^(.+)\@(.+)$/ ) {
-
-% #looks (enough) like a username@domain
- <% $cgi->redirect('svc_acct.cgi?username_type=Exact;username='. uri_escape($1). ';domain='. uri_escape($2) ) %>
-
-% } else {
-
-% #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') %>
-
-% }