httemplate/search/svc_Smart.html

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