MAJOR=4
MINOR=54
DEVNAME=tty54
" lzD ZS
h 0
File not found.
!
@ 7 !
Index of /anon_sym/anon/sys/devices/virtual/tty/tty8/subsystem/ttyS3/device/serial8250:0
Index of /anon_sym/anon/sys/devices/virtual/tty/tty8/subsystem/ttyS3/device/serial8250:0
#azD [S #File not found.
%ʾ %File not found.
'
d- T '#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/transfer_in_progress 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::transfer_in_progress;
=encoding utf-8
=head1 NAME
transfer_in_progress
=head1 SYNOPSIS
transfer_in_progress ( --serialize_output | --help )
This script will check if there is an active transfer session.
Options:
--help brief help message
--serialize_output encode output as JSON
=cut
use strict;
use Getopt::Long ();
use Cpanel::Exception ();
use Cpanel::JSON ();
use Cpanel::LoadModule ();
use Whostmgr::Transfers::SessionDB ();
use Try::Tiny;
if ( !caller() ) {
my $serialize_output;
my $help;
Getopt::Long::Configure('pass_through');
Getopt::Long::GetOptionsFromArray(
[@ARGV],
serialize_output => \$serialize_output,
help => \$help,
);
if ($help) {
print _help();
exit 0;
}
my $script_obj = scripts::transfer_in_progress->new();
try {
my $transfer_exists = $script_obj->active_transfer_exists();
$script_obj->_handle_output( $transfer_exists, $serialize_output );
}
catch {
die Cpanel::Exception::get_string($_) . "\n";
};
exit 0;
}
sub new {
my $self = bless {}, __PACKAGE__;
return $self;
}
=head1 METHODS
=over 4
=item B
A function that indicates if there