#!/opt/gnu/bin/perl
##!/usr/bin/perl
package FindDrw;
use Cwd;

#This program finds the correct subdirectory for a truck number

$truck=$ARGV[0];
$searchtype=$ARGV[1];

#search for sales orders
if ($searchtype='so'){
	if ($truck >= 900000 ) {
		$dir = '/directory_tree/so/900000';
	}
	elseif (300000 <= $truck & $truck < 400000) {
		$dir = '/directory_tree/so/300000/$truck';
	}
	elseif ...
}
#search for bids
elseif ($searchtype='bid'){
	if ($truck < 01000){
		$dir = '/directory_tree/bids/bid.00900/bid.$truck';
	}
	elseif (01000 <= $truck & $truck < 02000) {
		$dir = '/directory_tree/bids/bid.01000/bid.$truck';
	}
	elseif ...
}
#search for quotes
elseif ($searchtype='qot'){
	if (3000 <= $truck & $truck < 4000) {
		$dir = '/directory_tree/quotes/quote.3000/Quote.$truck';
	}
	elseif (4000 <= $truck & $truck < 5000) {
		$dir = '/directory_tree/quotes/quote.4000/Quote.$truck';
	}
	elseif ...
}	

print "$dir";