#!/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 "Espace disque\n"; print "\n"; print "\n"; print ""; print "\n"; print "\n"; print "\n"; print ""; print "\n"; 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
\n"; print "";