#!/usr/bin/perl
##
## Plattenplatzbelegung
##
##
## Copyright(c) 2000 Leo Fellermayr <leosmail@mac.com>

# Plattenbelegung ueber df-Kommando ermitteln

$df_command = "/bin/df";

open(PIPE, "$df_command|") || die "$df_command: command not found";
while(<PIPE>) {
    $count++ || next;       # Erste Zeile ignorieren
    my ($drive, $total, $used, $free, $perc, $mount) = split(' ', $_);
    push(@mounts, $mount);
    push(@used, $used/1000);
    push(@free, $free/1000);
}
close(PIPE) || die "$df_command failed";

use Chart::StackedBars;
my $g = Chart::StackedBars->new(400,350);
$g->set ('title' => 'Festplattenplatz auf dem Webserver');
$g->set('x_label' => "Dateisysteme");
$g->set('y_label' => "Megabytes");
$g->set('legend_labels' => ["frei", "belegt"]);
$g->set('grid_lines' => "true");
$g->set('max_val' => 10000);
$g->set('colors' => [[255,0,0], [0,255,0]]);
$g->add_dataset(@mounts);
$g->add_dataset(@used);
$g->add_dataset(@free);
$g->set('legend_labels' => ["belegt", "frei"]);
$g->cgi_gif();