% if ($out =~ /empty_archives/) { <&|/l&>The archive is currently empty.
<&|/l&>Post an article % } else { % $m->print($out); % } <%INIT> our ($Get, $Post, $ua, $wws); my $args = { map { $_ => $ARGS{$_} } grep /^[_a-z]/, keys %ARGS }; $args->{quiet} = 1; $RT::BaseURL = "/Foundry/Project/Forum/List.html"; my $out; if ($r->path_info =~ m{^/wws(.*)}) { require URI; my $url = URI->new('http:'); $url->query_form(%$args); $out = $Get->("$1?" . $url->query); } 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); }