Subdomain keine index.html !!!

[ZooL]

Code:

#
1476        # Default domain page template;
1477        #
1478    
1479        # check if htdocs folder not exists
1480        if (!(-e "$sub_dir/htdocs/")) {
1481    
1482            ($rs, $rdata) = make_dir(
1483                                   "$sub_dir/htdocs",
1484                                    $sys_user,
1485                                    $sys_group,
1486                                    0755
1487                           );
1488    
1489            return $rs if ($rs != 0);
1490    
1491            my $index_tpl = '';
1492            my $vhost = $main::cfg{'BASE_SERVER_VHOST'};
1493    
1494            ($rs, $index_tpl) = get_file("$root_dir/gui/domain_default_page/index.html");
1495    
1496            return $rs if ($rs != 0);
1497    
1498            $index_tpl =~ s/{DOMAIN_NAME}/$sub_name/gi;
1499            $index_tpl =~ s/{BASE_SERVER_VHOST}/$vhost/gi;
1500    
1501            ($rs, $rdata) = store_file(
1502                                      "$sub_dir/htdocs/index.html",
1503                                       $index_tpl,
1504                                       $sys_user,
1505                                       $sys_group,
1506                                       0644
1507                            );
1508    
1509            return $rs if ($rs != 0);
1510    
1511            $rs = sys_command("$main::cfg{'CMD_CP'} -rp $root_dir/gui/domain_default_page/images $sub_dir/htdocs/");
1512            return $rs if ($rs != 0);
1513    
1514            $rs = setfmode("$sub_dir/htdocs/images/", $sys_user, $sys_group, 0755);
1515            return $rs if ($rs != 0);
1516    
1517            opendir(DIR, "$sub_dir/htdocs/images/");
1518            my @files = readdir(DIR);
1519            closedir(DIR);
1520    
1521            foreach (@files) {
1522                # ignore . and .. :
1523                next if ($_ eq "." || $_ eq "..");
1524                $rs = setfmode("$sub_dir/htdocs/images/$_", $sys_user, $sys_group, 0644);
1525                return $rs if ($rs != 0);
1526            }
1527        }
1528    
1529        push_el(\@main::el, 'sub_add_httpd_file_data()', 'Ending...');
1530    
1531        return 0;
1532    
1533    }
1534

Das ist die Funktion beim Ändern das es der User/Kunde machen darf, soll,
kann ich dir nicht helfen kann es nur ausklammern glaub ich, aber muss jetzt erstmal einkaufen