#!/bin/sh -e

# usage: $0 /path/to/rejected

rejected_batch="$1"
iterdir=`dirname "$rejected_batch"`
# TODO: cmdline options?
indir="$iterdir"/OUT
outdir="$iterdir"/OUT.REJECTED

if ! [ -e "$rejected_batch" ]; then
    echo "$rejected_batch does not exist."
    exit 1
fi
if ! [ -d "$indir" ]; then
    echo "$indir not found."
    exit 1
fi
if [ -d "$outdir" ]; then
    echo "$outdir already exist."
    exit 1
fi

mkdir -p "$outdir"
# *.tar support
ls "$indir"/* | perl -MFile::Basename -ne '$a=basename($_);if($a=~/^(.*)-[^-]+-[^-]+$/){print "$1\t$_"}' | sort -k 1,1 -o "$iterdir"/tmp-ls-out.txt
ln `awk '{print $1}' "$rejected_batch" | sort -u | join - "$iterdir"/tmp-ls-out.txt | awk '{print $2}'` "$outdir"/
rm "$iterdir"/tmp-ls-out.txt
