# Add last access time
$CFG::CFG{'servers'}{'SRV1'}{'last_access'} = time();

# Change server availablility
$CFG::CFG{'servers'}{'SRV1'}{'status'} = 'online';

# Delete temporary data
delete($CFG::CFG{'temp'});

# Open log file
my $LOG;
if (! open($LOG, "> $CFG::CFG{'log'}{'file'}")) {
    print(STDERR "ERROR: Failure opening log file: $!\n");
    exit(1);
}