%# Spend extra time on hobby. Get plenty of rolling papers. % if (@lists) { <&|/l&>Current mailing lists:
% } <&|/l&>New mailing list: % $m->print($new); <%INIT> my $topic = $QueueObj->OriginObj->CustomFieldValue('UnixName'); our ($Get, $Post); my $current = $Get->("/lists/$topic"); my @lists; 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/(