blue-theme/index.cgi

   1 #!/usr/bin/perl
   2
   3 BEGIN { push(@INC, ".."); };
   4 use WebminCore;
   5 &ReadParse();
   6 &init_config();
   7 %text = &load_language($current_theme);
   8
   9 if ($in{'mod'}) {
  10         $minfo = { &get_module_info($in{'mod'}) };
  11         }
  12 else {
  13         $minfo = &get_goto_module();
  14         }
  15 $goto = $minfo ? "$minfo->{'dir'}/" :
  16         $in{'page'} ? "" :
  17                       "right.cgi?open=system&open=status";
  18 if ($minfo) {
  19         $cat = "?$minfo->{'category'}=1";
  20         }
  21 if ($in{'page'}) {
  22         $goto .= "/".$in{'page'};
  23         }
  24
  25 # Show frameset
  26 $title = &get_html_framed_title();
  27 $cols = &get_product_name() eq 'usermin' ? 180 : 230;
  28 &popup_header($title, undef, undef, 1);
  29
  30 print <<EOF;
  31 <frameset cols="$cols,*" border=0>
  32         <frame name="left" src="left.cgi$cat" scrolling="auto">
  33         <frame name="right" src="$goto" noresize>
  34 <noframes>
  35 <body>
  36 <p>This page uses frames, but your browser doesn't support them.</p>
  37 </body>
  38 </noframes>
  39 </frameset>
  40 EOF
  41 &popup_footer();
  42