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