use File::Glob qw(:globally :nocase);

for ($input{"searchtype"} {
	if (/bid/ | /quot/ | /ezd/) {
		@dir = bsd_glob("$dir*");
	}
	else {
	@dir = $dir
	}

##</code><code>##


#!/usr/bin/perl
##!/opt/gnu/bin/perl
#/usr/local/bin/apache/cgi-bin/cadsearch.cgi
#push(@INC,"/cgi-bin");

require "cgi-lib.pl";
use File::Find;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use Socket;
&ReadParse(*input);


$truck=$input{"truckno"}; #ex: 12345
$searchtype=$input{"searchtype"}; #ex: bid
$dir=`/filesystem/scripts/find_dir_all.pl  $truck $searchtype`;
@dir=("$dir/$truck");
$file=$input{"filename"};
#set variable for new dwg convert web app
$dwgpdf="http://webserver/dwgbpdf/";
#variable for hyperlink
$hlink

# finddepth function to locate directory
for ($i=0;$i<=$#dir;$i++){
	finddepth(\&dwgWanted,$dir[$i]);
}

# wanted sub to locate files
sub dwgWanted{
	$hlink="$File::Find::name" if (/^$file.*$ext2.*/ );
	print $hlink
} 

##</code><code>##

#Set the default values to be changed by proe/excel/etc
$ext=dwg;
$ext2=DWG;
$truck=$input{"truckno"};
$searchtype=$input{"searchtype"};
$dir=`/depot/systems/scripts/find_dir_all.pl  $truck $searchtype`;

# use globbing to locate directory based on searchtype and truck number
for ($input{"searchtype"} {
	if (/bid/ | /quot/ | /ezd/) {
		@dir = bsd_glob("$dir*");
	}
	else {
	@dir = $dir
	}
}



##</code><code>##

#!/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";