#!/usr/bin/perl

print "What is the domain?\n";
$domain = <STDIN>;
chomp($domain);
$domain = lc($domain);

print "Give me the pop user id ?\n";
$userid = <STDIN>;
chomp($userid);
$userid = lc($userid);

print "Give me the pop user password ?\n";
$userid = <STDIN>;
chomp($useridpass);
$userid = lc($useridpass);

  
  $pass=$useridpass;

system("adduser -d /home/\"$userid\" -s /bin/false -c \"$domain\" $userid");

system("echo $pass | passwd $userid --stdin");

system("touch /usr/local/exim/aliases/aliases.$domain");
system("chown nobody /usr/local/exim/aliases/aliases.$domain");
system("chgrp nobody /usr/local/exim/aliases/aliases.$domain");
system("chmod 644 /usr/local/exim/aliases/aliases.$domain");

      open (MAINCONF3, ">/usr/local/exim/aliases/aliases.$domain")
 or
      die("unable to open main Alias File.");

        print MAINCONF3 "\#$pass\n";
        print MAINCONF3 "\#$userid\n";
        print MAINCONF3 "postmaster:$userid\n";
        print MAINCONF3 "sales:$userid\n";
        print MAINCONF3 "info:$userid\n";
        print MAINCONF3 "enquiries:$userid\n";
        print MAINCONF3 "webmaster:$userid\n";
        print MAINCONF3 "support:$userid\n";
        print MAINCONF3 "\n\n";

      close(MAINCONF3);

      open (MAIN5, ">> /usr/local/exim/config/domains")
 or
      die("unable to open main Exim Domain File.");

        print MAIN5 "$domain:\n";

      close(MAIN5);

print "done \n";
print "userid = $userid Password - $pass \n";
