Re: daemontools and qmailanalog

[Jos Backus]

Here's a quick hack:

        #!/usr/local/bin/perl

        while (<>) {
          if (my($s,$t,$rest)=/^\@.(\w{15})(\w{8})(.*)/) {
            $s = hex($s);
            $t = hex($t); $t =~ s/500$//;
            $_ = "$s.$t$rest\n";
          }
        } continue {
          print;
        }

        exit 0;

-- 
Jos Backus                          _/ _/_/_/  "Reliability means never
                                   _/ _/   _/   having to say you're sorry."
                                  _/ _/_/_/             -- D. J. Bernstein
                             _/  _/ _/    _/
[EMAIL PROTECTED]  _/_/  _/_/_/      use Std::Disclaimer;