status/du-monitor.pl

   1 # du-monitor.pl
   2 # Check disk usage in some directory
   3
   4 sub get_du_status
   5 {
   6 local $used = &disk_usage_kb($_[0]->{'dir'}) * 1024;
   7 if ($used > $_[0]->{'max'}) {
   8         return { 'up' => 0,
   9                  'desc' => &text('du_over', &nice_size($used)) };
  10         }
  11 else {
  12         return { 'up' => 1,
  13                  'desc' => &text('du_under', &nice_size($used)) };
  14         }
  15 }
  16
  17 sub show_du_dialog
  18 {
  19 print &ui_table_row($text{'du_dir'},
  20         &ui_textbox("dir", $_[0]->{'dir'}, 60)." ".
  21         &file_chooser_button("dir", 1), 3);
  22
  23 print &ui_table_row($text{'du_max'},
  24         &ui_bytesbox("max", $_[0]->{'max'}));
  25 }
  26
  27 sub parse_du_dialog
  28 {
  29 $in{'dir'} =~ /^\/\S*$/ || &error($text{'du_edir'});
  30 -e $in{'dir'} || &error($text{'du_edir2'});
  31 $_[0]->{'dir'} = $in{'dir'};
  32 $in{'max'} =~ /^\d+$/ || &error($text{'du_emax'});
  33 $_[0]->{'max'} = $in{'max'} * $in{'max_units'};
  34 }
  35