#!/usr/bin/php
<?php
  if (count($argv) <= 1) 
    die("Not enough arguments\n");

  $file = $argv[1];
  if (!is_file($file))
    exit();

  $fd = fopen($file, "r");
  $content = fread($fd, filesize($file));

  $result = array();
  if (!ereg("(if[[:space:][:blank:]]\(([]\[\:_[:space:][:blank:]\.\-\=\<\>\!\~\(\)\+\*\/\\\%\&\#a-zA-Z0-9]+)\)[[:space:][:blank:]]{?[]\[;\:_[:space:][:blank:]\.\-\=\<\>\!\~\(\)\+\*\/\\\%\&\#a-zA-Z0-9]*[[:space:][:blank:]]+[kv]free[[:space:][:blank:]]*\(([]\[\:_[:space:][:blank:]\.\-\=\<\>\!\~\(\)\+\*\/\\\%\&\#a-zA-Z0-9]+)\))", $content, $result))
    exit();

  if (strstr($result[2], $result[3])) {
    echo "file\t: \t";
    echo $file."\n";
    echo "string\t: \t";
    echo $result[1]."\n";
    echo "\n";
  }

  fclose($fd);
?>