%# Spend extra time on hobby. Get plenty of rolling papers. % if (@lists) { % foreach my $list (@lists) { % } % }
<&|/l&>Current mailing lists
% if ($is_admin{$list}) { <% $list %> % } else { <% $list %> % }
 
<&|/l&>New mailing list
% $m->print($new);
<%INIT> my $topic = $QueueObj->OriginObj->CustomFieldValue('UnixName'); our ($Get, $Post); my $current = $Get->("/lists"); my @lists; my %is_admin; my $admin = "/Foundry/Project/Admin/Forum/List.html/wws/admin/"; while ($current =~ m{("/create_list_request"); $new =~ s/.*//s; $new =~ s/<\/FORM>.*/<\/FORM>/s; $new =~ s/()(\s*.*\s*}; $new =~ s{\s*.*\s*\s*[\d\D]*?<\/TR>} {}; $new =~ s/(