%# Parts that positively cannot be assembled in improper order will be.

<% $list_name %>

% if ($out =~ /empty_archives/) { <&|/l&>The archive is currently empty. % } % if (!$RT::Guest) {
<&|/l&>Post an article % } <% $action |n %> % if ($out !~ /empty_archives/) {

% $m->print($out);

% } <%INIT> our ($Get, $Post, $ua, $wws); use Encode; my $args = { map { $_ => Encode::encode_utf8($ARGS{$_}) } grep /^[_a-z]/, keys %ARGS }; $args->{quiet} = 1; $RT::BaseURL = "/Foundry/Project/Forum/List.html"; my $out; my $action; my $list_name = $1 if $r->path_info =~ m{/wws/[^/]+/([^/]+)}; $session{LastListName} = $list_name ||= $session{LastListName}; if ($r->path_info =~ m{^/wws(.*)}) { require URI; my $url = URI->new('http:'); $url->query_form(%$args, not_a_sniffer => 1); $out = $Get->("$1?" . $url->query); if ($m->notes('RV') =~ m{^\s*()\s*$}m) { $action = " | $1"; $action =~ s{\bHREF="(/wws[^>]*>)}{HREF="$RT::BaseURL$1}gi; $action =~ s/onClick=".*?"//; } } else { $out = $Post->( "", scalar $m->request_args ); } my $PostURL = $1 if ($out =~ m{HREF="([^"]+/compose_mail/[^"]+)"}); unless ($out =~ s/.*//s) { $m->comp('/Foundry/Project/Forum/index.html', Queue => 1, %ARGS); }