#!/usr/local/bin/perl -w
#
# Purpose: Generate available media report each day for use by other scripts 
#
# Author(s): Gina Dietrich
#
# Date: 04/13/99
#
#

# Set variables
$nbgoodies="/usr/openv/netbackup/bin/goodies";
open(AVAIL_MEDIA, ">/usr/openv/netbackup/reports/avail_media");

# Generate available media report
print AVAIL_MEDIA `$nbgoodies/available_media`;

close (AVAIL_MEDIA);

exit;