#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - killpvhost                             Copyright(c) 2011 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use Cpanel::SafeFile    ();
use Cpanel::DomainTools ();
use Cpanel::FtpUtils    ();
use Cpanel::Logger      ();
use Cpanel::RcsRecord   ();

my $proftpdconf = Cpanel::FtpUtils::find_proftpconf();
exit if !-e $proftpdconf;

my $logger = Cpanel::Logger->new();

my $servername = $ARGV[0];
$servername =~ s/\s//g;
$servername =~ s/\n//g;

exit if !$servername;
exit if length($servername) < 3;

my $domain = $servername;
$domain = Cpanel::DomainTools::normalize($domain);
if ( !Cpanel::DomainTools::is_valid($domain) ) {
    print "Sorry, that's an invalid domain\n";
    exit;
}

my $hasip = 1;

Cpanel::RcsRecord::rcsrecord($proftpdconf);

my $proftpdlock = Cpanel::SafeFile::safeopen( \*FTPCONF, "+<", $proftpdconf );
if ( !$proftpdlock ) {
    $logger->die("Could not edit $proftpdconf");
}
my @TFTPCONF = <FTPCONF>;
seek( FTPCONF, 0, 0 );
my $pln = 1;
my ( $sline, $ivh, $vh );
foreach my $line (@TFTPCONF) {
    $line =~ s/\n//g;
    $sline = $line;
    $sline =~ s/[\s\t]*$//g;

    if ( $sline =~ /servername[\s\t]+ftp.\Q${domain}\E$/i ) {
        $pln = 0;
    }
    if ( $sline =~ /servername[\s\t]+\Q${domain}\E$/i ) {
        $pln = 0;
    }
    if ( $sline =~ /<virtualhost/i && $sline !~ /^(\s*\t*)#/ && $sline !~ /^#/ ) {
        $ivh = 1;
        $vh  = '';
        $pln = 1;
    }
    if ($ivh) { $vh = $vh . $line . "\n"; }
    if ( $ivh == 0 ) {
        print FTPCONF "$line\n";
    }
    if ( $sline =~ /<\/virtualhost/i && $sline !~ /^(\s*\t*)#/ && $sline !~ /^#/ ) {
        $ivh = 0;
        if ( $pln == 1 ) { print FTPCONF $vh; }
        $vh = '';
    }
}
truncate( FTPCONF, tell(FTPCONF) );
Cpanel::SafeFile::safeclose( \*FTPCONF, $proftpdlock );

Cpanel::RcsRecord::rcsrecord($proftpdconf);

print "Removed Entry from proftpd.conf\n";