#!/bin/sh
splt_name="bb.pl"

read_vals () {
echo -n "site: ";
read site;
echo -n "bb_dir: ";
read dir;
echo -n "viewtopic_id: ";
read id;
}

chk_null () {
if [ -z "$dir" ] || [ -z "$id" ]; then
echo "Empty values try again";
main;
fi
} 

loop () {
while [ 1 ]; do
echo -n "$ ";
read ans
if [ "$ans" == "exit" ]; then
echo "Quiting";
exit 0;
fi 
/usr/bin/perl $splt_name "$site" "$dir" "$id" "$ans"; 
done
}

main () {
read_vals;
chk_null;
loop;
}
main;