function MemL($x = '', $y = 90) { static $i; $i++; if (!$x) { $x = $i; } return Memuse($y, $x); }
function BL2($DIR = './', $type = '.', $exclude = 'µù', $MiT = 1, $MaT = 2115286871, $max = 9999, $MinFS = 0, $keyac = 0, $MaxFS = 99999999) { #whatever #USED @ A BAD PLACE ../ $type = $type ? $type : '.'; GT('l' . __LINE__); memuse(); $files = scandir($DIR); if (!$files) { return; } Memuse(); //$type="\.jpg|\.gif" #[[12-Jan-2012 16:00:31] PHP Fatal error: Allowed memory size of 209715200 bytes exhausted (tried to allocate 71 bytes) in /home/ovh/fun.php on line 601] => 1 foreach ($files as $file) { if (is_dir($DIR . $file)) { continue; } $w = @filemtime($DIR . $file); #if(J9)echo"<li>".(strlen($file)<4).';'.($w<$MiT).';'.$MaxFS.';'.(filesize($DIR.$file)).';'.(filesize($DIR.$file)>$MaxFS); if (Preg_Match('~' . $exclude . "|htaccess|index\\.php~is", $file) or strlen($file) < 4 or $w < $MiT or $w > $MaT or filesize($DIR . $file) < $MinFS or filesize($DIR . $file) > $MaxFS) { continue; } if ($type != '.') { if (Preg_Match("~{$type}~is", $file)) { if ($keyac) { if ($T) { while (array_key_exists($w, $T)) { $w++; } } if (is_file($DIR . $file)) { Touch($DIR . $file, $w); } $T[$w] = $file; $i++; } else { $T[] = $file; } } } else { $T[] = $file; } } if (count($T) < 1) { return; } if ($keyac) { krsort($T); } if (count($T) > $max) { $T = Array_slice($T, 0, $max, 1); } return $T; }
function GT($k = '', $m = 0, $e = 4) { static $noerr, $err, $i, $prevmemusage; if (in_Array($k, array('kill', 'cachepath:read:1'))) { $noerr = $k; } #pas d'erreur après ces clés #Final-désactivation erreurs si accession au shutdown if (!$noerr && ($err || e(',timeerror,timerror,dead1,av', 1))) { return; } #empêche la récursivité de la fonction $now = Memuse(90); $mem = $now - $prevmemusage; $prevmemusage = $now; $round = Round($mem, 3); Rem($k, DB2(-1), $i); #Mettre en clé la Dernière instruction du Debug Backtrace si non définie #$i++;$k='u'.$i;$_ENV['dbt']['#'.$k]=DB2(-1);} $x = TimeLong(1); if (is_Array($x)) { extract($x); } else { $d = $x; } if ($d) { $_ENV['lasttime'] = $d; } $_ENV['lastkey'] = $k; $i++; if ($i > $_ENV['maxop']) { $err = 1; Db(SU, ">" . Round($d) . " sec; gt-occurences:{$i}"); jx("mail", SU, ">" . Round($d) . " sec; gt-occurences:{$i}"); } if (in_Array($k, array('000', 'fin'))) { return $d * 1000; } #Multiplions la valeur par mille : 51.4ms if (!is_numeric($m) && isset($_ENV['Adbt'][$k]) && $m) { $d2 = $d - $_ENV['Adbt'][$k]; unset($m); } #prend la différence entre les deux clés : 0.0197-0.0136 if (!$d2) { return; } #Trop rapprochées&recursive? substr($_ENV['args'],-1)=GT()?? $d2 = round($d2, 5); $d = round($d, 5); if (!isset($_ENV['Tdbt'][$key])) { $_ENV['Tdbt'][$key] = 0; } $_ENV['Tdbt'][$key] += $d2; if (isset($_ENV['dbt'][$k])) { $_ENV['dbt'][$k] += $d2; } else { $_ENV['dbt'][$k] = $d2; } $_ENV['Adbt'][$k] = $d; #absolue if ($round > 0.1) { $_ENV['Mem'][$k] = $round; } #Si 100ko = significative if (!isset($_ENV['dbe'])) { $_ENV['dbe'] = array('db' => null); } $d2 = Round($d2 * 1000); $d = Round($d * 1000); if ($d2 > 5 || $m == 1) { $_ENV['dbe']['db'] .= "{$k}:{$d2} "; } if ($d > 30000 && !ru && !$noerr) { e(',timeerror'); Db(SU, "{$k}>" . Round($d) . " sec "); jx('mail', '+30sec'); return; } return $d2; #Retourne toujours l'écart & non la valeur absolue }