sub reverse_modifier {
        my (@undo) = @{$_[0]};
        my @rdis;
        my @rdel;
        my @newundo;
        for my $cmd (@undo) {
                if ( $cmd =~ /lock/ ) { push(@newundo, $cmd) }
                if ( $cmd =~ /disconnect/ ) { push (@rdis, $cmd) }
                if ( $cmd =~ /delete/ ) { push (@rdel, $cmd) }
                if ( $cmd =~ /unlock/ ) { push(@newundo,(@rdis,"sleep 22",@rdel,$cmd)) }
        }

        return @newundo;
}

my %modifier = ( reverse_modifier => \&reverse_modifier );


# Setup the log object
my $log = LogSimple->new( logdir => $logdir, logfile => $logfile, loglevel => $loglevel, verbosity => $verbosity, exit => \&Hitachi::Raidcom::exit_routine(\%modifier) );