Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 218
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 219
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 220
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/regenerate_tokens Copyright 2020 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
package scripts::regenerate_tokens;
use strict;
use warnings;
use Cpanel::Imports;
use Cpanel::Hyperscaler::Regenerate ();
exit run(@ARGV) unless caller;
sub run {
my (@args) = @_;
my ( $exit_code, $force ) = _handle_args( \@args );
return $exit_code if defined $exit_code;
if ( !Cpanel::Hyperscaler::Regenerate::is_cloud() ) {
logger()->info('This system does not appear to be a cloud instance.');
return 0;
}
return ( Cpanel::Hyperscaler::Regenerate::regenerate_tokens($force) ? 0 : 1 );
}
sub _handle_args {
my ($args) = @_;
if ( @$args == 1 && $args->[0] eq '--help' ) {
print _usage();
return 0;
}
elsif ( @$args == 1 && $args->[0] eq '--force' ) {
return ( undef, 1 );
}
elsif ( @$args > 0 ) {
print STDERR "ERROR unknown option: $args->[0]\n\n";
print STDERR _usage();
return 1;
}
return undef;
}
sub _usage {
return <