-#!/usr/bin/perl\r
-\r
-use RRDs;\r
-\r
-# Settings\r
-my $rrdlog = "/var/log/rrd";\r
-$ENV{PATH}="/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin";\r
-\r
-RRDs::tune ("$rrdlog/cpu.rrd",\r
-"-h", "user:600",\r
-"-h", "system:600",\r
-"-h", "idle:600");\r
-\r
-RRDs::tune ("$rrdlog/mem.rrd",\r
-"-h", "memused:600",\r
-"-h", "memfree:600",\r
-"-h", "memshared:600",\r
-"-h", "membuffers:600",\r
-"-h", "memcache:600",\r
-"-h", "swapused:600",\r
-"-h", "swapfree:600");\r
-\r
-RRDs::tune ("$rrdlog/disk.rrd",\r
-"-h", "readsect:600",\r
-"-h", "writesect:600");\r
-\r
-RRDs::tune ("$rrdlog/RED.rrd",\r
-"-h", "incoming:600",\r
-"-h", "outgoing:600");\r
-\r
-RRDs::tune ("$rrdlog/GREEN.rrd",\r
-"-h", "incoming:600",\r
-"-h", "outgoing:600");\r
-# end of script\r