#!/usr/bin/perl print "Content-type: text/html\n\n"; my $quotaLine = `quota | tail -n1` ; $quotaLine =~ /^\ +(\d+)\ +(\d+)\ +\d+\ +\d+\ +(\-*\d)/; my $blockSize; my $megaSize; if ($3 == -1) { $blockSize = 16; $megaSize = 1024; } else { $blockSize = 1; $megaSize = 1000; } my $used_Ko = sprintf "%d", $1 * $blockSize; my $used_Mo = sprintf "%.2f", ($1 * $blockSize)/$megaSize; my $total_Ko = sprintf "%.0f", $2 * $blockSize; my $total_Mo = sprintf "%d", ($2 * $blockSize)/$megaSize; my $remain_Ko = sprintf "%.0f", $total_Ko - $used_Ko; my $remain_Mo = sprintf "%.2f", ($total_Ko - $used_Ko)/$megaSize; my $pc = sprintf "%.2f", ($1/$2)*100; my $requetes_auj = "--"; my $octets_auj = "--"; my $requetes_hier = "--"; my $octets_hier = "--"; my $octets_mois = "--"; my $ladate; my $ladate2; if ( -d "../../requetes") { 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";}; $ladate ="$annee\-$mois\-$mjour"; $requetes_auj =`awk '{SOMME += \$1;}; END{printf("%f", SOMME);}' ../../requetes/$ladate/*requetes`; $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";}; $ladate = "$annee\-$mois\-$mjour"; $requetes_hier = `awk '{SOMME += \$1;}; END{printf("%f", SOMME);}' ../../requetes/$ladate/*requetes`; $octets_hier = `awk '{SOMME += \$1;}; END{printf("%f", SOMME);}' ../../requetes/$ladate/*octets`; chomp $requetes_hier; chomp $octets_hier; $octets_hier /= 1000000; $ladate2 = "$annee\-$mois"; $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 "";