
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/hook                            Copyright 2022 cPanel, L.L.C.
#                                                           All rights reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

# This script is provided as an abstraction/sanity layer around Cpanel::Hooks.
# This is used to ensure that critical subsystems cannot break if Cpanel::Hooks does.

use Cpanel::Hooks ();
use Cpanel::Usage ();

my ( $category, $event, $stage );

Cpanel::Usage::wrap_options( \@ARGV, \&usage, { 'category' => \$category, 'event' => \$event, 'stage' => \$stage } );

unless ( $category && $event && $stage ) {
    usage(1);
}

my ( $result, $msgs ) = Cpanel::Hooks::hook(
    {
        'category' => $category,
        'event'    => $event,
        'stage'    => $stage,
    },
    {},
);
my $hooks_msg = int @{$msgs} ? join "\n", @{$msgs} : '';
print $hooks_msg;
exit( $result ? 0 : 2 );

sub usage {
    my $exit_code = shift || 0;
    print <<EO_USAGE;
hook --category=<category> --event=<event> --stage=<stage>

  Executes any hooks that would be called normally in the specified context.

    Options:
      --category  Category of hook to execute (Example: System)
      --event     Event that the hook is for (Example: upcp)
      --stage     Stage of event for the hook (Example: pre)

EO_USAGE
    exit $exit_code;
}