<?php


   function file_replace ($search, $replace, $filename) {
       if (file_exists($filename)) {
           $cnt = file_get_contents($filename);
           
           // Process file in chunks to avoid PCRE bug?
           $data = preg_split('/(?=(?<!ion )(?<![a-zA-Z_\'\"])l\()|(?=(?<!ion )(?<![a-zA-Z_\'\"])url\()/', $cnt);
           foreach ($data as $d) {
             $cnt2 .= preg_replace_callback($search, $replace, $d);
           }
           if ($cnt2 != $cnt)
             return file_put_contents($filename, $cnt2);
           return true;
       }
       return false;
   }
   
   function dir_replace ($search, $replace, $dirname, $recursive = true) {
       $dir = opendir($dirname);
       while ($file = readdir($dir)) {
           if ($file != '.' && $file != '..') {
               if (is_dir($dirname.'/'.$file) && $file != 'CVS') {
                   if ($recursive) {
                       dir_replace($search, $replace, $dirname.'/'.$file);
                   }
               } else if (preg_match('@(?<!replace)(?<!settings)\.(module|inc|php)$@', $file)) {
                   print 'Processing '. $file ."...\n";
                   file_replace($search, $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);
  }
}

function fix_l($matches) {
  $args = get_args($matches[1]);

  // Two arguments, no change.
  if (count($args) <= 2) {
    return $matches[0];
  }

  $options = "array(";
  if (isset($args[2]) && $args[2][1] != 'array()' && $args[2][1] != 'NULL') {
    $options .= "'attributes' => ". $args[2][1] .', ';
  }
  if (isset($args[3]) && $args[3][1] != "''" && $args[3][1] != '""' && $args[3][1] != 'NULL') {
    $options .= "'query' => ". $args[3][1] .', ';
  }
  if (isset($args[4]) && $args[4][1] != "''" && $args[4][1] != '""' && $args[4][1] != 'NULL') {
    $options .= "'fragment' => ". $args[4][1] .', ';
  }
  if (isset($args[5]) && $args[5][1] != "FALSE") {
    $options .= "'absolute' => TRUE, ";
  }
  if (isset($args[6]) && $args[6][1] != "FALSE") {
    $options .= "'html' => TRUE, ";
  }
  $options = rtrim($options, ', ');

  $return = 'l('. $args[0][1] .', '. $args[1][1] .', '. $options  .'))';
  print 'Before:  '. $matches[0] ."\nAfter:  " . $return . "\n\n";
  return $return;
}

function fix_url($matches) {
  $args = get_args($matches[1]);
  
  // One argument, no change.
  if (count($args) <= 1) {
    return $matches[0];
  }

  // Ignore the url() call from l().
  if ($args[1][1] == '$options') return $matches[0];

  $options = "array(";
  if (isset($args[1]) && $args[1][1] != "''" && $args[1][1] != '""' && $args[1][1] != 'NULL') {
    $options .= "'query' => ". $args[1][1] .', ';
  }
  if (isset($args[2]) && $args[2][1] != "''" && $args[2][1] != '""' && $args[2][1] != 'NULL') {
    $options .= "'fragment' => ". $args[2][1] .', ';
  }
  if (isset($args[3]) && $args[3][1] != "FALSE") {
    $options .= "'absolute' => TRUE, ";
  }
  $options = rtrim($options, ', ');

  $return = 'url('. $args[0][1] .', '. $options  .'))';
  print 'Before:  '. $matches[0] ."\nAfter:  " . $return . "\n\n";
  return $return;
}

function get_args($string) {
  preg_match_all('` *(([^(),]+|\((([^()]*|\((?3)?\))+)\))+) *(,|$)`', $string, $matches, PREG_SET_ORDER);
  return $matches;
}

//(([^()]*|\((?2)?\))+)\)*/

dir_replace('@(?<!ion )(?<![a-zA-Z_\'\"])l\((([^()]*|\((?2)?\))+)\)@', 'fix_l', '.', TRUE);
dir_replace('@(?<!ion )(?<![a-zA-Z_\'\"])url\((([^()]*|\((?2)?\))+)\)@', 'fix_url', '.', TRUE);

print "\n\n";