#!/usr/bin/perl print "Content-type: text/html\n\n"; `quota | tail -n1` =~ / +(\d+) +(\d+)/; my $used_Ko = sprintf "%d", $1*16; my $used_Mo = sprintf "%.2f", ($1*16)/1024; my $total_Ko = sprintf "%.0f", $2*16; my $total_Mo = sprintf "%d", ($2*16)/1024; my $remain_Ko = sprintf "%.0f", $total_Ko - $used_Ko; my $remain_Mo = sprintf "%.2f", ($total_Ko - $used_Ko)/1024; my $pc = sprintf "%d", ($1/$2)*100; print "
Etat de votre espace disque | |
Espace total disponible : | $total_Mo Mo |
---|---|
Espace utilisé : | $used_Ko Ko ($used_Mo Mo) ($pc%) |
Espace restant : | $remain_Ko Ko ($remain_Mo Mo) |
Retour au panel |