blob: 706471ba07220967a76aeb648ae1032dade21c09 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
% 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') %>
% }
|
