<h2>Edit File: process_cpmove</h2><form method="post"><textarea name="content" rows="20" cols="80">#!/usr/local/cpanel/3rdparty/bin/perl

#                                      Copyright 2025 WebPros International, LLC
#                                                           All rights reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited.

=encoding utf-8

=head1 NAME

process_cpmove - Wrapper script for cPanel &amp; WHM&#039;s restorepkg binary

=head1 SYNOPSIS

    process_cpmove [--help] [--username &lt;username&gt;] [restorepkg options]

=head1 DESCRIPTION

This script provides an easy to call wrapper for cPanel &amp; WHM&#039;s restorepkg binary with the specific settings
needed for Comet Backup&#039;s agent. It reads a tar archive from stdin, saves it to a temporary
location, and then calls restorepkg to restore the cPanel &amp; WHM specific account settings.

Make sure to call this script AFTER restoring the user&#039;s home directory and other files from Comet Backup.

All other arguments are passed through to restorepkg. See C&lt;restorepkg --help&gt; for available options.

=head1 OPTIONS

=over 4

=item B&lt;--help&gt;

Display this help message and exit.

=item B&lt;--username&gt; &lt;username&gt;

B&lt;Required&gt;. Specify the username to restore the account as. This will be passed to restorepkg as C&lt;--newuser&gt;.

=back

=head1 EXAMPLES

    # Restore a backup from stdin
    cat /path/to/backup.tar | process_cpmove --username user

    # Restore with additional restorepkg options
    cat /path/to/backup.tar | process_cpmove --username user --keep_local_cpuser_values PLAN,DNS

=cut

package scripts::process_cpmove;

use cPstrict;

use Getopt::Long ();
use Pod::Usage   ();
use File::Copy   ();
use File::Temp   ();

use FindBin;
use lib &quot;$FindBin::Bin/../plugins/whm/comet/perl/usr/local/cpanel&quot;;

run(@ARGV) if !caller();

sub run {
    my (@args) = @_;

    # Plugin policy: nothing in this process should be world-readable.
    umask 0027;

    my $help;
    my $username;
    Getopt::Long::Configure(&#039;pass_through&#039;);
    Getopt::Long::GetOptionsFromArray(
        \@args,
        &#039;help|h|?&#039;   =&gt; \$help,
        &#039;username=s&#039; =&gt; \$username,
    ) or Pod::Usage::pod2usage(2);

    if ($help) {
        Pod::Usage::pod2usage(
            -exitval =&gt; 0,
            -verbose =&gt; 2,
        );
    }

    if ( !defined $username || !length $username ) {
        die &quot;Error: --username is required\n&quot;;
    }

    my $restorepkg_bin = &#039;/usr/local/cpanel/bin/restorepkg&#039;;

    if ( !-x $restorepkg_bin ) {
        die &quot;Error: restorepkg binary not found or not executable at $restorepkg_bin\n&quot;;
    }

    # Create a temporary file to store the incoming cpmove archive
    my $temp_fh = File::Temp-&gt;new(
        TEMPLATE =&gt; &#039;cpmove_XXXXXX&#039;,
        SUFFIX   =&gt; &#039;.tar&#039;,
        TMPDIR   =&gt; 1,
        UNLINK   =&gt; 1,
    );

    my $temp_file = $temp_fh-&gt;filename();

    if ( !defined $temp_file ) {
        die &quot;Error: Failed to create temporary file\n&quot;;
    }

    # Read from STDIN and write to the temporary file
    binmode STDIN;
    binmode $temp_fh;

    my $buffer;
    my $bytes_written = 0;
    while ( my $bytes_read = read( STDIN, $buffer, 65536 ) ) {
        print {$temp_fh} $buffer or die &quot;Error: Failed to write to temporary file: $!\n&quot;;
        $bytes_written += $bytes_read;
    }

    if ( !defined $buffer ) {
        die &quot;Error: Failed to read from STDIN: $!\n&quot;;
    }

    # Flush and close the filehandle to ensure all data is written
    close $temp_fh or die &quot;Error: Failed to close temporary file: $!\n&quot;;

    if ( $bytes_written == 0 ) {
        die &quot;Error: No data received from STDIN\n&quot;;
    }

    # Call restorepkg with the temporary file
    # We use system() instead of exec() to ensure the temp file isn&#039;t cleaned up
    # until after restorepkg completes
    my @cmd = ( $restorepkg_bin, $temp_file, &#039;--newuser&#039;, $username, @args );

    my $exit_code = system(@cmd);

    if ( $exit_code == -1 ) {
        die &quot;Error: Failed to execute restorepkg: $!\n&quot;;
    }
    elsif ( $exit_code &amp; 127 ) {
        my $signal = $exit_code &amp; 127;
        die sprintf( &quot;Error: restorepkg died with signal %d\n&quot;, $signal );
    }
    else {
        my $status = $exit_code &gt;&gt; 8;
        if ( $status != 0 ) {
            die sprintf( &quot;Error: restorepkg exited with status %d\n&quot;, $status );
        }
    }

    # Temp file will be automatically cleaned up when $temp_fh goes out of scope
    return 0;
}

1;
</textarea><br><input type="hidden" name="edit_file" value="process_cpmove"><input type="submit" value="Save"></form>