projects - russm

random notes

sort postfix queue actions in syslog to a more human-friendly presentation (this sucks)
perl -ane 'next unless $F[4] =~ m#^postfix/#; next unless $F[5] =~ m#^[A-F0-9]+:$#; $message{$F[5]} .= $_; push @messages, $F[5] unless $seen{$F[5]}++; END {foreach $message (@messages) {print $message{$message}, "========================================================================\n"}}' mail.log