#!/bin/sh
#
# sortlists - Shell script which sorts the active files appropriately,
#             and then runs sortdups.pl.
#
#                      Written by Mowgli C. Assor (mowgli@infinet.com)
#
# 96/03/14 - Original version written. (MCA)

if [ -f active.Ts ]
then
  echo "Removing Files..."
  rm active.Ts active.Ys active.full
fi
echo "Sorting/Zeroing First Active File..."
sort -k 1,1 active.T | awk '{ print $1 " 0000000000 0000000001 " $4 }' > active.Ts
echo "Sorting Second Active File..."
sort -k 1,1 active.Y > active.Ys
echo "Final Active Sort..."
sort -k 1,1 active.Ys active.Ts > active.full
rm active.Ts active.Ys
echo "Running Perl Script..."
./sortdups.pl
rm active.full
echo "Final, Merged Active File Is active.sort."
