blob: 4d8f3e20ebf4f742b5d9c9f2b0a2a962198d052f (
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
29
|
%
%
%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') %>
%
%
%}
%
%
|
