#! /usr/bin/php
  <?php
  // include shared code
  include '../lib/CommandLine.php';
  
  // define location of the skeleton layout
  define('SKEL_FILES', '/path/to/skeleton/layout');
  
  // function to output the version number
  function show_version()
  {
      echo basename($\_SERVER[\text{'}argv\text{'}][0])\; .\; \text{'}\; version\; 1.0\text{'}\; .\; "\backslash n";\; \}$// function to output usage instructions
  function show_help(display = true) 
  {
      $script\; =\; basename($_SERVER['argv'][0]);
      script} [OPTIONS]
  Setup project directory and copy basic files into it.
  
  -c, --copy-only      copy project skeleton to TARGET but do not replace
                       Placeholders or delete .tmp files
  -h, --help           display this help and exit
  -o, --output=TARGET  specify directory where the files will be copied
  -p, --preserve       don't delete .tmp files after replacing placeholders
  -v, --version        print version information and exit
  
  ENDHELP;
      if ($display)\; \{\; echo$help;
      }
      else
      {
          return $help;\; \}\; \}$// function to recursively copy a directory, modified from code found
  // at http://us2.php.net/manual/en/function.copy.php#77238
  function dircopy_recurs(source, $dest)\; \{\; if\; (!$dir = opendir($source))\; \{\; fwrite(STEDRR,\; \text{'}ERROR:\; Unable\; to\; open\; \text{'}\; .$source . "\n");
          exit(1);
      }
  
      while($file\; =\; readdir($dir))
      {
          if(file != '..')
          {
              $path\; =$source . '/' . $file;$// create directory and copy contents
              if (is_dir(path))
              {
                  if(!mkdir($dest\; .\; \text{'}/\text{'}\; .$file))
                  {
                      fwrite(STDERR, 'ERROR: Unable to create directory ' .
                         $file\; .\; \text{'}.\text{'}\; .\; "\backslash n");\; exit(1);\; \}\; dircopy\_recurs($path, $dest\; .\; \text{'}/\text{'}\; .$file);
              }
              // copy files
              else if(is_file($path))\; \{\; if(!copy($path, $dest\; .\; \text{'}/\text{'}\; .$file))
                  {
                      fwrite(STDERR, 'ERROR: Unable to copy file ' . $file\; .\; \text{'}.\text{'}\; .\; "\backslash n");\; exit(1);\; \}\; \}\; \}\; \}\; closedir($dir);
  }
  
  // no arguments provided
  if ($\_SERVER[\text{'}argc\text{'}]\; ==\; 1)\; \{\; fwrite(STDERR,\; show\_help(false));\; exit(1);\; \}$// Retrieve command-line arguments
  else
  {
      allowed = array('c', 'copy-only', 'h', 'help', 'o', 'output', 
          'p', 'preserve', 'v', 'version');
      try
      {
          $options\; =\; CommandLine::parseOptions($_SERVER['argv'], $allowed);\; \}\; catch\; (CommandLineOptionException$e)
      {
          fwrite(STDERR, $e->getMessage()\; .\; "\backslash n"\; .\; show\_help(false));\; exit(1);\; \}\; \}$// show help if requested
  if (isset(options['h']) || isset($options[\text{'}help\text{'}]))\; \{\; show\_help();\; exit();\; \}$// show version information if requested
  if (isset(options['v']) || isset($options[\text{'}version\text{'}]))\; \{\; show\_version();\; exit();\; \}$// retrieve target directory
  if (isset(options['o']) && isset($options[\text{'}output\text{'}]))\; \{\; fwrite(STDERR,\; \text{'}ERROR:\; Unable\; to\; determine\; target.\; To\; prevent\; \text{'}\; .\; \text{'}potential\; \text{'}\; .\; "\backslash n"\; .\; \text{'}conflicts\; please\; use\; either\; -o\; or\; \text{'}\; .\; \text{'}--output,\; not\; both.\text{'}\; .\; "\backslash n");\; exit(1);\; \}\; else\; if\; (isset($options['o']) || isset($options[\text{'}output\text{'}]))\; \{$output = (isset($options[\text{'}o\text{'}]))\; ?$options['o'] : $options[\text{'}output\text{'}];\; \}\; else\; \{\; fwrite(STDERR,\; \text{'}ERROR:\; Target\; location\; was\; not\; specified\; with\; -o\; \text{'}\; .\; \text{'}or\; --output.\text{'}\; .\; "\backslash n");\; exit(1);\; \}$// determine absolute path to target
  dir = basename($output);$path = realpath(substr($output,\; 0,\; strlen($output) - strlen($dir)));$// determine target can be created and doesn't already exist
  clearstatcache();
  if (!file_exists(path) || !is_dir($path)\; ||\; !is\_writable($path))
  {
      fwrite(STDERR, 'ERROR: Parent of target directory either does ' .
          'not exist or is' . "\n" . 'not writable.' . "\n");
      exit(1);
  }
  if (file_exists($path\; .\; \text{'}/\text{'}\; .$dir))
  {
      fwrite(STDERR, 'ERROR: Requested target already exists.' . "\n");
      exit(1);
  }
  
  do
  {
      // Retrieve configuration information
      $db\_host\; =\; CommandLine::promptDefault(\text{'}Database\; host\text{'},\; \text{'}localhost\text{'});$db_schema = CommandLine::promptDefault('Database schema', 'TEST');
      $db\_user\; =\; CommandLine::promptDefault(\text{'}Database\; user\text{'},\; \text{'}TESTUSR\text{'});$db_pass = CommandLine::prompt('Database password');
      $db\_tbl\_prefix\; =\; CommandLine::promptDefault(\text{'}Database\; table\; prefix\text{'},\; \text{'}\text{'});$// Verify collected information is all correct
      echo str_repeat('-', 70) . "\n";
      echo 'Database host:          ' . db_host . "\n";
      echo 'Database schema:        ' . $db\_schema\; .\; "\backslash n";\; echo\; \text{'}Database\; user:\; \text{'}\; .$db_user . "\n";
      echo 'Database password:      ' . $db\_pass\; .\; "\backslash n";\; echo\; \text{'}Database\; table\; prefix:\; \text{'}\; .$db_tbl_prefix . "\n";
  
      $ok\; =\; CommandLine::promptDefault(\text{'}Is\; this\; correct?\text{'},\; \text{'}yes\text{'},\; 3,\; \text{'}strtolower\text{'});\; \}\; while\; ($ok != 'yes' && $ok\; !=\; \text{'}y\text{'});\; echo\; "\backslash n";$// Create the target directory
  if (!mkdir(path . '/' . $dir))\; \{\; fwrite(STDERR,\; \text{'}ERROR:\; Unable\; to\; create\; target\; directory.\text{'}\; .\; "\backslash n");\; exit(1);\; \}$// copy the skeleton files to the target directory
  dircopy_recurs(SKEL_FILES, path . '/' . $dir);$// match up placeholders with user provided values to replace them in the
  // temporary files and rename them as permanent
  if (!isset(options['c']) && !isset($options[\text{'}copy-only\text{'}]))\; \{$tags = array(
          '<tag::db_host>' => $db\_host,\; \text{'}$<tag::db_schema>' => db_schema,
          '<tag::db_user>' => $db\_user,\; \text{'}$<tag::db_pass>' => db_pass, 
          '<tag::db_tbl_prefix>' => $db\_tbl\_prefix);$files = array(
                 'lib/db.php.tmp');
  
      foreach ($files\; as$f)
      {
          $file\_old\; =$path . '/' . $dir\; .\; \text{'}/\text{'}\; .$f;
          $file\_new\; =\; substr($file_old, 0, -4);
          $newcontents\; =\; str\_replace(array\_keys($tags),
                                      array_values($tags),\; file\_get\_contents($file_old));
          if (!file_put_contents($file\_new,$newcontents))
          {
              fwrite(STDERR, 'ERROR: Unable to write ' . $file\_new\; .\; \text{'}.\text{'}\; .\; "\backslash n");\; exit(1);\; \}$// remove tmp files
          if (!isset(options['p']) && !isset($options[\text{'}preserve\text{'}]))\; \{\; if\; (!unlink($file_old))
              {
                  fwrite(STDERR, 'ERROR: Unable to remove ' . $file\_old\; .\; \text{'}.\text{'}\; .\; "\backslash n");\; fclose($fp);
                  exit(1);
              }
          }
      }
  }
  
  echo 'Congratulations!  Your project has been deployed to ' . "\n" .
      $path\; .\; \text{'}/\text{'}\; .$dir . ".\n\n";
  ?>