Fix hestiacp#1767 Limit Web aliases

Author: jaapmarcus

bin/v-add-web-domain

@@ -52,7 +52,10 @@ check_args '2' "$#" 'USER DOMAIN [IP] [RESTART] [ALIASES] [PROXY_EXTENSIONS]'
 is_format_valid 'user' 'domain' 'aliases' 'ip' 'proxy_ext'
 is_object_valid 'user' 'USER' "$user"
 is_object_unsuspended 'user' 'USER' "$user"
-is_package_full 'WEB_DOMAINS' 'WEB_ALIASES'
+# Make the new aliases are also counted for when creating a new domain. 
+ALIAS=$aliases
+is_package_full 'WEB_DOMAINS'
+is_package_full 'WEB_ALIASES'
 
 if [ "$($BIN/v-list-web-domain $user $domain_utf plain |cut -f 1) " != "$domain" ]; then
     is_domain_new 'web' "$domain_utf,$aliases"

bin/v-add-web-domain-alias

@@ -41,6 +41,9 @@ format_aliases
 #                    Verifications                         #
 #----------------------------------------------------------#
 
+# Parsing domain values as they are used to get the current alias usage
+get_domain_values 'web'
+
 if [ -z "$aliases" ]; then
     check_result $E_INVALID "invalid alias format: empty"
 fi
@@ -65,9 +68,6 @@ check_hestia_demo_mode
 #                       Action                             #
 #----------------------------------------------------------#
 
-# Parsing domain values
-get_domain_values 'web'
-
 # Preparing domain values for the template substitution
 local_ip=$(get_real_ip $IP)
 if [ -z "$ALIAS" ]; then

func/main.sh

@@ -169,7 +169,7 @@ is_system_enabled() {
 is_package_full() {
     case "$1" in
         WEB_DOMAINS) used=$(wc -l $USER_DATA/web.conf);;
-        WEB_ALIASES) used=$(echo $aliases |tr ',' '\n' |wc -l);;
+        WEB_ALIASES) used=$(echo $ALIAS |tr ',' '\n' | wc -l );;
         DNS_DOMAINS) used=$(wc -l $USER_DATA/dns.conf);;
         DNS_RECORDS) used=$(wc -l $USER_DATA/dns/$domain.conf);;
         MAIL_DOMAINS) used=$(wc -l $USER_DATA/mail.conf);;