mirror of
https://github.com/webmin/webmin.git
synced 2025-07-29 11:50:54 +00:00
51 lines
1.4 KiB
Perl
Executable File
51 lines
1.4 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# index.cgi
|
|
# Redirect to another URL
|
|
|
|
BEGIN { push(@INC, ".."); };
|
|
use WebminCore;
|
|
&init_config();
|
|
%access = &get_module_acl();
|
|
$url = $access{'link'} || $config{'link'};
|
|
$host = $ENV{'HTTP_HOST'};
|
|
$host =~ s/:.*$//;
|
|
$url =~ s/\$\{REMOTE_USER\}/$remote_user/g ||
|
|
$url =~ s/\$REMOTE_USER/$remote_user/g;
|
|
$url =~ s/\$\{HTTP_HOST\}/$host/g ||
|
|
$url =~ s/\$HTTP_HOST/$host/g;
|
|
if (($url =~ /\$VIRTUALSERVER_/ || $url =~ /\$\{VIRTUALSERVER_/) &&
|
|
&foreign_check("virtual-server")) {
|
|
&foreign_require("virtual-server", "virtual-server-lib.pl");
|
|
$dom = &virtual_server::get_domain_by("user", $remote_user,
|
|
"parent", "");
|
|
if ($dom) {
|
|
foreach $k (keys %$dom) {
|
|
$uck = "VIRTUALSERVER_".uc($k);
|
|
$url =~ s/\$\{$uck\}/$dom->{$k}/g ||
|
|
$url =~ s/\$$uck/$dom->{$k}/g;
|
|
}
|
|
}
|
|
else {
|
|
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
|
|
&error($text{'index_evirtualmin'});
|
|
}
|
|
}
|
|
if ($url && $config{'immediate'}) {
|
|
&redirect($url);
|
|
}
|
|
else {
|
|
# Show a link page
|
|
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
|
|
if ($url) {
|
|
$desc = $access{'desc'} || $config{'desc'} ||
|
|
"Open URL $url";
|
|
$target = $config{'window'} ? "target=$module_name" : "";
|
|
print "<font size=+1><a href='$url' $target>$desc</a></font><p>\n";
|
|
}
|
|
else {
|
|
print &text('index_econfig', "../config.cgi?$module_name"),"<p>\n";
|
|
}
|
|
&ui_print_footer("/", $text{'index'});
|
|
}
|
|
|