<h2>Edit File - delpop</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/local/cpanel/scripts/delpop">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/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   =&gt; \$email,
        debug   =&gt; \$debug,
        verbose =&gt; \$verbose,
    };

    # compatibility with previous binary version
    if ( scalar @args == 1 &amp;&amp; $args[0] !~ /^\-/ ) {
        $email = $args[0];
    }
    else {
        Cpanel::Usage::wrap_options( \@args, \&amp;usage, $opts );
    }

    my $pop = scripts::delpop-&gt;new( email =&gt; $email || undef );

    # interactive fields
    my $interactive_fields = {
        email =&gt; &#039;Please enter the pop account to be removed (e.g. bob@sally.com)? &#039;,
    };
    foreach my $field ( sort keys %$interactive_fields ) {
        while ( !$pop-&gt;$field() ) {
            print $interactive_fields-&gt;{$field};
            my $input;
            chomp( $input = &lt;STDIN&gt; );
            $pop-&gt;$field($input) if length($input);
        }
    }

    Cpanel::Hooks::hook(
        {
            &#039;category&#039; =&gt; &#039;scripts&#039;,
            &#039;event&#039;    =&gt; &#039;delpop&#039;,
            &#039;stage&#039;    =&gt; &#039;pre&#039;,
        },
        { &#039;email&#039; =&gt; $email },
    );

    $pop-&gt;delete();

    Cpanel::Hooks::hook(
        {
            &#039;category&#039; =&gt; &#039;scripts&#039;,
            &#039;event&#039;    =&gt; &#039;delpop&#039;,
            &#039;stage&#039;    =&gt; &#039;post&#039;,
        },
        { &#039;email&#039; =&gt; $email },
    );

    exit;
}

sub usage {
    my $prog = $0;
    print &lt;&lt;USAGE;
$0 [--email=]&lt;user\@domain.com&gt;

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 ) = @_;
    my $self = bless {}, __PACKAGE__;

    # create accessor and hooks
    $self-&gt;_set_attributes();

    # set values
    map { $self-&gt;$_( $opts{$_} ) } keys %opts;

    return $self;
}

sub _set_attributes {

    # call once at first init
    return unless @attributes;
    foreach my $att (@attributes) {
        my $accessor = __PACKAGE__ . &quot;::$att&quot;;

        # allow symbolic refs to typeglob
        no strict &#039;refs&#039;;
        *$accessor = sub {
            my ( $self, $v ) = @_;
            if ( defined $v ) {
                foreach (qw{before validate set after}) {
                    if ( $_ eq &#039;set&#039; ) {
                        $self-&gt;{$att} = $v;
                        next;
                    }
                    my $sub = &#039;_&#039; . $_ . &#039;_&#039; . $att;
                    if ( defined &amp;{ __PACKAGE__ . &#039;::&#039; . $sub } ) {
                        return unless $self-&gt;$sub($v);
                    }
                }
            }
            return $self-&gt;{$att};
        };
    }
    @attributes = undef;
    return 1;
}

sub _validate_email {
    my ( $self, $email ) = @_;

    Cpanel::Email::Validate::valid_email($email)
      or die &quot;&#039;$email&#039; is an invalid email&quot;;
    return 1;
}

sub _after_email {
    my ($self) = @_;

    # mix validation and before_save :)
    my ( $user, $domain ) = split( /\@/, $self-&gt;email );
    $self-&gt;user($user);
    $self-&gt;domain($domain);
    return 1;
}

# we need to have access to the domain, when setting an owner
sub _after_domain {
    my ($self) = @_;

    my $owner = Cpanel::AcctUtils::DomainOwner::Tiny::getdomainowner( $self-&gt;domain(), { &#039;default&#039; =&gt; &#039;&#039; } );
    die &quot;Cannot find the owner of &quot; . $self-&gt;domain() . &quot;, try rebuilding /etc/userdomains first with /usr/local/cpanel/scripts/updateuserdomains&quot;
      unless $owner;
    $self-&gt;owner($owner);
    return 1;
}

sub _before_owner {
    my ( $self, $owner ) = @_;

    # setuids
    my ( $uid, $gid ) = ( getpwnam($owner) )[ 2, 3 ];
    die &quot;cannot find user &quot;, $owner unless defined $uid &amp;&amp; defined $gid;

    Cpanel::Sys::Setsid::Fast::fast_setsid();
    Cpanel::SafetyBits::setuids( $uid, $gid );

    # This is very similar to the code in Cpanel::Email::_pop_exists
    # but it would be a chore to make that module available just for
    # this script.
    my $ownerhomedir = ( Cpanel::PwCache::getpwnam($owner) )[7];
    die &quot;cannot find home dir for user $owner&quot; unless defined $ownerhomedir;
    my $file = join &#039;/&#039;, $ownerhomedir, &#039;etc&#039;, $self-&gt;domain(), &#039;passwd&#039;;
    $file =~ s/\.\.//g;

    $self-&gt;file($file);
    return 1;
}

sub _before_file {
    my ( $self, $file ) = @_;

    die &quot;Unable to determine domain owner&#039;s passwd file.\n&quot; unless -e $file;
    return 1;
}

sub _after_file {
    my ($self) = @_;

    # Untaint the value
    if ( $self-&gt;file() =~ m/^(.*)$/ ) {

        # direct access to untaint ( to avoid infinite loop )
        $self-&gt;{file} = $1;
    }
    return 1;
}

sub _check_if_account_exists {
    my ($self) = @_;

    my $sflock = Cpanel::SafeFile::safeopen( \*PASSWD, &#039;&lt;&#039;, $self-&gt;file() );
    die &quot;Unable to read from domain owner&#039;s passwd file.\n&quot; unless $sflock;
    my $found;
    my $user        = $self-&gt;user();
    my $match_regex = qr/^\Q$user\E:/;
    while ( my $line = &lt;PASSWD&gt; ) {
        chomp $line;
        if ( $line =~ $match_regex ) {
            $found = 1;
            last;
        }
    }
    Cpanel::SafeFile::safeclose( \*PASSWD, $sflock );
    die &quot;Account does not exist.\n&quot; unless $found;
    return 1;
}

sub delete {
    my ($self) = @_;

    $self-&gt;_check_if_account_exists();

    # perform the deletion
    $ENV{&#039;REMOTE_USER&#039;} = $self-&gt;owner();
    system &#039;/usr/local/cpanel/cpanel-email&#039;, &#039;delpop&#039;, $self-&gt;email();
    die &quot;\nEmail account deletion failed ($?)\n&quot; if ( $? != 0 );
    print &quot;Deleted &quot; . $self-&gt;email() . &quot; for user &quot; . $self-&gt;owner() . &quot;\n&quot;;
    return 1;
}

1;
</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>