Select Code to Download

$query->{action} eq "post" ? ($allowed{msgid} = '^(\d+|new)$') && ($al
+lowed{data}  = '^(([^|+]*[^|]+.*\|){4}[^|+]*[^|]+.*)$'):1;

$query->{action} eq "post" ? %allowed = (msgid => '(^\d+|new)$' , data
+  => '^(([^|+]*[^|]+.*\|){4}[^|+]*[^|]+.*)$)', action => 'post|edit|d
+elete|long|short' ):1;