#!/bin/sh
LOOKUP=../newpgp/lookup5

cp keys.out trim.new
#mark X seconds ago, sort, and cut off stale keys
echo 0000000000000000 0000000000000000 STALESTALESTALESTALESTAL \
    $[`date +%s` - 1200 ] >> trim.new
sort +3 -n -r <trim.new | \
    awk '{if($3=="STALESTALESTALESTALESTAL")exit 0;print $0}' >trim.pre
rm trim.new

disp=0;
>pubring.trm
>pubring.ckt
for i in `cat pubring.ckp`; do
    dd if=pubring.pkr of=pubring.tmp bs=1 skip=$disp count=$i 2>/dev/null
    $LOOKUP -r pubring.tmp >trimline
    if (grep `cut -c 18-33 <trimline` trim.pre >/dev/null) ; then
        wc pubring.tmp | cut -c 19-24 >>pubring.ckt
        cat pubring.tmp >>pubring.trm
        rm pubring.tmp
    fi
    rm trimline
    disp=$[$disp+$i]
done

rm trim.pre


cp keys.out trim.new
#mark X seconds ago, sort, and cut off stale keys
echo 0000000000000000 0000000000000000 STALESTALESTALESTALESTAL \
    $[`date +%s` - 3600 ] >> trim.new
sort +3 -n -r <trim.new | \
    awk '{if($3=="STALESTALESTALESTALESTAL")exit 0;print $0}' >trim.pre
rm trim.new


disp=0;
>secring.trm
>secring.ckt
for i in `cat secring.ckp`; do
    dd if=secring.skr of=secring.tmp bs=1 skip=$disp count=$i 2>/dev/null
    $LOOKUP -r secring.tmp >trimline
    if (grep `cut -c 18-33 <trimline` trim.pre >/dev/null) ; then
        wc secring.tmp | cut -c 19-24 >secring.ckt
        cat secring.tmp >>secring.trm
        rm secring.tmp
    fi
    rm trimline
    disp=$[$disp+$i]
done

rm trim.pre


