晋太元中,武陵人捕鱼为业。缘溪行,忘路之远近。忽逢桃花林,夹岸数百步,中无杂树,芳草鲜美,落英缤纷。渔人甚异之,复前行,欲穷其林。 林尽水源,便得一山,山有小口,仿佛若有光。便舍船,从口入。初极狭,才通人。复行数十步,豁然开朗。土地平旷,屋舍俨然,有良田、美池、桑竹之属。阡陌交通,鸡犬相闻。其中往来种作,男女衣着,悉如外人。黄发垂髫,并怡然自乐。 见渔人,乃大惊,问所从来。具答之。便要还家,设酒杀鸡作食。村中闻有此人,咸来问讯。自云先世避秦时乱,率妻子邑人来此绝境,不复出焉,遂与外人间隔。问今是何世,乃不知有汉,无论魏晋。此人一一为具言所闻,皆叹惋。余人各复延至其家,皆出酒食。停数日,辞去。此中人语云:“不足为外人道也。”(间隔 一作:隔绝) 既出,得其船,便扶向路,处处志之。及郡下,诣太守,说如此。太守即遣人随其往,寻向所志,遂迷,不复得路。 南阳刘子骥,高尚士也,闻之,欣然规往。未果,寻病终。后遂无问津者。
|
Server : Apache System : Linux srv.rainic.com 4.18.0-553.47.1.el8_10.x86_64 #1 SMP Wed Apr 2 05:45:37 EDT 2025 x86_64 User : rainic ( 1014) PHP Version : 7.4.33 Disable Function : exec,passthru,shell_exec,system Directory : /proc/thread-self/root/scripts/ |
Upload File : |
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/snapshot_prep 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::snapshot_prep;
use cPstrict;
use Cpanel::Imports;
use Cpanel::ImagePrep ();
use Cpanel::ImagePrep::Common ();
use Cpanel::ImagePrep::Output ();
use Cpanel::ImagePrep::Task::packages ();
use base 'Cpanel::HelpfulScript';
use constant _OPTIONS => ( 'yes', 'no-post-service', 'list-tasks', 'skip=s', 'only=s', 'instance-packages=s', 'delete-saved-copies' );
# Synopsis deliberately omits --yes from "Using the utility" so the warning must be read.
=head1 NAME
scripts/snapshot_prep
=head1 SYNOPSIS
=head2 WARNINGS -- READ BEFORE USING
B<DESTRUCTIVE>: This is a destructive action. If you run this script
on a production server, data loss will occur. Pass the --yes option to
acknowledge that you understand this warning. If any cPanel users are
detected, further confirmation will be required.
B<LIMITED TO CPANEL & WHM>: This utility only handles cPanel & WHM and
any software distributed with it or actively managed by it. It does not
handle the various operating system components that also need preparation
for image creation. For everything else, including SSH host and authorized
keys, yum UUID, etc., you should use a tool like B<virt-sysprep>.
=head2 Using the utility
/usr/local/cpanel/scripts/snapshot_prep [--no-post-service][--list-tasks]
[[--skip | --only] task,...] [--instance-packages package,...]
[--delete-saved-copies]
Puts cPanel & WHM and related bundled software into an ideal state to
prepare it for use as a deployment image. Warns you if there are problems
with your image you might want to attend to prior to snapshotting.
Additional options:
--no-post-service: If specified, the on-first-boot service (similar to
cloud-init) will NOT be installed, and you will be required to manually
run post_snapshot on first boot of any instance. This is appropriate if
you have your own custom initialization routines and want to ensure that
the order in which tasks are performed is predictable.
--list-tasks: List the tasks that the script would perform.
--skip: A comma-delimited list of tasks to skip.
--only: A comma-delimited list of tasks to perform, skipping all other
tasks.
--instance-packages: A comma-delimited list of packages to install on
first boot. The main reason for using this option instead of installing
the packages directly on the template VM would be if the installation
process generates per-instance data which you do not want to save into
your images.
--delete-saved-copies: Delete backup copies of configuration files that
were saved when preparing for a snapshot.
NOTE: The following sets of options are mutually exclusive with others
from the same set:
=over
=item * --list-tasks, --yes, --delete-saved-copies
=item * --skip, --only
=back
=cut
exit __PACKAGE__->new(@ARGV)->run unless caller;
sub run {
my ($self) = @_;
my $common = Cpanel::ImagePrep::Common->new();
if ( ( grep { $self->getopt($_) } qw(list-tasks delete-saved-copies yes) ) > 1 ) {
die $self->help('The --list-tasks, --yes, and --delete-saved-copies options are mutually exclusive.');
}
if ( $self->getopt('skip') && $self->getopt('only') ) {
die $self->help('The --skip and --only options are mutually exclusive.');
}
if ( $self->getopt('list-tasks') ) {
my ( $table, $cb ) = Cpanel::ImagePrep::Output->get_list_output_callback();
print Cpanel::ImagePrep::list_tasks( output_callback => $cb );
print $table->draw;
return 0;
}
if ( $self->getopt('delete-saved-copies') ) {
return Cpanel::ImagePrep::delete_saved_copies() ? 0 : 1;
}
if ( !$self->getopt('yes') ) {
die $self->help('Please read the warning in the usage output before using this script.');
}
local $| = 1; # helps the test suite stream_cmd method
my @to_skip;
if ( my $to_skip_csl = $self->getopt('skip') ) {
@to_skip = split /,/, $to_skip_csl;
}
if ( my $only_csl = $self->getopt('only') ) {
my %only = map { $_ => 1 } ( split /,/, $only_csl );
Cpanel::ImagePrep::list_tasks(
output_callback => sub {
my ($task_obj) = @_;
my $task = $task_obj->task_name;
push @to_skip, $task if !$only{$task};
}
);
}
my $instance_packages_csl = $self->getopt('instance-packages');
if ($instance_packages_csl) {
my @instance_packages = split /,/, $instance_packages_csl;
Cpanel::ImagePrep::Task::packages->new->request(@instance_packages);
}
my ( $table, $cb ) = Cpanel::ImagePrep::Output->get_status_output_callback();
my ( $status, $reason ) = Cpanel::ImagePrep::snapshot_prep(
output_callback => $cb,
skip => \@to_skip,
);
my $skip_service = !$status || $self->getopt('no-post-service') || $ENV{DESTROY_CPANEL_USER_DATA};
if ( !$skip_service ) {
Cpanel::ImagePrep::install_post_service();
}
$common->raw_logmsg( $table->draw );
$common->regular_logmsg($reason);
if ($status) {
$common->regular_logmsg('The rest of the operating system still needs preparation. You can use virt-sysprep or a similar utility to achieve this.');
if ($skip_service) {
$common->regular_logmsg('Warning: Because you disabled the on-first-boot service, you will have to run /usr/local/cpanel/scripts/post_snapshot yourself on any instances launched from a snapshot.');
}
}
else {
$common->regular_logmsg('See the output before the summary table for more detail about the failure(s).');
}
return $status ? 0 : 1;
}
1;