Mini Shell
Direktori : /proc/self/root/scripts/ |
|
Current File : //proc/self/root/scripts/convert_and_migrate_from_legacy_backup |
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/convert_and_migrate_from_legacy_backup
# 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 Cpanel::Backup::Utility ();
use Getopt::Long ();
my $force_conversion;
my $no_convert;
my $help;
Getopt::Long::GetOptions(
'f|force' => \$force_conversion,
'h|help' => \$help,
'no_convert' => \$no_convert,
);
if ($help) {
print "Usage:\n\n\t$0 -h -f -no_convert\n";
print " -h - help (this page)\n";
print " -f - force conversion even if existing backup configuration exists\n";
print " -no_convert - Do not convert, only backup legacy configuration\n";
exit;
}
if ($force_conversion) {
print "Forcing backup configuration conversion.\n";
}
if ($no_convert) {
print "Only backing up Legacy configuration, no conversion will take place\n";
}
if ( !$no_convert && !$force_conversion && -e '/var/cpanel/backups/config' ) {
print "There is already a configuration file for backups in place, are you sure you want to overwrite it ? [y/n] ";
my $answer = <STDIN>;
if ( $answer =~ m/^n/i ) {
print "Aborting configuration conversion.\n";
exit;
}
elsif ( $answer =~ m/^y/i ) {
}
else {
print "Unknown answer, expected yes or no. Aborting conversion.\n";
exit;
}
}
print "Converting legacy backup config to new\n" if !$no_convert;
my %opts;
$opts{'no_convert'} = 1 if $no_convert;
$opts{'force'} = 1 if $force_conversion;
my ( $ret, $msg ) = Cpanel::Backup::Utility::convert_and_migrate_from_legacy_config(%opts);
if ( !$ret ) {
print "Error during config conversion: $msg\n";
}
else {
print "Success: $msg\n";
}
exit $ret;
Zerion Mini Shell 1.0