<h2>Edit File - comet_protected_item_maintenance</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/local/cpanel/scripts/comet_protected_item_maintenance">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/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

comet_protected_item_maintenance - Maintenance and retention operations for Comet Protected Items and deleted users

=head1 SYNOPSIS

    comet_protected_item_maintenance [--status]
    comet_protected_item_maintenance --list-users
    comet_protected_item_maintenance --prune-days=90 [--user=USERNAME] [--users=USER1,USER2,...] [--dry-run]
    comet_protected_item_maintenance --list-deleted-user-snapshots
    comet_protected_item_maintenance --prune-user=USERNAME [--dry-run]
    comet_protected_item_maintenance --prune-all-deleted-users [--dry-run]
    comet_protected_item_maintenance --restore-deleted-user=USERNAME [--use-snapshot=SNAPSHOT_ID] [--dry-run]

=head1 DESCRIPTION

Performs maintenance on the consolidated metadata database for Comet Protected Items
and deleted cPanel users. Supports listing users, pruning terminated Protected Item
records, pruning deleted user snapshot records from backup run logs, enumerating
snapshots for deleted users, marking deleted users as pruned (stub), and simulating
a restore (stub implementation).

The metadata database tracks both active Protected Item mappings and retention
information for deleted users. Snapshot data is stored in the backup run logs database.

Actual snapshot and restore logic are pending integration with the backend Comet
service; current commands provide placeholders to exercise CLI flows.

=cut

package scripts::comet_protected_item_maintenance;

use cPstrict;

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

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

use Whostmgr::CometBackup::ProtectedItemMap ();

use Whostmgr::CometBackup::DeletedUsers ();

# Option variables
my $prune_days              = 0;
my $list_users              = 0;
my $help                    = 0;
my $status                  = 0;     # explicit status request
my $prune_user              = &#039;&#039;;
my $prune_all_deleted_users = 0;
my $list_deleted_snapshots  = 0;
my $restore_deleted_user    = &#039;&#039;;
my $use_snapshot            = &#039;&#039;;
my $dry_run                 = 0;
my $user                    = &#039;&#039;;    # single user for --prune-days
my $users                   = &#039;&#039;;    # comma-separated users for --prune-days

sub main {

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

    Getopt::Long::GetOptions(
        &#039;prune-days=i&#039;                =&gt; \$prune_days,
        &#039;list-users&#039;                  =&gt; \$list_users,
        &#039;help|h&#039;                      =&gt; \$help,
        &#039;status&#039;                      =&gt; \$status,
        &#039;prune-user=s&#039;                =&gt; \$prune_user,
        &#039;prune-all-deleted-users&#039;     =&gt; \$prune_all_deleted_users,
        &#039;list-deleted-user-snapshots&#039; =&gt; \$list_deleted_snapshots,
        &#039;restore-deleted-user=s&#039;      =&gt; \$restore_deleted_user,
        &#039;use-snapshot=s&#039;              =&gt; \$use_snapshot,
        &#039;dry-run&#039;                     =&gt; \$dry_run,
        &#039;user=s&#039;                      =&gt; \$user,
        &#039;users=s&#039;                     =&gt; \$users,
    ) or Pod::Usage::pod2usage(2);

    if ($help) {
        Pod::Usage::pod2usage(1);
        return;
    }

    my $map     = Whostmgr::CometBackup::ProtectedItemMap-&gt;new();
    my $deleted = Whostmgr::CometBackup::DeletedUsers-&gt;new();

    # Dispatch precedence: prune specific user, prune all, restore, list snapshots, prune-days, list-users, status(default)
    if ($prune_user) {
        prune_single_deleted_user( $deleted, $prune_user, $dry_run );
        return;
    }

    if ($prune_all_deleted_users) {
        prune_all_deleted_users( $deleted, $dry_run );
        return;
    }
    if ($restore_deleted_user) {
        restore_deleted_user( $deleted, $restore_deleted_user, $use_snapshot, $dry_run );
        return;
    }
    if ($list_deleted_snapshots) {
        list_deleted_user_snapshots($deleted);
        return;
    }
    if ($prune_days) {
        prune_old_records( $map, $prune_days, $dry_run, $user, $users );
        return;
    }

    if ($list_users) {
        list_users_with_protected_items($map);
        return;
    }

    # Default status view
    show_status( $map, $deleted );
    return;
}

sub show_status ( $map, $deleted ) {
    print &quot;Comet Protected Item / Deleted User Status\n&quot;;
    print &quot;========================================\n\n&quot;;

    my @all_users     = $map-&gt;get_all_users_with_protected_items();
    my @active_users  = $map-&gt;get_all_users_with_protected_items( active_only =&gt; 1 );
    my @deleted_users = $deleted-&gt;list_deleted_users();

    print &quot;Total users with protected items: &quot; . scalar(@all_users) . &quot;\n&quot;;
    print &quot;Users with active protected items: &quot; . scalar(@active_users) . &quot;\n&quot;;
    print &quot;Users with terminated items only: &quot; . ( scalar(@all_users) - scalar(@active_users) ) . &quot;\n&quot;;

    # XXX: Delete this &quot;Users with protected items&quot; part?
    if (@all_users) {
        print &quot;\nUsers with protected items:\n&quot;;
        for my $user (@all_users) {
            my @items            = $map-&gt;get_protected_items_for_user( system_user =&gt; $user );
            my @active_items     = grep { !$_-&gt;{user_terminated} } @items;
            my @terminated_items = grep { $_-&gt;{user_terminated} } @items;

            printf &quot;  %-20s: %d total (%d active, %d terminated)\n&quot;,
              $user, scalar(@items), scalar(@active_items), scalar(@terminated_items);
        }
    }
    print &quot;Deleted users tracked: &quot; . scalar(@deleted_users) . &quot;\n&quot;;

    print &quot;\nUse --list-users for detailed information\n&quot;;
    print &quot;Use --prune-days=N to remove terminated Protected Item records\n&quot;;
    print &quot;Use --list-deleted-user-snapshots to view stub snapshots for deleted users\n&quot;;
    print &quot;Use --prune-user=USER or --prune-all-deleted-users to mark retained backups pruned (stub)\n&quot;;
    print &quot;Use --restore-deleted-user=USER [--use-snapshot=ID] to simulate restore (stub)\n&quot;;
    return;
}

sub list_users_with_protected_items ($map) {
    print &quot;Users with Protected Items\n&quot;;
    print &quot;==========================\n\n&quot;;

    my @all_users = $map-&gt;get_all_users_with_protected_items( active_only =&gt; 1 );

    if ( !@all_users ) {
        print &quot;No users found with protected items.\n&quot;;
        return;
    }

    for my $user (@all_users) {
        print &quot;User: $user\n&quot;;
        print &quot;-&quot; x 40 . &quot;\n&quot;;

        my @items = $map-&gt;get_protected_items_for_user( system_user =&gt; $user );

        for my $item (@items) {
            my $user_status = $item-&gt;{user_terminated} ? &#039;Terminated&#039; : &#039;Active&#039;;
            my $item_status = $item-&gt;{status} || &#039;unknown&#039;;
            my $terminated  = $item-&gt;{terminated_timestamp} ? localtime( $item-&gt;{terminated_timestamp} ) : &#039;N/A&#039;;

            print &quot;  Protected Item: $item-&gt;{protected_item_uid}\n&quot;;
            print &quot;    User Status: $user_status\n&quot;;
            print &quot;    Item Status: $item_status\n&quot;;
            print &quot;    User UUID: $item-&gt;{cpanel_user_uuid}\n&quot;;
            print &quot;    Terminated: $terminated\n&quot;;
            print &quot;\n&quot;;
        }
    }

    return;
}

sub prune_old_records ( $map, $days, $dry_run = 0, $single_user = &#039;&#039;, $user_list = &#039;&#039; ) {
    my $cutoff_time = time() - ( $days * 24 * 60 * 60 );

    # Build list of users to target
    my @target_users;
    if ($single_user) {
        push @target_users, $single_user;
    }
    if ($user_list) {
        push @target_users, split( /,/, $user_list );
    }

    if ($dry_run) {
        if (@target_users) {
            print &quot;[DRY RUN] Would prune terminated records older than $days days for users: &quot; . join( &#039;, &#039;, @target_users ) . &quot;...\n&quot;;
        }
        else {
            print &quot;[DRY RUN] Would prune terminated records older than $days days...\n&quot;;
        }

        # Query what would be pruned from Protected Item map
        my %prune_args = ( older_than_days =&gt; $days, dry_run =&gt; 1 );
        $prune_args{users} = \@target_users if @target_users;
        my $map_count = $map-&gt;prune_inactive_users(%prune_args);
        print &quot;[DRY RUN] Would prune $map_count old terminated Protected Item records.\n&quot;;

        # Query what would be pruned from backup run logs (deleted user snapshots)
        my $deleted       = Whostmgr::CometBackup::DeletedUsers-&gt;new();
        my %snapshot_args = ( cutoff_epoch =&gt; $cutoff_time, dry_run =&gt; 1 );
        $snapshot_args{users} = \@target_users if @target_users;
        my $result = $deleted-&gt;prune_deleted_user_snapshots_before(%snapshot_args);

        if ( $result-&gt;{error} ) {
            print &quot;[DRY RUN] Error checking deleted user snapshots: $result-&gt;{error}\n&quot;;
        }
        else {
            my $snapshot_count = $result-&gt;{count};
            my @affected_users = @{ $result-&gt;{users_affected} || [] };
            print &quot;[DRY RUN] Would prune $snapshot_count deleted user snapshot records&quot;;
            if (@affected_users) {
                print &quot; for users: &quot; . join( &#039;, &#039;, @affected_users );
            }
            print &quot;.\n&quot;;
        }

        my $total = $map_count + ( $result-&gt;{count} || 0 );
        print &quot;[DRY RUN] Total records that would be pruned: $total\n&quot;;
    }
    else {
        if (@target_users) {
            print &quot;Pruning terminated records older than $days days for users: &quot; . join( &#039;, &#039;, @target_users ) . &quot;...\n&quot;;
        }
        else {
            print &quot;Pruning terminated records older than $days days...\n&quot;;
        }

        # Prune terminated Protected Item records
        my %prune_args = ( older_than_days =&gt; $days );
        $prune_args{users} = \@target_users if @target_users;
        my $map_count = $map-&gt;prune_inactive_users(%prune_args);
        print &quot;Pruned $map_count old terminated Protected Item records.\n&quot;;

        # Prune deleted user snapshots from backup run logs
        my $deleted       = Whostmgr::CometBackup::DeletedUsers-&gt;new();
        my %snapshot_args = ( cutoff_epoch =&gt; $cutoff_time, dry_run =&gt; 0 );
        $snapshot_args{users} = \@target_users if @target_users;
        my $result = $deleted-&gt;prune_deleted_user_snapshots_before(%snapshot_args);

        if ( $result-&gt;{error} ) {
            print &quot;Error pruning deleted user snapshots: $result-&gt;{error}\n&quot;;
        }
        else {
            my $snapshot_count = $result-&gt;{count};
            my @affected_users = @{ $result-&gt;{users_affected} || [] };
            print &quot;Pruned $snapshot_count deleted user snapshot records&quot;;
            if (@affected_users) {
                print &quot; for users: &quot; . join( &#039;, &#039;, @affected_users );
            }
            print &quot;.\n&quot;;
        }

        my $total = $map_count + ( $result-&gt;{count} || 0 );
        print &quot;Total records pruned: $total\n&quot;;
    }
}

sub list_deleted_user_snapshots ($deleted) {
    my @users = $deleted-&gt;list_deleted_users();
    if ( !@users ) {
        print &quot;No deleted users to list snapshots for.\n&quot;;
        return;
    }

    # Filter to only include users that don&#039;t exist locally anymore
    my @truly_deleted_users = grep {
        my $username = $_-&gt;{system_user};
        !getpwnam($username);    # Only include if user doesn&#039;t exist
    } @users;

    if ( !@truly_deleted_users ) {
        print &quot;No deleted users to list snapshots for.\n&quot;;
        print &quot;(All tracked deleted users still exist in the system)\n&quot;;
        return;
    }

    print &quot;Deleted User Snapshots\n&quot;;
    print &quot;======================\n\n&quot;;

    for my $user_info (@truly_deleted_users) {
        my $username = $user_info-&gt;{system_user};
        my $result   = $deleted-&gt;list_deleted_user_snapshots($username);

        if ( $result-&gt;{error} ) {
            print &quot;Error for user $username: $result-&gt;{error}\n\n&quot;;
            next;
        }

        print &quot;User: $username\n&quot;;
        print &quot;-&quot; x ( 6 + length($username) ) . &quot;\n&quot;;

        if ( $result-&gt;{count} == 0 ) {
            print &quot;  No snapshots available\n\n&quot;;
            next;
        }

        for my $snap ( @{ $result-&gt;{snapshots} } ) {
            my $created        = localtime( $snap-&gt;{created_at} // time() );
            my $size           = $snap-&gt;{size}           // &#039;Unknown&#039;;
            my $type           = $snap-&gt;{type}           // &#039;Unknown&#039;;
            my $status         = $snap-&gt;{status}         // &#039;Unknown&#039;;
            my $source_id      = $snap-&gt;{source_id}      // $snap-&gt;{protected_item_id} // &#039;Unknown&#039;;
            my $destination_id = $snap-&gt;{destination_id} // &#039;Unknown&#039;;
            my $snapshot_id    = $snap-&gt;{snapshot_uuid}  // $snap-&gt;{snapshot_id} // &#039;Unknown&#039;;

            print &quot;  Snapshot:\n&quot;;
            print &quot;    Source ID:      $source_id\n&quot;;
            print &quot;    Destination ID: $destination_id\n&quot;;
            print &quot;    Snapshot ID:    $snapshot_id\n&quot;;
            print &quot;    Type:           $type\n&quot;;
            print &quot;    Created:        $created\n&quot;;
            print &quot;    Size:           $size bytes\n&quot;;
            print &quot;    Status:         $status\n&quot;;
            print &quot;\n&quot;;
        }
        print &quot;\n&quot;;
    }
    return;
}

sub prune_single_deleted_user ( $deleted, $user, $dry_run = 0 ) {
    if ($dry_run) {
        print &quot;[DRY RUN] Would prune deleted user &#039;$user&#039;...\n&quot;;
        my $result = $deleted-&gt;prune_single_deleted_user( $user, dry_run =&gt; 1 );
        if ( $result-&gt;{error} ) {
            print &quot;[DRY RUN] Error: $result-&gt;{error}\n&quot;;
            return;
        }
        print &quot;[DRY RUN] Would succeed: $result-&gt;{message}\n&quot;;
    }
    else {
        print &quot;Pruning deleted user &#039;$user&#039;...\n&quot;;
        my $result = $deleted-&gt;prune_single_deleted_user($user);
        if ( $result-&gt;{error} ) {
            print &quot;Error: $result-&gt;{error}\n&quot;;
            return;
        }
        print &quot;Success: $result-&gt;{message}\n&quot;;
    }
    return;
}

sub prune_all_deleted_users ( $deleted, $dry_run = 0 ) {
    my @users = $deleted-&gt;list_deleted_users();
    if ( !@users ) {
        print &quot;No deleted users to prune.\n&quot;;
        return;
    }

    if ($dry_run) {
        print &quot;[DRY RUN] Would prune all &quot; . scalar(@users) . &quot; deleted users...\n&quot;;
    }
    else {
        print &quot;Pruning all &quot; . scalar(@users) . &quot; deleted users...\n&quot;;
    }

    my $success_count = 0;
    my $error_count   = 0;

    for my $user_info (@users) {
        my $username = $user_info-&gt;{system_user};
        if ($dry_run) {
            print &quot;[DRY RUN] Would prune user &#039;$username&#039;... &quot;;
            my $result = $deleted-&gt;prune_single_deleted_user( $username, dry_run =&gt; 1 );
            if ( $result-&gt;{error} ) {
                print &quot;Error: $result-&gt;{error}\n&quot;;
                $error_count++;
            }
            else {
                print &quot;Success\n&quot;;
                $success_count++;
            }
        }
        else {
            print &quot;Pruning user &#039;$username&#039;... &quot;;
            my $result = $deleted-&gt;prune_single_deleted_user($username);
            if ( $result-&gt;{error} ) {
                print &quot;Error: $result-&gt;{error}\n&quot;;
                $error_count++;
            }
            else {
                print &quot;Success\n&quot;;
                $success_count++;
            }
        }
    }

    if ($dry_run) {
        print &quot;\n[DRY RUN] Pruning complete: $success_count would succeed, $error_count errors\n&quot;;
    }
    else {
        print &quot;\nPruning complete: $success_count successful, $error_count errors\n&quot;;
    }
    return;
}

sub restore_deleted_user ( $deleted, $user, $snapshot, $dry_run = 0 ) {
    if ( !$snapshot ) {

        # Auto-select latest snapshot if not specified
        my $snapshots_result = $deleted-&gt;list_deleted_user_snapshots($user);

        if ( $snapshots_result-&gt;{error} ) {
            print &quot;Error: Failed to list snapshots for user &#039;$user&#039;: $snapshots_result-&gt;{error}\n&quot;;
            return;
        }

        if ( !$snapshots_result-&gt;{snapshots} || @{ $snapshots_result-&gt;{snapshots} } == 0 ) {
            print &quot;Error: No snapshots available for user &#039;$user&#039;\n&quot;;
            return;
        }

        # Sort snapshots by created_at descending to get the latest one
        my @sorted_snapshots = sort { ( $b-&gt;{created_at} // 0 ) &lt;=&gt; ( $a-&gt;{created_at} // 0 ) } @{ $snapshots_result-&gt;{snapshots} };

        # Use the latest snapshot (first after sorting)
        $snapshot = $sorted_snapshots[0]-&gt;{snapshot_uuid} // $sorted_snapshots[0]-&gt;{snapshot_id};

        if ( !$snapshot ) {
            print &quot;Error: Could not determine snapshot identifier for user &#039;$user&#039;\n&quot;;
            return;
        }

        print &quot;Using latest snapshot: $snapshot\n&quot;;
    }

    if ($dry_run) {
        print &quot;[DRY RUN] Would restore deleted user &#039;$user&#039; from snapshot &#039;$snapshot&#039;...\n&quot;;
        my $result = $deleted-&gt;restore_deleted_user( $user, $snapshot, dry_run =&gt; 1 );
        if ( $result-&gt;{error} ) {
            print &quot;[DRY RUN] Error: $result-&gt;{error}\n&quot;;
            return;
        }
        print &quot;[DRY RUN] Would succeed: $result-&gt;{message}\n&quot;;
        if ( $result-&gt;{job_uuid} ) {
            print &quot;[DRY RUN] Would create restore job UUID: $result-&gt;{job_uuid}\n&quot;;
        }
    }
    else {
        print &quot;Restoring deleted user &#039;$user&#039; from snapshot &#039;$snapshot&#039;...\n&quot;;
        my $result = $deleted-&gt;restore_deleted_user( $user, $snapshot );
        if ( $result-&gt;{error} ) {
            print &quot;Error: $result-&gt;{error}\n&quot;;
            return;
        }
        print &quot;Success: $result-&gt;{message}\n&quot;;
        if ( $result-&gt;{job_uuid} ) {
            print &quot;Restore job UUID: $result-&gt;{job_uuid}\n&quot;;
        }
    }
    return;
}

# Run as script if not required as module
main() if !caller();

1;

__END__

=head1 OPTIONS

=over 4

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

Show aggregate status (default when no other option is provided).

=item B&lt;--list-users&gt;

List all users with their Protected Items and activity status.

=item B&lt;--prune-days=N&gt;

Remove terminated Protected Item records and deleted user snapshot records older
than N days. This prunes both the Protected Item map entries for terminated users
and the actual snapshot records from the backup run logs database.

=item B&lt;--user=USERNAME&gt;

Limit --prune-days to a specific user. Can be used multiple times or combined with
--users to target multiple users.

=item B&lt;--users=USER1,USER2,...&gt;

Limit --prune-days to a comma-separated list of users. Can be combined with --user
to target additional users.

=item B&lt;--list-deleted-user-snapshots&gt;

List stub snapshot identifiers for all deleted users.

=item B&lt;--prune-user=USERNAME&gt;

Mark retained backups for a specific deleted user as pruned (stub implementation).

=item B&lt;--prune-all-deleted-users&gt;

Mark retained backups for all deleted users as pruned (stub implementation).

=item B&lt;--restore-deleted-user=USERNAME&gt;

Simulate a restore of a deleted user (stub). If --use-snapshot is not provided,
the most recent snapshot will be automatically selected based on creation timestamp.

=item B&lt;--use-snapshot=SNAPSHOT_ID&gt;

Specify snapshot identifier for simulated restore (used with --restore-deleted-user).
If not specified, the most recent snapshot will be used automatically.

=item B&lt;--dry-run&gt;

Perform a dry run without making any actual changes. Shows what would be done
without modifying the database or performing actual operations. Can be used with
--prune-days, --prune-user, --prune-all-deleted-users, and --restore-deleted-user.

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

Show help message.

=back

=head1 EXAMPLES

Show current status:

    comet_protected_item_maintenance --status

List all users and their protected items:

    comet_protected_item_maintenance --list-users

Remove terminated records older than 90 days:

    comet_protected_item_maintenance --prune-days=90

Remove terminated records for a specific user:

    comet_protected_item_maintenance --prune-days=90 --user=alice

Remove terminated records for multiple users:

    comet_protected_item_maintenance --prune-days=90 --users=alice,bob,charlie

List deleted user snapshots (stub):

    comet_protected_item_maintenance --list-deleted-user-snapshots

Prune a single deleted user:

    comet_protected_item_maintenance --prune-user=alice

Restore a deleted user using the most recent snapshot (stub):

    comet_protected_item_maintenance --restore-deleted-user=alice

Restore a deleted user using a specific snapshot (stub):

    comet_protected_item_maintenance --restore-deleted-user=alice --use-snapshot=alice-snapA

Perform a dry run to see what would be pruned without making changes:

    comet_protected_item_maintenance --prune-days=90 --dry-run
    comet_protected_item_maintenance --prune-user=alice --dry-run
    comet_protected_item_maintenance --prune-all-deleted-users --dry-run
    comet_protected_item_maintenance --restore-deleted-user=alice --dry-run

=head1 FILES

=over 4

=item F&lt;/var/cpanel/comet/usermap.db&gt;

SQLite database containing Protected Item mappings and deleted user retention metadata.

=item F&lt;/var/cpanel/comet/backup_run_logs.db&gt;

SQLite database containing backup run logs and snapshot records for all users,
including deleted users. Pruned by the --prune-days option.

=back

=cut
</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>