<?php
function my_replace($match) {
  if ($match[1] == 'node') return $match[0]; // node_submit is not a submit function.
  $match = preg_replace('/(function .+_submit\()\$form_id, (.*)\)/U', '\1\2, $form, &$package)', $match[0]);
  $match = preg_replace('/^( +)return (.+);$/m', "$1\$package['redirect'] = $2;\n$1return;", $match);
  return $match;
}

function file_replace($filename) {
  if (file_exists($filename) && strpos($filename, '.module')) {
    $cnt = file_get_contents($filename);
    // do submit function replacements
    $cnt = preg_replace_callback("/^function ([^\n]+)_submit.*^}/Usm", 'my_replace', $cnt);
    // replace $form_id, $form_values to $form_values, &$package. Handles $edit or $whatever instead of $form_values.
    $cnt = preg_replace('/^(function .+_validate\()\$form_id, (\$[a-zA-Z0-9_]+)(, \$form)?\)/Um', '\1\2, $form, &$package)', $cnt);
    // remove form_set_error
    // $cnt = preg_replace("/form_set_error\((.*), (.+)\);$/Usm", "\$package['errors'][$1] = $2;", $cnt);
    $cnt = preg_replace('/(#(?:submit|validate).\])\[(.+)\] = array\(\);/', '\1[] = \2;', $cnt);
    $cnt = preg_replace('/(#(?:submit|validate).) => (array\(.+) => array\(\)\)/', '\1 => \2)', $cnt);
    file_put_contents($filename, $cnt);
  }
}

function dir_replace($dirname, $recursive = TRUE) {
  $dir = opendir($dirname);
  while ($file = readdir($dir)) {
    if ($file != '.' && $file != '..') {
      if (is_dir($dirname.'/'.$file)) {
        if ($recursive) {
          dir_replace($dirname.'/'.$file);
        }
      }
      else {
        file_replace($dirname.'/'.$file);
      }
    }
  }
}

if(!function_exists('file_put_contents')) {
  function file_put_contents($filename, $data, $file_append = FALSE) {
   $fp = fopen($filename, (!$file_append ? 'w+' : 'a+'));
   if(!$fp) {
     trigger_error('file_put_contents cannot write in file.', E_USER_ERROR);
     return;
   }
   fputs($fp, $data);
   fclose($fp);
  }
}

dir_replace('modules');