print ("Number of aliases processed:\t\t\t\t", $countalias,"\n");print ("Number of aliases from alias file processed:\t\t",@donealias + 1,"\n");print ("Number of forwards processed:\t\t\t\t",$countforward,"\n");print ("Number of forwards from alias file processed:\t\t",$countaliasforward,"\n");$dbh->disconnect();#processalias()sub processalias { #now we could stop processing if the user is created already#but god(root?) knows if alias is aliased to itself  foreach $line2 (@MYALIASFILE) {    @values3=split(/:/,$line2);    if( ( ! ($line2 =~ /^#/) ) && $_[0] ne "PROCESS_WHOLE_ALIAS_FILE") {      $aliasname=$values3[0];      $aliasname=~ s/^\s+|\s+$//g;      if ($sysuname eq $aliasname) {        push(@donealias,$aliasname);        @aliastgt=split(/,/,$values3[1]);        foreach $line3 (@aliastgt) {          $line3=~ s/^\s+|\s+$//g;          if( $line3 =~ /@/) {            $countaliasforward+=1;            if($DEBUG >= 10) {              print("Creating forward for user $virtuname\@$domain to $line3 \n");            }            $sth = $dbh->prepare("SELECT pw_dir FROM  vpopmail  where pw_name='postmaster'  and pw_domain='$domain'");            $sth->execute;            while (my $ref = $sth->fetchrow_arrayref) {              $mdir= $$ref[0];            }            $sth->finish;            #fix the aliases with . inside to :            $virtuname1=$virtuname;            $virtuname1=~ s/(.+)\.(.+)/$1\:$2/g;            $virtuname1=lc($virtuname);            open(OUTFILE, ">$mdir/../.qmail-$virtuname1");            print OUTFILE "&$line3";            close (OUTFILE);            } else {            if($DEBUG >= 20) {              print("Creating $line3 which is aliased from the alias $sysuname in virtusertable \n");              &createvpopmailuser($line3);            }          }        }      }    }  }  }#createaliasforward()sub createaliasforward {  #do not create an alias for the user we already created  if ($virtuname ne $sysuname) {    if ($sysuname =~ /error:/ ) {      if($DEBUG >= 20) {        print("We do not create aliases for error messages at $domain to $sysuname\n");      }    } else {      if ($virtuname eq "") {        if($DEBUG >= 20) {          print("Changing default email address to catchall account for $domain $sysuname\@$domain\n");        }        $virtuname=default;      }      #figure out if this is a forward or alias      if($sysuname =~ /@/) {        $countforward+=1;        if($DEBUG >= 10) {          print("Creating forward for user $virtuname\@$domain to $sysuname \n");        }        $sth = $dbh->prepare("SELECT pw_dir FROM  vpopmail  where pw_name='postmaster'  and pw_domain='$domain'");        $sth->execute;        while (my $ref = $sth->fetchrow_arrayref) {          $mdir= $$ref[0];        }	$sth->finish;        #fix the aliases with . inside to :        $virtuname1=$virtuname;        $virtuname1=~ s/(.+)\.(.+)/$1\:$2/g;        $virtuname1=lc($virtuname);        open(OUTFILE, ">$mdir/../.qmail-$virtuname1");        print OUTFILE "&$sysuname";        close (OUTFILE);      } else {        $countalias+=1;        if($DEBUG >= 10) {          print("Creating Alias for User $virtuname\@$domain to $sysuname\@$domain \n");        }        $sth = $dbh->prepare("SELECT pw_dir FROM  vpopmail  where pw_name='postmaster'  and pw_domain='$domain'");        $sth->execute;        while (my $ref = $sth->fetchrow_arrayref) {          $mdir= $$ref[0];        }	$sth->finish;        #fix the aliases with . inside to :        $virtuname1=$virtuname;        $virtuname1=~ s/(.+)\.(.+)/$1\:$2/g;        $virtuname1=lc($virtuname);        open(OUTFILE, ">$mdir/../.qmail-$virtuname1");        $sth = $dbh->prepare("SELECT pw_dir FROM  vpopmail  where pw_name='$sysuname'  and pw_domain='$domain'");        $sth->execute;        while (my $ref = $sth->fetchrow_arrayref) {          $mdir= $$ref[0];        }	$sth->finish;        print OUTFILE "$mdir/Maildir/\n";        close (OUTFILE);      }    }  }}#createvpopmailuser($username)sub createvpopmailuser {$notalias=0;  foreach $line1 (@MYPASSFILE) {    $domaindone=0;    $userdone=1;    @values2=split(/:/,$line1);    if( ( ! ($line1 =~ /^#/) ) && $_[0] eq "PROCESS_WHOLE_PASSWORD_FILE") {      $sysuname=$values2[0];      $syspass=$values2[1];      $sysuid=$values2[2];      if ($SPOOL eq 0) {        $SYSDIR=$values2[8];      }      $userdone=0;    }    if( ( ! ($line1 =~ /^#/) ) && $_[0] eq $values2[0]) {      $sysuname=$values2[0];      $syspass=$values2[1];      $sysuid=$values2[2];      if ($SPOOL eq 0) {        $SYSDIR=$values2[8];      }      $userdone=0;    }    if ( ($values2[2] < $MINUID || $values2[2] > $MAXUID) && $userdone eq 0) {      if ($DEBUG >= 10 && $userdone eq 0) {        print("Skipping creation of users UID less than $MINUID or more than $MAXUID\n");        print("Please process virtual accounts pointing to system account $sysuname manually\n");        sleep($SLEEPTIME);      }      $userdone=1;    }    #detect if we already processed some stuff...    foreach $elem (@donedom) {      if($elem eq $domain) {        $domaindone=1;      }    }    if($DUPLICATE eq 0) {      #if the username has @ then its forward...      foreach $elem (@doneuser) {        if($elem eq $sysuname || $sysuname =~ /@/ ) {          $userdone=1;        }      }    } else {      foreach $elem (@doneuser1) {        if($elem eq $sysuname || $sysuname =~ /@/ ) {          $userdone=1;        }      }    }    if ($DEBUG >= 20 && $userdone eq 0) {      print("System Username:UID:Password:Home/Spool Directory: $sysuname:$sysuid:$syspass:$SYSDIR \n");      sleep($SLEEPTIME);    }    #if we are creating a user for this domain first time.    if ($domaindone ne 1) {      print("Creating domain $domain and user(s)\n");      `$VPOPMAILHOMEDIR/bin/vadddomain  $domain  $POSTMASTERPASSWORD`;      $sth = $dbh->prepare("SELECT pw_dir FROM  vpopmail  where pw_name='postmaster'  and pw_domain='$domain'");      $sth->execute;      while (my $ref = $sth->fetchrow_arrayref) {        $mdir= $$ref[0];      }      $sth->finish;      open(OUTFILE, ">$mdir/../.qmailadmin-limits");      print OUTFILE "maxpopaccounts: $DEFAULTDOMUSERLIMIT\n";      print OUTFILE "maxaliases: $DEFAULTALIASLIMIT\n";      print OUTFILE "maxforwards: $DEFAULTFORWARDSLIMIT\n";      print OUTFILE "maxautoresponders: $DEFAULTAUTORESPONDERLIMIT\n";      print OUTFILE "maxmailinglists: $DEFAULTMAILLISTLIMIT\n";      print OUTFILE "default_quota: $DEFAULTDOMQUOTA\n";      close (OUTFILE);      push(@donedom,$domain);    }    #if we didnt create this user yet, somewhere else, sometime ago.    if ($userdone ne 1) {      #statistics :)      $countvpopuser+=1;      if ($SYSTEMQUOTA eq 1) {        $arg = Quota::getqcarg($SYSDIR);        ($block_curr, $block_soft, $block_hard, $block_timelimit,            $inode_curr, $inode_soft, $inode_hard, $inode_timelimit) =            Quota::query($arg,$sysuid);      } else {        $block_hard="";      }      if($block_hard ne "") {        if ($block_hard < $MINQUOTA) {          $block_hard=$MINQUOTA        }        $QUOTA="$block_hard" ."000S";        if($DEBUG >= 10) {          print("Creating User $sysuname\@$domain with quota $QUOTA \n");        }        `$VPOPMAILHOMEDIR/bin/vadduser -q $QUOTA  $sysuname\@$domain  $sysuname`;        } else {        if ($DEFAULTQUOTA ne 0) {          if($DEBUG >= 10) {            print("Creating User $sysuname\@$domain with default quota $DEFAULTQUOTA \n");          }          `$VPOPMAILHOMEDIR/bin/vadduser -q $DEFAULTQUOTA  $sysuname\@$domain  $sysuname`;        } else {          if($DEBUG >= 10) {            print("Creating User $sysuname\@$domain without quota \n");          }          `$VPOPMAILHOMEDIR/bin/vadduser $sysuname\@$domain  $sysuname`;        }      }      #update the vpopmail pasword with the system password      $dbh->do("UPDATE vpopmail SET pw_passwd='$syspass'  where pw_name='$sysuname' and pw_domain='$domain'");      $sth = $dbh->prepare("SELECT pw_dir FROM  vpopmail  where pw_name='$sysuname'  and pw_domain='$domain'");      $sth->execute;      while (my $ref = $sth->fetchrow_arrayref) {        $mdir= $$ref[0];      }      $sth->finish;      #copymails to user Maildir converting...      $MAILBOXDIR="$SYSDIR/$INBOX";      if ($DEBUG >= 20) {        print("User mail file $MAILBOXDIR \n");        sleep($SLEEPTIME);      }      if ( -e "$MAILBOXDIR" ) { # if user has any mail in spool        open(MAILSPOOL, "<$MAILBOXDIR") || next;        $i = time;        if($DEBUG >= 10) {          print("Copying and converting $sysuname mail to $mdir \n");        }        while(<MAILSPOOL>) {          if (/^From /) {            $filename = sprintf("%s/Maildir/new/%d.$$.mbox",$mdir, $i);            open(MBOX, ">$filename") || die("Unable to create new message");;            $i++;            next;          } #if ends          s/^>From /From /;          print MBOX || die ("Unable to write to new message");        } #while mailspool ends        close(MAILSPOOL);        close(MBOX);      } # if -e $MAILBOXDIR ends      push(@doneuser,$sysuname);      if ($DUPLICATE ne 0 && $domain eq $DEFAULTDOMAIN) {        push(@doneuser1,$sysuname);      }      if ($domain eq $DEFAULTDOMAIN) {        #for statistics        $countdefaultdomain+=1;      }     }  }}