Listing 1:

#!/usr/local/bin/perl  -T
MAIN: {
     
    log_it (">>Beginning $0 on ".(localtime) .
           "; directory is $PATCH_DIR\n"  );
     
    # initialize the "patch dictionary"
    my $patch_dict = &initialize;
     
    # now get the most recent recommended patch list from SunSolve 
    # foreach OS you have
    foreach  ( keys %{$patch_dict->{REC}} ) {
        & get_rec_patches ($patch_dict, $_);
    }
     
    # first downloaded any needed patches over the net;  then install them 
    & download_patches ($patch_dict);
    & install_patches ($patch_dict);
     
    # clean up the patch directory $PATCH_DIR 
    & clean_up ($patch_dict);
     
    log_it (">>Finished $0 on ".(localtime) .  "\n\n"  );
}
     

