Ticket #1998: engine.3.patch

File engine.3.patch, 12.3 KB (added by JCD, 2 years ago)

Fixed few coding typos

  • engine/ispcp-alssub-mngr

     
    171171 
    172172        my $sub_pref = @$sub_data[2]; 
    173173 
    174         my $dmn_name = @$sub_data[7]; 
     174        my $dmn_name = @$sub_data[8]; 
    175175 
    176176        my $sub_name = "$sub_pref.$dmn_name"; 
    177177 
    178         my $dmn_ip = @$sub_data[33]; 
     178        my $dmn_ip = @$sub_data[34]; 
    179179 
    180180        my $timestamp = time; 
    181181 
    … …  
    376376 
    377377        my $sub_pref = @$sub_data[2]; 
    378378 
    379         my $dmn_name = @$sub_data[7]; 
     379        my $dmn_name = @$sub_data[8]; 
    380380 
    381381        my $sub_name = "$sub_pref.$dmn_name"; 
    382382 
    383         my $dmn_ip = @$sub_data[33]; 
     383        my $dmn_ip = @$sub_data[34]; 
    384384 
    385385        my $timestamp = time; 
    386386 
    … …  
    671671 
    672672        my $sub_mount = @$sub_data[3]; 
    673673 
    674         my $dmn_id = @$sub_data[6]; 
     674        my $url_forward = decode_entities(@$sub_data[4]); 
    675675 
    676         my $dmn_name = @$sub_data[7]; 
     676        my $dmn_id = @$sub_data[7]; 
    677677 
    678         my $dmn_grp_name = @$sub_data[13]; 
     678        my $dmn_name = @$sub_data[8]; 
     679 
     680        my $dmn_grp_name = @$sub_data[14]; 
    679681 
    680682        my $sub_name = "$sub_pref.$dmn_name"; 
    681683 
    682         my $sub_ip = @$sub_data[33]; 
     684        my $sub_ip = @$sub_data[34]; 
    683685 
    684         my ($sub_php, $sub_cgi) = (@$sub_data[31], @$sub_data[32]); 
     686        my ($sub_php, $sub_cgi) = (@$sub_data[32], @$sub_data[33]); 
    685687 
    686688        my $conf_dir = $main::cfg{'CONF_DIR'}; 
    687689 
    … …  
    695697                $sub_b, 
    696698                $sub_entry, 
    697699                $sub_e, 
     700            $sub_rdr_b, 
     701            $sub_rdr_entry, 
     702            $sub_rdr_e, 
    698703                $sub_cgi_b, 
    699704                $sub_cgi_entry, 
    700705                $sub_cgi_e, 
    … …  
    705710                $sub_php2_entry, 
    706711                $sub_php2_e, 
    707712                $sub_custom 
    708         ) = ('', '', '', '', '', '', '', '', '', '', '', '', ''); 
     713        ) = ('', '', '', '', '', '', '', '', '', '', '', '', '', '', '', ''); 
    709714 
    710715        (       $rs, 
    711716                $sub_b, 
    712717                $sub_entry, 
    713718                $sub_e, 
     719            $sub_rdr_b, 
     720            $sub_rdr_entry, 
     721            $sub_rdr_e, 
    714722                $sub_cgi_b, 
    715723                $sub_cgi_entry, 
    716724                $sub_cgi_e, 
    … …  
    726734                'sub_b.tpl', 
    727735                'sub_entry.tpl', 
    728736                'sub_e.tpl', 
     737            'sub_rdr_b.tpl', 
     738            'sub_rdr_entry.tpl', 
     739            'sub_rdr_e.tpl', 
    729740                'sub_cgi_b.tpl', 
    730741                'sub_cgi_entry.tpl', 
    731742                'sub_cgi_e.tpl', 
    … …  
    753764        my %tag_hash = ( 
    754765                '{DMN_NAME}' => $dmn_grp_name, 
    755766                '{DMN_GRP}' => $dmn_grp_name, 
     767            '{URI}' => $url_forward, 
    756768                '{STARTER_DIR}' => $main::cfg{'PHP_STARTER_DIR'}, 
    757769                '{PHP_VERSION}' => $main::cfg{'PHP_VERSION'}, 
    758770                '{BASE_SERVER_VHOST}' => $main::cfg{'BASE_SERVER_VHOST'}, 
    … …  
    777789                $sub_b, 
    778790                $sub_entry, 
    779791                $sub_e, 
     792            $sub_rdr_entry, 
    780793                $sub_cgi_entry, 
    781794                $sub_php2_entry, 
    782795                $sub_custom 
    … …  
    785798                $sub_b, 
    786799                $sub_entry, 
    787800                $sub_e, 
     801            $sub_rdr_entry, 
    788802                $sub_cgi_entry, 
    789803                $sub_php2_entry, 
    790804                $sub_custom 
    … …  
    793807        return ($rs, '') if ($rs != 0); 
    794808 
    795809        # 
     810        # Any REDIRECT entry? 
     811        # 
     812        if ($url_forward ne 'no') { 
     813            my $rdr_entry = "$sub_rdr_b$sub_rdr_entry$sub_rdr_e"; 
     814            ($rs, $sub_entry) = repl_tag( 
     815                        $sub_rdr_b, 
     816                        $sub_rdr_e, 
     817                        $sub_entry, 
     818                        $rdr_entry, 
     819                        "gen_httpd_alssub_group_entry" 
     820            ); 
     821            return ($rs, '') if ($rs != 0); 
     822        } 
     823 
     824        my $sub_entry_val = "$sub_b$sub_entry$sub_e"; 
     825 
     826        # 
    796827        # Any CGI support ? 
    797828        # 
    798829 
    … …  
    899930 
    900931        my $sub_pref = @$sub_data[2]; 
    901932 
    902         my $dmn_name = @$sub_data[7]; 
     933        my $dmn_name = @$sub_data[8]; 
    903934 
    904         my $dmn_grp_name = @$sub_data[13]; 
     935        my $dmn_grp_name = @$sub_data[14]; 
    905936 
    906937        my $sub_name = "$sub_pref.$dmn_name"; 
    907938 
    908939        my $sub_mount = @$sub_data[3]; 
    909940 
    910         my $sub_ip = @$sub_data[33]; 
     941        my $sub_ip = @$sub_data[34]; 
    911942 
    912943        my $conf_dir = $main::cfg{'CONF_DIR'}; 
    913944 
    … …  
    12041235 
    12051236        my $sub_pref = @$sub_data[2]; 
    12061237 
    1207         my $dmn_name = @$sub_data[7]; 
     1238        my $dmn_name = @$sub_data[8]; 
    12081239 
    1209         my $dmn_grp_name = @$sub_data[13]; 
     1240        my $dmn_grp_name = @$sub_data[14]; 
    12101241 
    12111242        my $sub_name = "$sub_pref.$dmn_name"; 
    12121243 
    12131244        my $sub_mount = @$sub_data[3]; 
    12141245 
    1215         my $sub_ip = @$sub_data[33]; 
     1246        my $sub_ip = @$sub_data[34]; 
    12161247 
    12171248        my $conf_dir = $main::cfg{'CONF_DIR'}; 
    12181249 
    … …  
    14511482 
    14521483        my $sub_mount = @$sub_data[3]; 
    14531484 
    1454         my $dmn_id = @$sub_data[6]; 
     1485        my $dmn_id = @$sub_data[7]; 
    14551486 
    1456         my $dmn_name = @$sub_data[7]; 
     1487        my $dmn_name = @$sub_data[8]; 
    14571488 
    1458         my $dmn_grp_name = @$sub_data[13]; 
     1489        my $dmn_grp_name = @$sub_data[14]; 
    14591490 
    14601491        my $sub_name = "$sub_pref.$dmn_name"; 
    14611492 
    … …  
    15931624 
    15941625        my $sub_mount = @$sub_data[3]; 
    15951626 
    1596         my $dmn_id = @$sub_data[6]; 
     1627        my $dmn_id = @$sub_data[7]; 
    15971628 
    1598         my $dmn_name = @$sub_data[7]; 
     1629        my $dmn_name = @$sub_data[8]; 
    15991630 
    1600         my $dmn_grp_name = @$sub_data[13]; 
     1631        my $dmn_grp_name = @$sub_data[14]; 
    16011632 
    16021633        my $sub_name = "$sub_pref.$dmn_name"; 
    16031634 
    … …  
    16601691 
    16611692        my $sub_mount = @$sub_data[3]; 
    16621693 
    1663         my $dmn_name = @$sub_data[7]; 
     1694        my $dmn_name = @$sub_data[8]; 
    16641695 
    1665         my $dmn_id = @$sub_data[12]; 
     1696        my $dmn_id = @$sub_data[13]; 
    16661697 
    1667         my $dmn_grp_name = @$sub_data[13]; 
     1698        my $dmn_grp_name = @$sub_data[14]; 
    16681699 
    16691700        my $sub_name = "$sub_pref.$dmn_name"; 
    16701701 
    … …  
    18551886 
    18561887        my $sub_pref = @$sub_data[2]; 
    18571888 
    1858         my $dmn_name = @$sub_data[7]; 
     1889        my $dmn_name = @$sub_data[8]; 
    18591890 
    18601891        my $sub_name = "$sub_pref.$dmn_name"; 
    18611892 
    … …  
    19491980 
    19501981        my $sub_pref = @$sub_data[2]; 
    19511982 
    1952         my $dmn_name = @$sub_data[7]; 
     1983        my $dmn_name = @$sub_data[8]; 
    19531984 
    19541985        my $sub_name = "$sub_pref.$dmn_name"; 
    19551986 
    … …  
    20522083 
    20532084        my $sub_pref = @$sub_data[2]; 
    20542085 
    2055         my $dmn_name = @$sub_data[7]; 
     2086        my $dmn_name = @$sub_data[8]; 
    20562087 
    20572088        my $sub_name = "$sub_pref.$dmn_name"; 
    20582089 
    … …  
    20972128 
    20982129        my $sub_pref = @$sub_data[2]; 
    20992130 
    2100         my $dmn_name = @$sub_data[7]; 
     2131        my $dmn_name = @$sub_data[8]; 
    21012132 
    21022133        my $sub_name = "$sub_pref.$dmn_name"; 
    21032134 
    … …  
    22292260        my $subdomain_id     = @$sub_data[0]; 
    22302261        my $sub_name         = @$sub_data[2]; 
    22312262        my $sub_mount_point  = @$sub_data[3]; 
    2232         my $domain_id        = @$sub_data[6]; 
    2233         my $sub_to           = @$sub_data[7]; 
    2234         my $alias_to         = @$sub_data[13]; 
     2263        my $domain_id        = @$sub_data[7]; 
     2264        my $sub_to           = @$sub_data[8]; 
     2265        my $alias_to         = @$sub_data[14]; 
    22352266 
    22362267        my $conf_dir         = $main::cfg{'CONF_DIR'}; 
    22372268        my $proftpd_conf_dir = $main::cfg{'FTPD_CONF_DIR'}; 
    … …  
    24182449        # 
    24192450 
    24202451        my $sub_name         = @$sub_data[2]; 
    2421         my $sub_to           = @$sub_data[7]; 
     2452        my $sub_to           = @$sub_data[8]; 
    24222453        my $conf_dir         = $main::cfg{'CONF_DIR'}; 
    24232454        my $proftpd_conf_dir = $main::cfg{'FTPD_CONF_DIR'}; 
    24242455        my $sub_fname        = "$sub_name.$sub_to.conf"; 
    … …  
    26692700                        t1.alias_id, 
    26702701                        t1.subdomain_alias_name, 
    26712702                        t1.subdomain_alias_mount, 
     2703                        t1.subdomain_alias_url_forward, 
    26722704                        t1.subdomain_alias_status, 
    26732705                        t2.alias_id, 
    26742706                        t2.domain_id, 
    … …  
    27202752 
    27212753        my $entry = @$rows[0]; 
    27222754 
    2723         my ($sub_status, $sub_id) = (@$entry[4], @$entry[0]); 
     2755        my ($sub_status, $sub_id) = (@$entry[5], @$entry[0]); 
    27242756 
    27252757        my $timestamp = undef; 
    27262758 

  • engine/ispcp-sub-mngr

     
    169169        # 
    170170 
    171171        my $sub_pref = @$sub_data[2]; 
    172         my $dmn_name = @$sub_data[6]; 
     172        my $dmn_name = @$sub_data[7]; 
    173173        my $sub_name = "$sub_pref.$dmn_name"; 
    174         my $dmn_ip = @$sub_data[26]; 
     174        my $dmn_ip = @$sub_data[27]; 
    175175 
    176176        my $timestamp = time; 
    177177 
    … …  
    390390        # 
    391391 
    392392        my $sub_pref = @$sub_data[2]; 
    393         my $dmn_name = @$sub_data[6]; 
     393        my $dmn_name = @$sub_data[7]; 
    394394        my $sub_name = "$sub_pref.$dmn_name"; 
    395         my $dmn_ip = @$sub_data[26]; 
     395        my $dmn_ip = @$sub_data[27]; 
    396396 
    397397        my $timestamp = time; 
    398398 
    … …  
    690690 
    691691        my $sub_pref = @$sub_data[2]; 
    692692        my $sub_mount = @$sub_data[3]; 
    693         my $dmn_id = @$sub_data[5]; 
    694         my $dmn_name = @$sub_data[6]; 
     693        my $url_forward = decode_entities(@$sub_data[4]); 
     694        my $dmn_id = @$sub_data[6]; 
     695        my $dmn_name = @$sub_data[7]; 
    695696        my $sub_name = "$sub_pref.$dmn_name"; 
    696         my $sub_ip = @$sub_data[26]; 
    697         my ($sub_php, $sub_cgi) = (@$sub_data[24], @$sub_data[25]); 
     697        my $sub_ip = @$sub_data[27]; 
     698        my ($sub_php, $sub_cgi) = (@$sub_data[25], @$sub_data[26]); 
    698699 
    699700        my $conf_dir = $main::cfg{'CONF_DIR'}; 
    700701 
    … …  
    707708        my ($sub_b, 
    708709                $sub_entry, 
    709710                $sub_e, 
     711            $sub_rdr_b, 
     712            $sub_rdr_entry, 
     713            $sub_rdr_e, 
    710714                $sub_cgi_b, 
    711715                $sub_cgi_entry, 
    712716                $sub_cgi_e, 
    … …  
    717721                $sub_php2_entry, 
    718722                $sub_php2_e, 
    719723                $sub_custom 
    720         ) = ('', '', '', '', '', '', '', '', '', '', '', '', ''); 
     724        ) = ('', '', '', '', '', '', '', '', '', '', '', '', '', '', '', ''); 
    721725 
    722726        (       $rs, 
    723727                $sub_b, 
    724728                $sub_entry, 
    725729                $sub_e, 
     730            $sub_rdr_b, 
     731            $sub_rdr_entry, 
     732            $sub_rdr_e, 
    726733                $sub_cgi_b, 
    727734                $sub_cgi_entry, 
    728735                $sub_cgi_e, 
    … …  
    738745                'sub_b.tpl', 
    739746                'sub_entry.tpl', 
    740747                'sub_e.tpl', 
     748            'sub_rdr_b.tpl', 
     749            'sub_rdr_entry.tpl', 
     750            'sub_rdr_e.tpl', 
    741751                'sub_cgi_b.tpl', 
    742752                'sub_cgi_entry.tpl', 
    743753                'sub_cgi_e.tpl', 
    … …  
    765775        my %tag_hash = ( 
    766776                '{DMN_NAME}' => $dmn_name, 
    767777                '{DMN_GRP}' => $dmn_name, 
     778            '{URI}' => $url_forward, 
    768779                '{STARTER_DIR}' => $main::cfg{'PHP_STARTER_DIR'}, 
    769780                '{PHP_VERSION}' => $main::cfg{'PHP_VERSION'}, 
    770781                '{BASE_SERVER_VHOST}' => $main::cfg{'BASE_SERVER_VHOST'}, 
    … …  
    789800                $sub_b, 
    790801                $sub_entry, 
    791802                $sub_e, 
     803            $sub_rdr_entry, 
    792804                $sub_cgi_entry, 
    793805                $sub_php2_entry, 
    794806                $sub_custom 
    … …  
    797809                $sub_b, 
    798810                $sub_entry, 
    799811                $sub_e, 
     812            $sub_rdr_entry, 
    800813                $sub_cgi_entry, 
    801814                $sub_php2_entry, 
    802815                $sub_custom 
    … …  
    804817        return ($rs, '') if ($rs != 0); 
    805818 
    806819        # 
     820        # Any REDIRECT entry? 
     821        # 
     822        if ($url_forward ne 'no') { 
     823            my $rdr_entry = "$sub_rdr_b$sub_rdr_entry$sub_rdr_e"; 
     824            ($rs, $sub_entry) = repl_tag( 
     825                        $sub_rdr_b, 
     826                        $sub_rdr_e, 
     827                        $sub_entry, 
     828                        $rdr_entry, 
     829                        "gen_httpd_sub_group_entry" 
     830             ); 
     831            return ($rs, '') if ($rs != 0); 
     832        } 
     833 
     834         my $sub_entry_val = "$sub_b$sub_entry$sub_e"; 
     835 
     836        # 
    807837        # Any CGI support ? 
    808838        # 
    809839 
    … …  
    903933        # 
    904934 
    905935        my $sub_pref = @$sub_data[2]; 
    906         my $dmn_name = @$sub_data[6]; 
     936        my $dmn_name = @$sub_data[7]; 
    907937        my $sub_name = "$sub_pref.$dmn_name"; 
    908938        my $sub_mount = @$sub_data[3]; 
    909         my $sub_ip = @$sub_data[26]; 
     939        my $sub_ip = @$sub_data[27]; 
    910940 
    911941 
    912942        my $conf_dir = $main::cfg{'CONF_DIR'}; 
    … …  
    11871217        # 
    11881218 
    11891219        my $sub_pref = @$sub_data[2]; 
    1190         my $dmn_name = @$sub_data[6]; 
     1220        my $dmn_name = @$sub_data[7]; 
    11911221        my $sub_name = "$sub_pref.$dmn_name"; 
    11921222        my $sub_mount = @$sub_data[3]; 
    1193         my $sub_ip = @$sub_data[26]; 
     1223        my $sub_ip = @$sub_data[27]; 
    11941224 
    11951225        my $conf_dir = $main::cfg{'CONF_DIR'}; 
    11961226        my $tpl_dir = "$conf_dir/apache/parts"; 
    … …  
    14291459        my $sub_pref = @$sub_data[2]; 
    14301460        my $sub_mount = @$sub_data[3]; 
    14311461 
    1432         my $dmn_id = @$sub_data[5]; 
    1433         my $dmn_name = @$sub_data[6]; 
     1462        my $dmn_id = @$sub_data[6]; 
     1463        my $dmn_name = @$sub_data[7]; 
    14341464        my $sub_name = "$sub_pref.$dmn_name"; 
    14351465 
    14361466        my $root_dir = $main::cfg{'ROOT_DIR'}; 
    … …  
    15591589 
    15601590        my $sub_pref = @$sub_data[2]; 
    15611591        my $sub_mount = @$sub_data[3]; 
    1562         my $dmn_id = @$sub_data[5]; 
    1563         my $dmn_name = @$sub_data[6]; 
     1592        my $dmn_id = @$sub_data[6]; 
     1593        my $dmn_name = @$sub_data[7]; 
    15641594        my $sub_name = "$sub_pref.$dmn_name"; 
    15651595 
    15661596        my $root_dir = $main::cfg{'ROOT_DIR'}; 
    … …  
    16151645 
    16161646        my $sub_pref = @$sub_data[2]; 
    16171647        my $sub_mount = @$sub_data[3]; 
    1618         my $dmn_name = @$sub_data[6]; 
     1648        my $dmn_name = @$sub_data[7]; 
    16191649        my $dmn_id = @$sub_data[1]; 
    16201650 
    16211651        my $sub_name = "$sub_pref.$dmn_name"; 
    … …  
    18071837        } 
    18081838 
    18091839        my $sub_pref = @$sub_data[2]; 
    1810         my $dmn_name = @$sub_data[6]; 
     1840        my $dmn_name = @$sub_data[7]; 
    18111841        my $sub_name = "$sub_pref.$dmn_name"; 
    18121842 
    18131843        my $conf_dir = $main::cfg{'CONF_DIR'}; 
    … …  
    20132043        } 
    20142044 
    20152045        my $sub_pref = @$sub_data[2]; 
    2016         my $dmn_name = @$sub_data[6]; 
     2046        my $dmn_name = @$sub_data[7]; 
    20172047        my $sub_name = "$sub_pref.$dmn_name"; 
    20182048 
    20192049        my $virtual_mail_dir = $main::cfg{'MTA_VIRTUAL_MAIL_DIR'}; 
    … …  
    20552085        } 
    20562086 
    20572087        my $sub_pref = @$sub_data[2]; 
    2058         my $dmn_name = @$sub_data[6]; 
     2088        my $dmn_name = @$sub_data[7]; 
    20592089        my $sub_name = "$sub_pref.$dmn_name"; 
    20602090 
    20612091        my $virtual_mail_dir = $main::cfg{'MTA_VIRTUAL_MAIL_DIR'}; 
    … …  
    21942224        my $domain_id        = @$sub_data[1]; 
    21952225        my $sub_name         = @$sub_data[2]; 
    21962226        my $sub_mount_point  = @$sub_data[3]; 
    2197         my $sub_to           = @$sub_data[6]; 
     2227        my $sub_to           = @$sub_data[7]; 
    21982228 
    21992229        my $conf_dir         = $main::cfg{'CONF_DIR'}; 
    22002230        my $proftpd_conf_dir = $main::cfg{'FTPD_CONF_DIR'}; 
    … …  
    23832413        # 
    23842414 
    23852415        my $sub_name         = @$sub_data[2]; 
    2386         my $sub_to           = @$sub_data[6]; 
     2416        my $sub_to           = @$sub_data[7]; 
    23872417        my $conf_dir         = $main::cfg{'CONF_DIR'}; 
    23882418        my $proftpd_conf_dir = $main::cfg{'FTPD_CONF_DIR'}; 
    23892419        my $sub_fname        = "$sub_name.$sub_to.conf"; 
    … …  
    26292659                        t1.domain_id, 
    26302660                        t1.subdomain_name, 
    26312661                        t1.subdomain_mount, 
     2662                        t1.subdomain_url_forward, 
    26322663                        t1.subdomain_status, 
    26332664                        t2.domain_id, 
    26342665                        t2.domain_name, 
    … …  
    26702701 
    26712702        my $entry = @$rows[0]; 
    26722703 
    2673         my ($sub_status, $sub_id) = (@$entry[4], @$entry[0]); 
     2704        my ($sub_status, $sub_id) = (@$entry[5], @$entry[0]); 
    26742705 
    26752706        my $timestamp = undef; 
    26762707