mirror of
https://github.com/webmin/webmin.git
synced 2026-10-29 06:31:04 +00:00
123 lines
3.9 KiB
Perl
Executable File
123 lines
3.9 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
|
|
require "gray-theme/gray-theme-lib.pl";
|
|
require "gray-theme/theme.pl";
|
|
&ReadParse();
|
|
|
|
# Work out which module to open by default
|
|
$hasvirt = &foreign_available("virtual-server");
|
|
$hasvm2 = &foreign_available("server-manager");
|
|
if ($in{'dom'} && $hasvirt) {
|
|
# Caller has requested a specific domain ..
|
|
&foreign_require("virtual-server", "virtual-server-lib.pl");
|
|
$d = &virtual_server::get_domain($in{'dom'});
|
|
if ($d) {
|
|
$goto = &virtual_server::can_config_domain($d) ?
|
|
"virtual-server/edit_domain.cgi?dom=$d->{'id'}" :
|
|
"virtual-server/view_domain.cgi?dom=$d->{'id'}";
|
|
$left = "left.cgi?dom=$d->{'id'}";
|
|
}
|
|
}
|
|
if (!$goto) {
|
|
# Default is determined by theme or Webmin config,
|
|
# defaults to system info page
|
|
local $sects = &get_right_frame_sections();
|
|
$minfo = &get_goto_module();
|
|
if ($sects->{'list'} == 1 && $hasvirt) {
|
|
$goto = "virtual-server/";
|
|
}
|
|
elsif ($sects->{'list'} == 2 && $hasvm2) {
|
|
$goto = "server-manager/";
|
|
}
|
|
elsif ($minfo &&
|
|
$minfo->{'dir'} ne 'virtual-server' &&
|
|
$minfo->{'dir'} ne 'server-manager') {
|
|
$goto = "$minfo->{'dir'}/";
|
|
}
|
|
else {
|
|
$goto = "right.cgi".
|
|
"?open=system&auto=status&open=updates&".
|
|
"open=common&open=owner&open=reseller&open=vm2limits&".
|
|
"open=vm2usage";
|
|
}
|
|
$left = "left.cgi";
|
|
if ($minfo) {
|
|
$left .= "?$minfo->{'category'}=1";
|
|
}
|
|
}
|
|
|
|
# Work out the title that includes the version
|
|
if ($hasvirt) {
|
|
%minfo = &get_module_info("virtual-server");
|
|
$title = &text('index_virtualmintitle', $minfo{'version'});
|
|
}
|
|
elsif ($hasvm2) {
|
|
%minfo = &get_module_info("server-manager");
|
|
$title = &text('index_cloudmintitle', $minfo{'version'});
|
|
}
|
|
elsif (&get_product_name() eq 'usermin') {
|
|
$title = &text('index_usermintitle', &get_webmin_version());
|
|
}
|
|
else {
|
|
$title = &text('index_webmintitle', &get_webmin_version());
|
|
}
|
|
$title = &get_html_title($title);
|
|
|
|
# Show frameset
|
|
&PrintHeader();
|
|
$cols = &get_left_frame_width();
|
|
$frame1 = "<frame name=left title=Navigation src='$left' scrolling=auto>";
|
|
$frame2 = "<frame name=right title=Content src='$goto' noresize scrolling=auto>";
|
|
$fscols = "$cols,*";
|
|
if ($current_lang_info->{'rtl'} || $current_lang eq "ar") {
|
|
($frame1, $frame2) = ($frame2, $frame1);
|
|
$fscols = "*,$cols";
|
|
}
|
|
|
|
# The frameset declares the scheme inherited by its frames. The script keeps
|
|
# an automatic scheme stable across reloads and provides the per-tab Alt+T
|
|
# toggle and Alt+R content-frame reload. The stylesheet paints the background
|
|
# behind frames while they load.
|
|
$scheme = &theme_color_scheme();
|
|
print "<html".($scheme ? " data-scheme='$scheme'" : "").">\n";
|
|
print "<head>\n";
|
|
print "<meta name='color-scheme' content='".($scheme || "light dark")."'>\n";
|
|
print &theme_scheme_script($scheme);
|
|
print "<link rel='stylesheet' type='text/css' href='".&get_webprefix().
|
|
"/unauthenticated/gray-theme.css?".
|
|
&theme_asset_key("gray-theme.css")."'>\n";
|
|
print &ui_switch_theme_javascript();
|
|
print "<title>$title</title>\n";
|
|
my $imgdir = "@{[&get_webprefix()]}/images";
|
|
my $prod = 'webmin';
|
|
if (foreign_available("server-manager")) {
|
|
$prod = 'cloudmin';
|
|
}
|
|
elsif (foreign_available("virtual-server")) {
|
|
$prod = 'virtualmin';
|
|
}
|
|
elsif (get_product_name() eq 'usermin') {
|
|
$prod = 'usermin';
|
|
}
|
|
print "<link rel='icon' type='image/png' sizes='16x16' href='$imgdir/favicons/$prod/favicon-16x16.png'>\n";
|
|
print "<link rel='icon' type='image/png' sizes='32x32' href='$imgdir/favicons/$prod/favicon-32x32.png'>\n";
|
|
print "<link rel='icon' type='image/png' sizes='192x192' href='$imgdir/favicons/$prod/favicon-192x192.png'>\n";
|
|
print "</head>\n";
|
|
|
|
# Left and right frames
|
|
print "<frameset cols='$fscols' border=0>\n";
|
|
print $frame1,"\n";
|
|
print $frame2,"\n";
|
|
|
|
# What if no frames?
|
|
print "<noframes>\n";
|
|
print "<body>\n";
|
|
print "<p>This page uses frames, but your browser doesn't support them.</p>\n";
|
|
print "</body>\n";
|
|
print "</noframes>\n";
|
|
|
|
# End of the frames and page
|
|
print "</frameset>\n";
|
|
print "</html>\n";
|
|
|