Thread problem mit syntax (9 answers)
Opened by monty at 2011-04-10 18:52

monty
 2011-04-10 19:30
#147536 #147536
User since
2011-04-10
5 Artikel
BenutzerIn
[default_avatar]
hm - hier einmal der komplette part $err_cfg_dir soll hier durch die bedingung ersetzt werden:
Code (perl): (dl )
1
2
3
4
5
6
7

my ($index_tpl, $err_cfg_dir) = (undef, undef);
my $vhost = $main::cfg{'BASE_SERVER_VHOST'};
my $prefix = $main::cfg{'BASE_SERVER_VHOST_PREFIX'};
$err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/default_page";

$rs, $index_tpl) = get_tpl($err_cfg_dir, 'index.html');
return $rs if ($rs != 0);

momentan funktioniert es so nicht:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13

my ($index_tpl, $err_cfg_dir) = (undef, undef);
my $vhost = $main::cfg{'BASE_SERVER_VHOST'};
my $prefix = $main::cfg{'BASE_SERVER_VHOST_PREFIX'};

my $domain0 = $ENV{'HTTP_HOST'};
if $domain0 eq "admin.domain.tld" {
   $err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/default_page";
}
if $domain0 eq "admin.domain2.tld" {
  $err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/default_page2";
}

return $rs if ($rs != 0);

View full thread problem mit syntax