status/mailq-monitor.pl

   1 # Check if a mail queue is too long
   2
   3 sub get_mailq_status
   4 {
   5 local $m = $_[0]->{'mod'};
   6 return { 'up' => -1 } if (!&foreign_installed($m));
   7 local @qfiles;
   8 if ($m eq "sendmail") {
   9         &foreign_require("sendmail", "sendmail-lib.pl");
  10         @qfiles = &sendmail::list_mail_queue();
  11         }
  12 elsif ($m eq "qmailadmin") {
  13         &foreign_require("qmailadmin", "qmail-lib.pl");
  14         @qfiles = &qmailadmin::list_queue();
  15         }
  16 elsif ($m eq "postfix") {
  17         &foreign_require("postfix", "postfix-lib.pl");
  18         @qfiles = &postfix::list_queue();
  19         }
  20 if (@qfiles > $_[0]->{'size'}) {
  21         return { 'up' => 0,
  22                  'desc' => "<font color=#ff0000>".&text('mailq_toomany', scalar(@qfiles))."</font>" };
  23         }
  24 else {
  25         return { 'up' => 1,
  26                  'desc' => &text('mailq_ok', scalar(@qfiles)) };
  27         }
  28 }
  29
  30 sub show_mailq_dialog
  31 {
  32 # Mail system to check
  33 print &ui_table_row($text{'mailq_system'},
  34         &ui_select("mod", $_[0]->{'mod'},
  35                 [ map { [ $_, $text{'mailq_'.$_} ] }
  36                   ("sendmail", "qmailadmin", "postfix") ]));
  37
  38 # Max queue size
  39 print &ui_table_row($text{'mailq_size'},
  40         &ui_textbox("size", $_[0]->{'size'}, 10));
  41 }
  42
  43 sub parse_mailq_dialog
  44 {
  45 $_[0]->{'mod'} = $in{'mod'};
  46 $in{'size'} =~ /^\d+$/ || &error($text{'mailq_esize'});
  47 $_[0]->{'size'} = $in{'size'};
  48 }
  49