00000046
M
Index of /FSS-BCZ/root/sys/dev/char/4:37/subsystem/tty49
Index of /FSS-BCZ/root/sys/dev/char/4:37/subsystem/tty49
9 l4(&D f^S
ha4(&D qţ 1
" lz Jj"Tҁzţ
q #!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/delpop 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::delpop;
use strict;
use warnings;
use Cpanel::AcctUtils::DomainOwner::Tiny ();
use Cpanel::PwCache ();
use Cpanel::SafetyBits ();
use Cpanel::SafeFile ();
use Cpanel::Email::Validate ();
use Cpanel::Usage ();
use Cpanel::Sys::Setsid::Fast ();
use Cpanel::Hooks ();
my @attributes = qw{ email user owner domain file };
# call binary
run(@ARGV) unless caller();
sub run {
my (@args) = @_;
my $debug;
my $verbose;
my $email;
my $opts = {
email => \$email,
debug => \$debug,
verbose => \$verbose,
};
# compatibility with previous binary version
if ( scalar @args == 1 && $args[0] !~ /^\-/ ) {
$email = $args[0];
}
else {
Cpanel::Usage::wrap_options( \@args, \&usage, $opts );
}
my $pop = scripts::delpop->new( email => $email || undef );
# interactive fields
my $interactive_fields = {
email => 'Please enter the pop account to be removed (e.g. bob@sally.com)? ',
};
foreach my $field ( sort keys %$interactive_fields ) {
while ( !$pop->$field() ) {
print $interactive_fields->{$field};
my $input;
chomp( $input = );
$pop->$field($input) if length($input);
}
}
Cpanel::Hooks::hook(
{
'category' => 'scripts',
'event' => 'delpop',
'stage' => 'pre',
},
{ 'email' => $email },
);
$pop->delete();
Cpanel::Hooks::hook(
{
'category' => 'scripts',
'event' => 'delpop',
'stage' => 'post',
},
{ 'email' => $email },
);
exit;
}
sub usage {
my $prog = $0;
print <
Delete the specified email account.
--help : display this documentation
--email : a valid address email ( format: user\@domain.com )
USAGE
exit 1;
}
sub new {
my ( $package, %opts ) = @_