qmailadmin/index.cgi

   1 #!/usr/local/bin/perl
   2 # index.cgi
   3 # Display icons for various things that can be configured in qmail
   4
   5 require './qmail-lib.pl';
   6
   7 &ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
   8         &help_search_link("qmail", "man:$config{'qmail_dir'}/man", "google"));
   9
  10 # Check if qmail is installed
  11 if (!-d $config{'qmail_dir'}) {
  12         print &text('index_edir', "<tt>$config{'qmail_dir'}</tt>",
  13                   "$gconfig{'webprefix'}/config.cgi?$module_name"),"<p>\n";
  14         &ui_print_footer("/", $text{'index'});
  15         exit;
  16         }
  17 if (!-d $qmail_alias_dir || !-d $qmail_bin_dir) {
  18         print &text('index_edir2', "<tt>$config{'qmail_dir'}</tt>",
  19                   "$gconfig{'webprefix'}/config.cgi?$module_name"),"<p>\n";
  20         &ui_print_footer("/", $text{'index'});
  21         exit;
  22         }
  23
  24 @olinks = ( "list_opts.cgi", "list_aliases.cgi", "list_virts.cgi",
  25             "list_locals.cgi", "list_rcpts.cgi", "list_bads.cgi",
  26             "list_routes.cgi", "list_percents.cgi", "list_assigns.cgi",
  27             "list_queue.cgi",
  28             &foreign_available("mailboxes") ? ( "../mailboxes/" ) : ( ) );
  29
  30 if (!$config{'mailq_count'}) {
  31         @queue = &list_queue();
  32         }
  33 @otitles = ( "$text{'opts_title'}<br>(control)</tt>",
  34              "$text{'aliases_title'}<br>(alias)",
  35              "$text{'virts_title'}<br>(virtualdomains)",
  36              "$text{'locals_title'}<br>(locals)",
  37              "$text{'rcpts_title'}<br>(rcpthosts)",
  38              "$text{'bads_title'}<br>(badmailfrom)",
  39              "$text{'routes_title'}<br>(smtproutes)",
  40              "$text{'percents_title'}<br>(percenthack)",
  41              "$text{'assigns_title'}<br>(assign)",
  42              scalar(@queue) ?
  43                "$text{'queue_title'}<br>".&text('queue_count', scalar(@queue)) :
  44                "$text{'queue_title'}<br>(qmail-qread)",
  45              $text{'boxes_title'} );
  46
  47 @oicons = ( "images/opts.gif", "images/aliases.gif", "images/virts.gif",
  48             "images/locals.gif", "images/rcpts.gif", "images/bads.gif",
  49             "images/routes.gif", "images/percents.gif", "images/assigns.gif",
  50             "images/queue.gif", "images/boxes.gif" );
  51
  52 &icons_table(\@olinks, \@otitles, \@oicons);
  53
  54 # Check if the qmail processes are running
  55 print &ui_hr();
  56 print &ui_buttons_start();
  57 if (&is_qmail_running()) {
  58         print &ui_buttons_row("stop.cgi", $text{'index_stop'},
  59                               $text{'index_stopmsg'});
  60         }
  61 else {
  62         print &ui_buttons_row("start.cgi", $text{'index_start'},
  63                               &text('index_startmsg',
  64                                 "<tt>$qmail_start_cmd</tt>"));
  65         }
  66 print &ui_buttons_end();
  67
  68 &ui_print_footer("/", $text{'index'});
  69