Initial revision

darcs-hash:20000521125243-92525-6092ab1d3efe6df9898549afb0aa3c7d43983e8b.gz

test-squid-taille-cache.pl

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+$squidCacheDir = "/var/squid";
+$squidCacheDirMaxSize = 1700000;
+
+open(STDIN, "du -s $squidCacheDir |");
+
+$line = <STDIN>;
+chop($line);
+
+#$line est sous la forme    12345678 $squidCacheDir
+
+if ($line =~ /([\d]+)/){
+  if ($1 > $squidCacheDirMaxSize){
+
+    system("echo \"testSquid.pl relance squid \" >> /var/log/messages");
+
+ # ajoute par Aymeric pour essayer de comprendre ce qui se passe
+    system("df -k /var/squid >> /var/log/messages");
+
+    system("squid-new >/dev/null 2&>/dev/null &");
+ # J'ai rajouté un sujet pour filtrage par procmail OS :-)
+    system("echo \"[TEST] j'ai du relancer le squid qui
+bouffait trop d'espace\"| mail -s \"testSquid\" root ");
+  }	
+}