#!/usr/bin/php
<?php

$fd = opendir('modules');
while ($file = readdir($fd)) {
  if (!is_dir("modules/$file") && substr($file, -6) == 'module') {
     $dir = substr($file, 0, -7);
     print "moving modules/$file to modules/$dir/$file ...\n";
     mkdir("modules/$dir");
     copy("modules/$file", "modules/$dir/$file");
     delete("modules/$file");
  }
}

?>