mirror of
https://github.com/webmin/webmin.git
synced 2026-02-06 07:22:20 +00:00
43 lines
886 B
Perl
Executable File
43 lines
886 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
BEGIN { push(@INC, ".."); };
|
|
use WebminCore;
|
|
&ReadParse();
|
|
&init_config();
|
|
%text = &load_language($current_theme);
|
|
|
|
if ($in{'mod'}) {
|
|
$minfo = { &get_module_info($in{'mod'}) };
|
|
}
|
|
else {
|
|
$minfo = &get_goto_module();
|
|
}
|
|
$goto = $minfo ? "$minfo->{'dir'}/" :
|
|
$in{'page'} ? "" :
|
|
"right.cgi?open=system&open=status";
|
|
if ($minfo) {
|
|
$cat = "?$minfo->{'category'}=1";
|
|
}
|
|
if ($in{'page'}) {
|
|
$goto .= "/".$in{'page'};
|
|
}
|
|
|
|
# Show frameset
|
|
$title = &get_html_framed_title();
|
|
$cols = &get_product_name() eq 'usermin' ? 180 : 230;
|
|
&popup_header($title, undef, undef, 1);
|
|
|
|
print <<EOF;
|
|
<frameset cols="$cols,*" border=0>
|
|
<frame name="left" src="left.cgi$cat" scrolling="auto">
|
|
<frame name="right" src="$goto" noresize>
|
|
<noframes>
|
|
<body>
|
|
<p>This page uses frames, but your browser doesn't support them.</p>
|
|
</body>
|
|
</noframes>
|
|
</frameset>
|
|
EOF
|
|
&popup_footer(1);
|
|
|