#!/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 "%.2f", ($1/$2)*100; my ($sec,$min,$heure,$mjour,$mois,$annee)=localtime(time);$mois++;$annee+=1900; if ($mois =~ /^[1-9]$/) {$mois="0$mois";}; if ($mjour =~ /^[1-9]$/){$mjour="0$mjour";}; my $ladate="$annee\-$mois\-$mjour"; my $requetes_auj=`awk '{SOMME += \$1;}; END{printf("%f", SOMME);}' ../requetes/$ladate/*requetes`; my $octets_auj=`awk '{SOMME += \$1;}; END{printf("%f", SOMME);}' ../requetes/$ladate/*octets`; chomp $requetes_auj; chomp $octets_auj; $octets_auj/=1000000; my ($sec,$min,$heure,$mjour,$mois,$annee)=localtime(time-24*60*60);$mois++;$annee+=1900; if ($mois =~ /^[1-9]$/) {$mois="0$mois";}; if ($mjour =~ /^[1-9]$/){$mjour="0$mjour";}; my $ladate="$annee\-$mois\-$mjour"; my $requetes_hier=`awk '{SOMME += \$1;}; END{printf("%f", SOMME);}' ../requetes/$ladate/*requetes`; my $octets_hier=`awk '{SOMME += \$1;}; END{printf("%f", SOMME);}' ../requetes/$ladate/*octets`; chomp $requetes_hier; chomp $octets_hier; $octets_hier/=1000000; my $ladate2="$annee\-$mois"; my $octets_mois=`awk '{SOMME += \$1;}; END{printf("%f", SOMME);}' ../requetes/$ladate2-*/*octets`; chomp $octets_mois; $octets_mois/=1000000000; print "Espace disque\n"; print "\n"; print "\n"; print ""; print "\n"; print "\n"; print "\n"; print ""; print ""; print "\n"; print ""; print "\n"; print "\n"; print ""; 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)
 
 

Requêtes et Transfert

 
Nombre des requêtes du $ladate : $requetes_hier
Nombre des requêtes aujourd'hui : $requetes_auj
 
Transfert de votre site du $ladate : $octets_hier Mo
Transfert de votre site aujourd'hui : $octets_auj Mo
 
Transfert de votre site du mois $ladate2 : $octets_mois Go
\n"; print "";