1 % if ( $cgi->param('search_svc') =~ /\.[a-z]{2,8}$/i
2 % && $cgi->param('search_svc') !~ /\@/
6 % # looks (enough) like a domain
7 <% $cgi->redirect('svc_domain.cgi?domain='. uri_escape( $cgi->param('search_svc') ) ) %>
9 % } elsif ( $cgi->param('search_svc') =~ /\w/ ) {
11 % if ( $cgi->param('search_svc') =~ /^(.+)\@(.+)$/ ) {
13 % #looks (enough) like a username@domain
14 <% $cgi->redirect('svc_acct.cgi?username_type=Exact;username='. uri_escape($1). ';domain='. uri_escape($2) ) %>
18 % #looks (enough) like a username
19 <% $cgi->redirect('svc_acct.cgi?username_type=Exact;username='. uri_escape( $cgi->param('search_svc') ) ) %>
25 <% include('/elements/header.html', 'Unrecognized service string') %>
26 <% include('/elements/footer.html') %>