#!perl

HELP "restart" => "Attempt to restart the RevBank shell";

sub command :Tab(restart) ($self, $cart, $command, @) {
    return NEXT if $command ne 'restart';

    no warnings;
    call_hooks("restart_exec");
    exec $0;
    call_hooks("restart_survived");

    return ABORT, "exec() failed. You'll have to restart revbank yourself :P";
}

sub hook_input($class, $cart, $input, $split_input, @) {
    return if defined $input;

    no warnings;
    call_hooks("restart_restart");
    exec $0;
    call_hooks("restart_survived");
}