????

Your IP : 3.16.48.143

Current Path : /scripts/
Upload File :
Current File : //scripts/postwwwacct.l.v.e-manager.bak

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

my %OPTS = @ARGV;
my $user = $OPTS{'user'};
my $keepdns = $OPTS{'keepdns'};

if (-d "/home/$user")  {
	$directoriohome = "/home/$user";
}
if (-d "/home2/$user") {
	$directoriohome = "/home2/$user";
}
if (-d "/home3/$user") {
	$directoriohome = "/home3/$user";
}
if (-d "/home4/$user"){
	$directoriohome = "/home4/$user";
}

if (-d "/home5/$user"){
        $directoriohome = "/home5/$user";
}

if (-d "/home6/$user"){
        $directoriohome = "/home6/$user";
}

system("rm","-rf","/mails/$user");
system("mv","$directoriohome/mail","/mails/$user");
symlink("/mails/$user","$directoriohome/mail");