#finds .mp3.avi.exe.mpg.mpeg.mpe.wav.zip.mov.rmj.wma files on a server
#called from the run multi scripts
#added swf 5/17/01
#added pst 7/27/01
# ADDED ANOTHER NESTED IF FOR //SERVER/USERS
# 8.09.01 added .ogg (ogg-vorbis files)

use Getopt::Std;
use File::Find;
getopt('s');

# *********************************
# Process arguments ([h]elp,[s]erver)
# *********************************

if ($opt_s){
	$server=$opt_s;	
	}else{
	print "Please Enter Server name:";
	chomp($server=<STDIN>);
}




$dir1="//$server/e\$/users";
if (!(-e "$dir1")){#if directory doesn't exist try d$
	$dir1="//$server/d\$/users";
	if (!(-e "$dir1")){
		$dir1="//$server/users";
		if (!(-e "$dir1")){
			die "Directory not does not exist on $server\n...Exiting Script.\n";
		}
	}
}
$out="//workstation/share/serverlogs/$server\.tmp";
$out2="//workstation/share/serverlogs/media/$server\.txt";
open (OUTFILE, ">$out") or die "Cannot open $out for write :$!";
	
print "finding media files on $dir1\.\.\.\n";
find ({wanted => \&wanted, no_chdir=>1}, $dir1);
#find(\&wanted, $dir1);
sub wanted {
	if (!("$File::Find::dir"=~/}/)&&(/\.asf$|\.mp.{0,2}$|\.avi$|\.exe$|\.wav$|\.zip$|\.mov$|\.rm.?$|\.wm.?$|\.qt$|\.mid.?$|\.ra.?$|\.swf$|\.pst$|\.ogg$|\.gho$/i)){
		print OUTFILE "$_\n";
		print "$_\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;