0: use File::Find;
1: 
2: print "Please Enter Server name:";
3: chomp($server=<STDIN>);
4: $server2="//server2/e$/ #put in where you want the logs to go
5: $dir1="//$server/e\$/users";
6: if (!(-e "$dir1")){#if directory doesn't exist try d$
7: 	$dir1="//$server/d\$/users";
8: 	if (!(-e "$dir1")){
9: 		die "Directory not does not exist on server\n...Exiting Script.\n";
10: 	}
11: }
12: $out="//$server2/public/serverlogs/$server\.tmp";
13: $out2="//$server2/public/serverlogs/media/$server\.txt";
14: open (OUTFILE, ">$out") or die "Cannot open $out for write :$!";
15: 	
16: print "finding media files on $dir1\.\.\.\n";
17: 
18: find(\&wanted, $dir1);
19: sub wanted {
20: 	if (!("$File::Find::dir"=~/}/)&&(/mp3$|avi$|exe$|mpg$|wav$|zip$/i)){
21: 		print OUTFILE "$File::Find::dir/$_\n";
22: 		print "$File::Find::dir\n";
23:     	}
24: }
25: close OUTFILE;
26: open (OUTFILE, "$out") or die "Can't open";
27: open (OUTFILE2, ">$out2") or die "Can't open";
28: @input=<OUTFILE>;
29: foreach (@input){
30: 	s/\//\\/g;
31: 	print OUTFILE2 "$_";
32: 	
33: }
34: close OUTFILE;
35: close OUTFILE2;
36: unlink $out;