<h2>Edit File: call_pkgacct</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

call_pkgacct - Wrapper script for cPanel &amp; WHM&#039;s pkgacct binary

=head1 SYNOPSIS

    call_pkgacct [--help] [pkgacct options] &lt;username&gt;

=head1 DESCRIPTION

This script provides an easy to call wrapper for cPanel &amp; WHM&#039;s pkgacct binary with the specific settings
needed for Comet Backup&#039;s agent. It automatically adds the C&lt;--nocompress&gt; and C&lt;--stdout-archive&gt; flags
to output an uncompressed tar archive to stdout.

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

=head1 OPTIONS

=over 4

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

Display this help message and exit.

=back

=head1 EXAMPLES

    # Create a backup of user &#039;example&#039; to stdout
    call_pkgacct example &gt; /path/to/backup.tar

    # Create a backup with additional pkgacct options
    call_pkgacct --skiplogs --skipmailman example &gt; /path/to/backup.tar

=cut

package scripts::call_pkgacct;

use cPstrict;

use Getopt::Long ();
use Pod::Usage   ();

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;
    Getopt::Long::Configure(&#039;pass_through&#039;);
    Getopt::Long::GetOptionsFromArray(
        \@args,
        &#039;help|h|?&#039; =&gt; \$help,
    ) or Pod::Usage::pod2usage(2);

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

    my $pkgacct_bin = &#039;/usr/local/cpanel/bin/pkgacct&#039;;

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

    # Add required flags for Comet Backup and pass through all other arguments
    exec {$pkgacct_bin} $pkgacct_bin, &#039;--nocompress&#039;, &#039;--stdout-archive&#039;, &#039;--skiphomedir&#039;, &#039;--skipmysql&#039;, &#039;--skippgsql&#039;, @args
      or die &quot;Error: Failed to execute pkgacct: $!\n&quot;;
}

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