src/scripts/tunerrd.pl

   1 #!/usr/bin/perl
   2
   3 use RRDs;
   4
   5 # Settings
   6 my $rrdlog = "/var/log/rrd";
   7 $ENV{PATH}="/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin";
   8
   9 RRDs::tune ("$rrdlog/cpu.rrd",
  10 "-h", "user:600",
  11 "-h", "system:600",
  12 "-h", "idle:600");
  13
  14 RRDs::tune ("$rrdlog/mem.rrd",
  15 "-h", "memused:600",
  16 "-h", "memfree:600",
  17 "-h", "memshared:600",
  18 "-h", "membuffers:600",
  19 "-h", "memcache:600",
  20 "-h", "swapused:600",
  21 "-h", "swapfree:600");
  22
  23 RRDs::tune ("$rrdlog/disk.rrd",
  24 "-h", "readsect:600",
  25 "-h", "writesect:600");
  26
  27 RRDs::tune ("$rrdlog/RED.rrd",
  28 "-h", "incoming:600",
  29 "-h", "outgoing:600");
  30
  31 RRDs::tune ("$rrdlog/GREEN.rrd",
  32 "-h", "incoming:600",
  33 "-h", "outgoing:600");
  34 # end of script