<%INIT> my $req_uri; if (UNIVERSAL::can($r, 'uri') and $r->uri =~ m{.*/m/(.*)}) { $req_uri = '/m/'.$1; } my $default_path = RT->Config->Get('WebPath') ."/m/"; my $form_action = defined $goto ? $goto : defined $req_uri ? $req_uri : $default_path ; # sanitize $form_action my $uri = URI->new($form_action); # You get undef scheme with a relative uri like "/Search/Build.html" unless (!defined($uri->scheme) || $uri->scheme eq 'http' || $uri->scheme eq 'https') { $form_action = $default_path; } # Make sure we're logging in to the same domain # You can get an undef authority with a relative uri like "index.html" my $uri_base_url = URI->new(RT->Config->Get('WebURL')."m/"); unless (!defined($uri->authority) || $uri->authority eq $uri_base_url->authority) { $form_action = $default_path; } <&| /m/_elements/wrapper, show_home_button => 0 &>

<&|/l, RT->Config->Get('rtname') &>RT for [_1]

% if ($Error) { <&| "/Widgets/TitleBox", title => loc('Error'), hideable => 0, class => 'error' &> <% $Error %> % }
<&| /Widgets/TitleBox, title => loc('Login'), hideable => 0 &> % unless (RT->Config->Get('WebExternalAuth') and !RT->Config->Get('WebFallbackToInternalAuth')) {
<&|/l&>Username:
<&|/l&>Password:
<& /Elements/Submit, Label => loc('Login')&> % foreach my $key (keys %ARGS) { % if (($key ne 'user') and ($key ne 'pass')) { % if (ref($ARGS{$key}) =~ /ARRAY/) { % foreach my $val (@{$ARGS{$key}}) { % } % } % else { % } % } % }
% }
<& _elements/full_site_link &> <%ARGS> $user => "" $pass => undef $goto => undef $Error => undef