Select Code to Download

#finds .mp3.avi.exe.mpg.mpeg.mpe.wav.zip.mov.rmj.wma files on a server
#called from the run multi scripts
...
close OUTFILE;
close OUTFILE2;
unlink $out;

# Created on 9/6/00
@all=('SERVER1','SERVER2);
...
    #$ProcessObj->Resume();
    #$ProcessObj->Wait(INFINITE);
}

# sifts all the server logs based on media type
# added func to print -ok at end of empty files, Federal added 5/31/01
...
    }
    print "Finished $type...\n";
}

#deletes MP3 files noted in the sifted MP3 log
# usage: deletemp3.pl mp3[enter]
...
}
rename $infile, $outfile;