#!/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 < <body> <p>This page uses frames, but your browser doesn't support them.</p> </body> EOF &popup_footer();