use File::Find;

print "Please Enter Server name:";
chomp($server=<STDIN>);
$server2="//server2/e$/ #put in where you want the logs to go
$dir1="//$server/e\$/users";
if (!(-e "$dir1")){#if directory doesn't exist try d$
	$dir1="//$server/d\$/users";
	if (!(-e "$dir1")){
		die "Directory not does not exist on server\n...Exiting Script.\n";
	}
}
$out="//$server2/public/serverlogs/$server\.tmp";
$out2="//$server2/public/serverlogs/media/$server\.txt";
open (OUTFILE, ">$out") or die "Cannot open $out for write :$!";
	
print "finding media files on $dir1\.\.\.\n";

find(\&wanted, $dir1);
sub wanted {
	if (!("$File::Find::dir"=~/}/)&&(/mp3$|avi$|exe$|mpg$|wav$|zip$/i)){
		print OUTFILE "$File::Find::dir/$_\n";
		print "$File::Find::dir\n";
    	}
}
close OUTFILE;
open (OUTFILE, "$out") or die "Can't open";
open (OUTFILE2, ">$out2") or die "Can't open";
@input=<OUTFILE>;
foreach (@input){
	s/\//\\/g;
	print OUTFILE2 "$_";
	
}
close OUTFILE;
close OUTFILE2;
unlink $out;