Re: Daemontools?

[Jos Backus]

On Thu, Sep 30, 1999 at 11:01:10AM -0400, Dave Sill wrote:
> One downside to 0.61 is that its tai65n timestamps are incompatible
> with qmailanalog.

Just for info: I use the following to make 0.61 work with qmailanalog-0.70:

        (
        test -f pending && cat pending
        (
        cd /service/qmail/log/main
        for f in @* current
        do
          case $f in
            *.gz) zcat $f;;
            *) cat $f;;
          esac
        done
        ) | tai64n2time \
        ) | between $YESTERDAY $TODAY | matchup > qmailmatchup.out 5> pending

between is

        #!/usr/local/bin/perl

        (my $program=$0)=~s%.*/%%;

        die "usage: $program from to\n" unless @ARGV >= 2;

        my $from = shift;
        my $to = shift;

        while (<>) {
          if (/^(\d+)/) {
            print if $from <= $1 && $1 <= $to;
            next;
          }
          print;
        }

        exit 0;

and tai64n2time is

        #!/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;