How about a subroutine to grab most recently modified--as such:

sub new_files {
my $nbu_dir = shift;
my $handle = do { local *X };
opendir $handle, $nbu_dir || die ("$nbu_dir:$!");
my @file_names = map "$nbu_dir/$_", readdir
$handle;
@file_names = map { $_->[0] }
sort { $b->[1] <=> $a->[1] }
map { [$_, (stat) [9]] }
grep { /\d$/ }
@file_names; splice @file_names, 10 if @file_names > 10;
@file_names;
}
my @recent = new_files ("/usr/openv/netbackup/db/jobs");
print "$_\n" for newest

-----Original Message-----
From: JohnMorse [mailto:john.morse AT lsil DOT com]
Sent: Wednesday, March 22, 2000 8:39 AM
To: veritas-bu
Subject: [Veritas-bu] Anybody have any good audit type scripts?


What I'm looking for specifically, are scripts that can process/email
tailored results from /usr/openv/netbackup/db/jobs...i.e. Activity/Job
Monitor.

Any help is much appreciated.  Thanks in advance.

--
PC/UNIX Administrator
LSI Logic - Ft. Collins, CO
john.morse AT lsil DOT com


_______________________________________________
Veritas-bu maillist  -  Veritas-bu AT mailman.eng.auburn DOT edu
http://mailman.eng.auburn.edu/mailman/listinfo/veritas-bu