[Summary view] [Print] [Text view]

   1  <?php
   2  /* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
   3  
   4  // +----------------------------------------------------------------------+
   5  // | Akelos Framework - http://www.akelos.org                             |
   6  // +----------------------------------------------------------------------+
   7  // | Copyright (c) 2002-2006, Akelos Media, S.L.  & Bermi Ferrer Martinez |
   8  // | Released under the GNU Lesser General Public License, see LICENSE.txt|
   9  // +----------------------------------------------------------------------+
  10  
  11  /**
  12   * @package ActiveSupport
  13   * @subpackage Compatibility
  14   * @author Bermi Ferrer <bermi a.t akelos c.om>
  15   * @copyright Copyright (c) 2002-2006, Akelos Media, S.L. http://www.akelos.org
  16   * @license GNU Lesser General Public License <http://www.gnu.org/copyleft/lesser.html>
  17   */
  18  
  19  if(!defined('AK_AUTOMATIC_CONFIG_VARS_ENCRYPTION')){
  20      define('AK_AUTOMATIC_CONFIG_VARS_ENCRYPTION', false);
  21  }
  22  if(!defined('AK_FTP_SHOW_ERRORS')){
  23      define('AK_FTP_SHOW_ERRORS', true);
  24  }
  25  
  26  class AkFtp
  27  {
  28      function put_contents ($file, $contents)
  29      {
  30          $result = false;
  31  
  32          if($ftp = AkFtp::connect()){
  33  
  34              $file = AkFtp::unrelativizePath($file);
  35              $file = str_replace('\\','/',$file);
  36  
  37              $path = dirname($file);
  38  
  39              if(!AkFtp::is_dir($path)){
  40                  AkFtp::make_dir($path);
  41              }
  42  
  43              $tmpfname = tempnam('/tmp', 'tmp');
  44  
  45              $temp = fopen($tmpfname, 'a+');
  46              fwrite($temp, $contents);
  47              fclose($temp);
  48  
  49              $temp = fopen($tmpfname, 'rb');
  50              $result = ftp_fput($ftp, $file , $temp, FTP_BINARY);
  51  
  52              fclose($temp);
  53              unlink($tmpfname);
  54          }
  55  
  56          return $result;
  57      }
  58  
  59  
  60      function get_contents ($file)
  61      {
  62          if($ftp = AkFtp::connect()){
  63  
  64              $file = AkFtp::unrelativizePath($file);
  65              $file = str_replace('\\','/',$file);
  66  
  67              $tmpfname = tempnam('/tmp', 'tmp');
  68  
  69              ftp_get($ftp, $tmpfname, $file , FTP_BINARY);
  70  
  71              $file_contents = @file_get_contents($tmpfname);
  72  
  73              unlink($tmpfname);
  74  
  75              return $file_contents;
  76          }
  77      }
  78  
  79      function connect($base_dir = null)
  80      {
  81          static $ftp_conn, $_base_dir, $disconnected = false;
  82          
  83          if(!isset($ftp_conn) || $disconnected){
  84              if(!defined('AK_FTP_PATH')){
  85                  trigger_error(Ak::t('You must set a valid FTP connection on AK_FTP_PATH in your config/config.php file'),E_USER_ERROR);
  86              }else {
  87                  if(AK_AUTOMATIC_CONFIG_VARS_ENCRYPTION && substr(AK_FTP_PATH,0,10) == 'PROTECTED:'){
  88                      // You should change the key bellow and encode this file if you are going to distribute applications
  89                      // The ideal protection would be to encode user configuration file.
  90                      $AK_FTP_PATH = Ak::decrypt(base64_decode(substr(AK_FTP_PATH,10)),'HR23JHR93JZ0ALi1UvTZ0ALi1UvTk7MD70'); 
  91                      $_pass_encoded = true;
  92                  }else{
  93                      $AK_FTP_PATH = AK_FTP_PATH;
  94                  }
  95                  $f = parse_url($AK_FTP_PATH);
  96                  if(@$f['scheme'] != 'ftps'){
  97                      $ftp_conn = isset($f['port']) ?  ftp_connect($f['host'], $f['port']) : ftp_connect($f['host']);
  98                  }else{
  99                      $ftp_conn = isset($f['port']) ?  ftp_ssl_connect($f['host'], $f['port']) : ftp_ssl_connect($f['host']);
 100                  }
 101  
 102                  $f['user'] = str_replace('+','@', @$f['user']);
 103                  $login_result = ftp_login($ftp_conn, $f['user'], @$f['pass']);
 104  
 105                  if(!$ftp_conn || !$login_result){
 106                      AK_FTP_SHOW_ERRORS ? trigger_error(Ak::t('Could not connect to the FTP server'), E_USER_NOTICE) : null;
 107                      return false;
 108                  }
 109  
 110                  $_base_dir = isset($f['path']) ? '/'.trim($f['path'],'/') : '/';
 111  
 112                  if(defined('AK_FTP_AUTO_DISCONNECT') && AK_FTP_AUTO_DISCONNECT){
 113                      register_shutdown_function(array('AkFtp', 'disconnect'));
 114                  }
 115                  if(AK_AUTOMATIC_CONFIG_VARS_ENCRYPTION && empty($_pass_encoded)){
 116                      
 117                      @register_shutdown_function(create_function('',
 118                      "@Ak::file_put_contents(AK_CONFIG_DIR.DS.'config.php',
 119                  str_replace(AK_FTP_PATH,'PROTECTED:'.base64_encode(Ak::encrypt(AK_FTP_PATH,'HR23JHR93JZ0ALi1UvTZ0ALi1UvTk7MD70')),
 120                  Ak::file_get_contents(AK_CONFIG_DIR.DS.'config.php')));"));
 121                  }
 122              }
 123          }
 124  
 125          if(isset($base_dir) && $base_dir === 'AK_DISCONNECT_FTP'){
 126              $disconnected = true;
 127              $base_dir = null;
 128          }else {
 129              $disconnected = false;
 130          }
 131  
 132  
 133          if(!isset($base_dir) && isset($_base_dir) && ('/'.trim(ftp_pwd($ftp_conn),'/') != $_base_dir)){
 134              if (!@ftp_chdir($ftp_conn, $_base_dir) && AK_FTP_SHOW_ERRORS) {
 135                  trigger_error(Ak::t('Could not change to the FTP base directory %directory',array('%directory'=>$_base_dir)),E_USER_NOTICE);
 136              }
 137          }elseif (isset($base_dir)){
 138              if (!ftp_chdir($ftp_conn, $base_dir) && AK_FTP_SHOW_ERRORS) {
 139                  trigger_error(Ak::t('Could not change to the FTP directory %directory',array('%directory'=>$base_dir)),E_USER_NOTICE);
 140              }
 141          }
 142  
 143          return $ftp_conn;
 144      }
 145  
 146      function disconnect()
 147      {
 148          static $disconnected = false;
 149          if(!$disconnected && $ftp_conn = AkFtp::connect('AK_DISCONNECT_FTP')){
 150              $disconnected = ftp_close($ftp_conn);
 151              return $disconnected;
 152          }
 153          return false;
 154      }
 155  
 156      function make_dir($path)
 157      {
 158          if($ftp_conn = AkFtp::connect()){
 159              $path = AkFtp::unrelativizePath($path);
 160              $path = str_replace('\\','/',$path);
 161              if(!strstr($path,'/')){
 162                  $dir = array(trim($path,'.'));
 163              }else{
 164                  $dir = (array)@split('/', trim($path,'/.'));
 165              }
 166              $path = ftp_pwd($ftp_conn).'/';
 167              $ret = true;
 168              
 169              for ($i=0; $i<count($dir); $i++){
 170                  $path .= $i === 0 ? $dir[$i] : '/'.$dir[$i];
 171                  if(!@ftp_chdir($ftp_conn, $path)){
 172                      $ftp_conn = AkFtp::connect();
 173                      if(ftp_mkdir($ftp_conn, $path)){
 174                          if (defined('AK_FTP_DEFAULT_DIR_MOD')){
 175                              if(!ftp_site($ftp_conn, "CHMOD ".AK_FTP_DEFAULT_DIR_MOD." $path")){
 176                                  trigger_error(Ak::t('Could not set default mode for the FTP created directory %path',array('%path',$path)), E_USER_NOTICE);
 177                              }
 178                          }
 179                      }else {
 180                          $ret = false;
 181                          break;
 182                      }
 183                  }
 184              }
 185              return $ret;
 186          }
 187          return false;
 188      }
 189  
 190      function delete($path, $only_files = false)
 191      {
 192          $result = false;
 193          if($ftp_conn = AkFtp::connect()){
 194              $path = AkFtp::unrelativizePath($path);
 195              $path = str_replace('\\','/',$path);
 196              $path = str_replace(array('..','./'),array('',''),$path);
 197              $keep_parent_dir = substr($path,-2) != '/*';
 198              $path = trim($path,'/*');
 199              $list = AK_FTP_SHOW_ERRORS ? ftp_rawlist ($ftp_conn, "-R $path") : @ftp_rawlist ($ftp_conn, "-R $path");
 200              $dirs = $keep_parent_dir ? array($path) : array();
 201              $files = array($path);
 202              $current_dir = $path.'/';
 203              if(count($list) === 1){
 204                  $dirs = array();
 205                  $files[] = $path;
 206              }else{
 207                  foreach ($list as $k=>$line){
 208                      if(substr($line,-1) == ':'){
 209                          $current_dir = substr($line,0,strlen($line)-1).'/';
 210                      }
 211                      if (ereg ("([-d][rwxst-]+).* ([0-9]) ([a-zA-Z0-9]+).* ([a-zA-Z0-9]+).* ([0-9]*) ([a-zA-Z]+[0-9: ]*[0-9]) ([0-9]{2}:[0-9]{2}) (.+)", $line, $regs)){
 212                          if((substr ($regs[1],0,1) == "d")){
 213                              if($regs[8] != '.' && $regs[8] != '..'){
 214                                  $dirs[] = $current_dir.$regs[8];
 215                              }
 216                          }else {
 217                              $files[] = $current_dir.$regs[8];
 218                          }
 219                      }
 220                  }
 221              }
 222              if(count($files) >= 1){
 223                  array_shift($files);
 224              }
 225              rsort($dirs);
 226              foreach ($files as $file){
 227                  if(!$result = @ftp_delete($ftp_conn,$file)){
 228                      trigger_error(Ak::t('Could not delete FTP file %file_path',array('%file_path'=>$file)), E_USER_NOTICE);
 229                      return false;
 230                  }
 231              }
 232              if(!$only_files){
 233                  foreach ($dirs as $dir){
 234                      if(!$result = @ftp_rmdir($ftp_conn,$dir)){
 235                          trigger_error(Ak::t('Could not delete FTP directory %dir_path',array('%dir_path'=>$dir)), E_USER_NOTICE);
 236                          return false;
 237                      }
 238                  }
 239              }
 240          }
 241          return $result;
 242      }
 243  
 244  
 245      function is_dir($path)
 246      {
 247          if($ftp_conn = AkFtp::connect()){
 248              $path = AkFtp::unrelativizePath($path);
 249              $path = str_replace('\\','/',$path);
 250              $result = @ftp_chdir ($ftp_conn, $path);
 251              AkFtp::connect();
 252              return $result;
 253          }
 254          return false;
 255      }
 256  
 257      function unrelativizePath($path)
 258      {
 259          
 260          if(!strstr($path,'..')){
 261              return $path;
 262          }
 263          
 264          $path_parts = explode(DS, $path);
 265          if(!empty($path_parts)){
 266              $new_parts = array();
 267              for ($i = 0, $count = sizeof($path_parts); $i < $count; $i++) {
 268                  if ($path_parts[$i] === '' || $path_parts[$i] == '.'){
 269                      continue;
 270                  }
 271                  if ($path_parts[$i] == '..') {
 272                      array_pop($new_parts);
 273                      continue;
 274                  }
 275                  array_push($new_parts, $path_parts[$i]);
 276              }
 277              return implode(DS, $new_parts);
 278          }
 279          return false;
 280      }
 281  }
 282  
 283  
 284  ?>