wp/wp-admin/includes/class-ftp.php
author ymh <ymh.work@gmail.com>
Fri, 05 Sep 2025 18:40:08 +0200
changeset 21 48c4eec2b7e6
parent 19 3d72ae0968f4
child 22 8c2e4d02f4ef
permissions -rw-r--r--
Add CLAUDE.md documentation and sync WordPress core files - Add comprehensive CLAUDE.md documentation file with project architecture, development setup, database operations, WordPress CLI usage, file sync procedures, and Mercurial commands - Update WordPress core files from wordpress/ to wp/ directory - Sync latest WordPress admin interface, includes, and core functionality - Update plugins: portfolio plugin with latest BWS framework and fancybox integration - Maintain custom configuration and theme files 🤖 Generated with [Claude Code](https://claude.ai/code) Co-Authored-By: Claude <noreply@anthropic.com>
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     1
<?php
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     2
/**
9
177826044cd9 upgrade wordpress to 5.2.3
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
     3
 * PemFTP - An Ftp implementation in pure PHP
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     4
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     5
 * @package PemFTP
9
177826044cd9 upgrade wordpress to 5.2.3
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
     6
 * @since 2.5.0
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     7
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     8
 * @version 1.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     9
 * @copyright Alexey Dotsenko
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    10
 * @author Alexey Dotsenko
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 9
diff changeset
    11
 * @link https://www.phpclasses.org/package/1743-PHP-FTP-client-in-pure-PHP.html
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 9
diff changeset
    12
 * @license LGPL https://opensource.org/licenses/lgpl-license.html
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    13
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    14
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    15
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    16
 * Defines the newline characters, if not defined already.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    17
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    18
 * This can be redefined.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    19
 *
9
177826044cd9 upgrade wordpress to 5.2.3
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    20
 * @since 2.5.0
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    21
 * @var string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    22
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    23
if(!defined('CRLF')) define('CRLF',"\r\n");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    24
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    25
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    26
 * Sets whatever to autodetect ASCII mode.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    27
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    28
 * This can be redefined.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    29
 *
9
177826044cd9 upgrade wordpress to 5.2.3
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    30
 * @since 2.5.0
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    31
 * @var int
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    32
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    33
if(!defined("FTP_AUTOASCII")) define("FTP_AUTOASCII", -1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    34
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    35
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    36
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    37
 * This can be redefined.
9
177826044cd9 upgrade wordpress to 5.2.3
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    38
 * @since 2.5.0
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    39
 * @var int
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    40
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    41
if(!defined("FTP_BINARY")) define("FTP_BINARY", 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    42
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    43
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    44
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    45
 * This can be redefined.
9
177826044cd9 upgrade wordpress to 5.2.3
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    46
 * @since 2.5.0
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    47
 * @var int
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    48
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    49
if(!defined("FTP_ASCII")) define("FTP_ASCII", 0);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    50
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    51
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    52
 * Whether to force FTP.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    53
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    54
 * This can be redefined.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    55
 *
9
177826044cd9 upgrade wordpress to 5.2.3
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    56
 * @since 2.5.0
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    57
 * @var bool
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    58
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    59
if(!defined('FTP_FORCE')) define('FTP_FORCE', true);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    60
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    61
/**
9
177826044cd9 upgrade wordpress to 5.2.3
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    62
 * @since 2.5.0
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    63
 * @var string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    64
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    65
define('FTP_OS_Unix','u');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    66
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    67
/**
9
177826044cd9 upgrade wordpress to 5.2.3
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    68
 * @since 2.5.0
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    69
 * @var string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    70
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    71
define('FTP_OS_Windows','w');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    72
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    73
/**
9
177826044cd9 upgrade wordpress to 5.2.3
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    74
 * @since 2.5.0
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    75
 * @var string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    76
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    77
define('FTP_OS_Mac','m');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    78
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    79
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    80
 * PemFTP base class
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    81
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    82
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    83
class ftp_base {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    84
	/* Public variables */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    85
	var $LocalEcho;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    86
	var $Verbose;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    87
	var $OS_local;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    88
	var $OS_remote;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    89
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    90
	/* Private variables */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    91
	var $_lastaction;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    92
	var $_errors;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    93
	var $_type;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    94
	var $_umask;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    95
	var $_timeout;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    96
	var $_passive;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    97
	var $_host;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    98
	var $_fullhost;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    99
	var $_port;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   100
	var $_datahost;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   101
	var $_dataport;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   102
	var $_ftp_control_sock;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   103
	var $_ftp_data_sock;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   104
	var $_ftp_temp_sock;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   105
	var $_ftp_buff_size;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   106
	var $_login;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   107
	var $_password;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   108
	var $_connected;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   109
	var $_ready;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   110
	var $_code;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   111
	var $_message;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   112
	var $_can_restore;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   113
	var $_port_available;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   114
	var $_curtype;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   115
	var $_features;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   116
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   117
	var $_error_array;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   118
	var $AuthorizedTransferMode;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   119
	var $OS_FullName;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   120
	var $_eol_code;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   121
	var $AutoAsciiExt;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   122
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   123
	/* Constructor */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   124
	function __construct($port_mode=FALSE, $verb=FALSE, $le=FALSE) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   125
		$this->LocalEcho=$le;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   126
		$this->Verbose=$verb;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   127
		$this->_lastaction=NULL;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   128
		$this->_error_array=array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   129
		$this->_eol_code=array(FTP_OS_Unix=>"\n", FTP_OS_Mac=>"\r", FTP_OS_Windows=>"\r\n");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   130
		$this->AuthorizedTransferMode=array(FTP_AUTOASCII, FTP_ASCII, FTP_BINARY);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   131
		$this->OS_FullName=array(FTP_OS_Unix => 'UNIX', FTP_OS_Windows => 'WINDOWS', FTP_OS_Mac => 'MACOS');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   132
		$this->AutoAsciiExt=array("ASP","BAT","C","CPP","CSS","CSV","JS","H","HTM","HTML","SHTML","INI","LOG","PHP3","PHTML","PL","PERL","SH","SQL","TXT");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   133
		$this->_port_available=($port_mode==TRUE);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   134
		$this->SendMSG("Staring FTP client class".($this->_port_available?"":" without PORT mode support"));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   135
		$this->_connected=FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   136
		$this->_ready=FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   137
		$this->_can_restore=FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   138
		$this->_code=0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   139
		$this->_message="";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   140
		$this->_ftp_buff_size=4096;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   141
		$this->_curtype=NULL;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   142
		$this->SetUmask(0022);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   143
		$this->SetType(FTP_AUTOASCII);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   144
		$this->SetTimeout(30);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   145
		$this->Passive(!$this->_port_available);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   146
		$this->_login="anonymous";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   147
		$this->_password="anon@ftp.com";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   148
		$this->_features=array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   149
	    $this->OS_local=FTP_OS_Unix;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   150
		$this->OS_remote=FTP_OS_Unix;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   151
		$this->features=array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   152
		if(strtoupper(substr(PHP_OS, 0, 3)) === 'WIN') $this->OS_local=FTP_OS_Windows;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   153
		elseif(strtoupper(substr(PHP_OS, 0, 3)) === 'MAC') $this->OS_local=FTP_OS_Mac;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   154
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   155
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   156
	function ftp_base($port_mode=FALSE) {
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   157
		$this->__construct($port_mode);
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   158
	}
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   159
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   160
// <!-- --------------------------------------------------------------------------------------- -->
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   161
// <!--       Public functions                                                                  -->
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   162
// <!-- --------------------------------------------------------------------------------------- -->
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   163
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   164
	function parselisting($line) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   165
		$is_windows = ($this->OS_remote == FTP_OS_Windows);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   166
		if ($is_windows && preg_match("/([0-9]{2})-([0-9]{2})-([0-9]{2}) +([0-9]{2}):([0-9]{2})(AM|PM) +([0-9]+|<DIR>) +(.+)/",$line,$lucifer)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   167
			$b = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   168
			if ($lucifer[3]<70) { $lucifer[3]+=2000; } else { $lucifer[3]+=1900; } // 4digit year fix
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   169
			$b['isdir'] = ($lucifer[7]=="<DIR>");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   170
			if ( $b['isdir'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   171
				$b['type'] = 'd';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   172
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   173
				$b['type'] = 'f';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   174
			$b['size'] = $lucifer[7];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   175
			$b['month'] = $lucifer[1];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   176
			$b['day'] = $lucifer[2];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   177
			$b['year'] = $lucifer[3];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   178
			$b['hour'] = $lucifer[4];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   179
			$b['minute'] = $lucifer[5];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   180
			$b['time'] = @mktime($lucifer[4]+(strcasecmp($lucifer[6],"PM")==0?12:0),$lucifer[5],0,$lucifer[1],$lucifer[2],$lucifer[3]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   181
			$b['am/pm'] = $lucifer[6];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   182
			$b['name'] = $lucifer[8];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   183
		} else if (!$is_windows && $lucifer=preg_split("/[ ]/",$line,9,PREG_SPLIT_NO_EMPTY)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   184
			//echo $line."\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   185
			$lcount=count($lucifer);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   186
			if ($lcount<8) return '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   187
			$b = array();
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 9
diff changeset
   188
			$b['isdir'] = $lucifer[0][0] === "d";
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 9
diff changeset
   189
			$b['islink'] = $lucifer[0][0] === "l";
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   190
			if ( $b['isdir'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   191
				$b['type'] = 'd';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   192
			elseif ( $b['islink'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   193
				$b['type'] = 'l';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   194
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   195
				$b['type'] = 'f';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   196
			$b['perms'] = $lucifer[0];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   197
			$b['number'] = $lucifer[1];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   198
			$b['owner'] = $lucifer[2];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   199
			$b['group'] = $lucifer[3];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   200
			$b['size'] = $lucifer[4];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   201
			if ($lcount==8) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   202
				sscanf($lucifer[5],"%d-%d-%d",$b['year'],$b['month'],$b['day']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   203
				sscanf($lucifer[6],"%d:%d",$b['hour'],$b['minute']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   204
				$b['time'] = @mktime($b['hour'],$b['minute'],0,$b['month'],$b['day'],$b['year']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   205
				$b['name'] = $lucifer[7];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   206
			} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   207
				$b['month'] = $lucifer[5];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   208
				$b['day'] = $lucifer[6];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   209
				if (preg_match("/([0-9]{2}):([0-9]{2})/",$lucifer[7],$l2)) {
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 9
diff changeset
   210
					$b['year'] = gmdate("Y");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   211
					$b['hour'] = $l2[1];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   212
					$b['minute'] = $l2[2];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   213
				} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   214
					$b['year'] = $lucifer[7];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   215
					$b['hour'] = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   216
					$b['minute'] = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   217
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   218
				$b['time'] = strtotime(sprintf("%d %s %d %02d:%02d",$b['day'],$b['month'],$b['year'],$b['hour'],$b['minute']));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   219
				$b['name'] = $lucifer[8];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   220
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   221
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   222
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   223
		return $b;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   224
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   225
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   226
	function SendMSG($message = "", $crlf=true) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   227
		if ($this->Verbose) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   228
			echo $message.($crlf?CRLF:"");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   229
			flush();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   230
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   231
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   232
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   233
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   234
	function SetType($mode=FTP_AUTOASCII) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   235
		if(!in_array($mode, $this->AuthorizedTransferMode)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   236
			$this->SendMSG("Wrong type");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   237
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   238
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   239
		$this->_type=$mode;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   240
		$this->SendMSG("Transfer type: ".($this->_type==FTP_BINARY?"binary":($this->_type==FTP_ASCII?"ASCII":"auto ASCII") ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   241
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   242
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   243
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   244
	function _settype($mode=FTP_ASCII) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   245
		if($this->_ready) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   246
			if($mode==FTP_BINARY) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   247
				if($this->_curtype!=FTP_BINARY) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   248
					if(!$this->_exec("TYPE I", "SetType")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   249
					$this->_curtype=FTP_BINARY;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   250
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   251
			} elseif($this->_curtype!=FTP_ASCII) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   252
				if(!$this->_exec("TYPE A", "SetType")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   253
				$this->_curtype=FTP_ASCII;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   254
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   255
		} else return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   256
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   257
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   258
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   259
	function Passive($pasv=NULL) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   260
		if(is_null($pasv)) $this->_passive=!$this->_passive;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   261
		else $this->_passive=$pasv;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   262
		if(!$this->_port_available and !$this->_passive) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   263
			$this->SendMSG("Only passive connections available!");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   264
			$this->_passive=TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   265
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   266
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   267
		$this->SendMSG("Passive mode ".($this->_passive?"on":"off"));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   268
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   269
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   270
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   271
	function SetServer($host, $port=21, $reconnect=true) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   272
		if(!is_long($port)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   273
	        $this->verbose=true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   274
    	    $this->SendMSG("Incorrect port syntax");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   275
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   276
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   277
			$ip=@gethostbyname($host);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   278
	        $dns=@gethostbyaddr($host);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   279
	        if(!$ip) $ip=$host;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   280
	        if(!$dns) $dns=$host;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   281
	        // Validate the IPAddress PHP4 returns -1 for invalid, PHP5 false
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   282
	        // -1 === "255.255.255.255" which is the broadcast address which is also going to be invalid
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   283
	        $ipaslong = ip2long($ip);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   284
			if ( ($ipaslong == false) || ($ipaslong === -1) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   285
				$this->SendMSG("Wrong host name/address \"".$host."\"");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   286
				return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   287
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   288
	        $this->_host=$ip;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   289
	        $this->_fullhost=$dns;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   290
	        $this->_port=$port;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   291
	        $this->_dataport=$port-1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   292
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   293
		$this->SendMSG("Host \"".$this->_fullhost."(".$this->_host."):".$this->_port."\"");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   294
		if($reconnect){
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   295
			if($this->_connected) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   296
				$this->SendMSG("Reconnecting");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   297
				if(!$this->quit(FTP_FORCE)) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   298
				if(!$this->connect()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   299
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   300
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   301
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   302
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   303
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   304
	function SetUmask($umask=0022) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   305
		$this->_umask=$umask;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   306
		umask($this->_umask);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   307
		$this->SendMSG("UMASK 0".decoct($this->_umask));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   308
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   309
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   310
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   311
	function SetTimeout($timeout=30) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   312
		$this->_timeout=$timeout;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   313
		$this->SendMSG("Timeout ".$this->_timeout);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   314
		if($this->_connected)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   315
			if(!$this->_settimeout($this->_ftp_control_sock)) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   316
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   317
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   318
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   319
	function connect($server=NULL) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   320
		if(!empty($server)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   321
			if(!$this->SetServer($server)) return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   322
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   323
		if($this->_ready) return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   324
	    $this->SendMsg('Local OS : '.$this->OS_FullName[$this->OS_local]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   325
		if(!($this->_ftp_control_sock = $this->_connect($this->_host, $this->_port))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   326
			$this->SendMSG("Error : Cannot connect to remote host \"".$this->_fullhost." :".$this->_port."\"");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   327
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   328
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   329
		$this->SendMSG("Connected to remote host \"".$this->_fullhost.":".$this->_port."\". Waiting for greeting.");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   330
		do {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   331
			if(!$this->_readmsg()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   332
			if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   333
			$this->_lastaction=time();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   334
		} while($this->_code<200);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   335
		$this->_ready=true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   336
		$syst=$this->systype();
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   337
		if(!$syst) $this->SendMSG("Cannot detect remote OS");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   338
		else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   339
			if(preg_match("/win|dos|novell/i", $syst[0])) $this->OS_remote=FTP_OS_Windows;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   340
			elseif(preg_match("/os/i", $syst[0])) $this->OS_remote=FTP_OS_Mac;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   341
			elseif(preg_match("/(li|u)nix/i", $syst[0])) $this->OS_remote=FTP_OS_Unix;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   342
			else $this->OS_remote=FTP_OS_Mac;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   343
			$this->SendMSG("Remote OS: ".$this->OS_FullName[$this->OS_remote]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   344
		}
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   345
		if(!$this->features()) $this->SendMSG("Cannot get features list. All supported - disabled");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   346
		else $this->SendMSG("Supported features: ".implode(", ", array_keys($this->_features)));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   347
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   348
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   349
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   350
	function quit($force=false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   351
		if($this->_ready) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   352
			if(!$this->_exec("QUIT") and !$force) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   353
			if(!$this->_checkCode() and !$force) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   354
			$this->_ready=false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   355
			$this->SendMSG("Session finished");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   356
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   357
		$this->_quit();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   358
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   359
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   360
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   361
	function login($user=NULL, $pass=NULL) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   362
		if(!is_null($user)) $this->_login=$user;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   363
		else $this->_login="anonymous";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   364
		if(!is_null($pass)) $this->_password=$pass;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   365
		else $this->_password="anon@anon.com";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   366
		if(!$this->_exec("USER ".$this->_login, "login")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   367
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   368
		if($this->_code!=230) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   369
			if(!$this->_exec((($this->_code==331)?"PASS ":"ACCT ").$this->_password, "login")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   370
			if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   371
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   372
		$this->SendMSG("Authentication succeeded");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   373
		if(empty($this->_features)) {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   374
			if(!$this->features()) $this->SendMSG("Cannot get features list. All supported - disabled");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   375
			else $this->SendMSG("Supported features: ".implode(", ", array_keys($this->_features)));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   376
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   377
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   378
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   379
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   380
	function pwd() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   381
		if(!$this->_exec("PWD", "pwd")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   382
		if(!$this->_checkCode()) return FALSE;
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   383
		return preg_replace("/^[0-9]{3} \"(.+)\".*$/s", "\\1", $this->_message);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   384
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   385
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   386
	function cdup() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   387
		if(!$this->_exec("CDUP", "cdup")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   388
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   389
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   390
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   391
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   392
	function chdir($pathname) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   393
		if(!$this->_exec("CWD ".$pathname, "chdir")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   394
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   395
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   396
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   397
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   398
	function rmdir($pathname) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   399
		if(!$this->_exec("RMD ".$pathname, "rmdir")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   400
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   401
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   402
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   403
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   404
	function mkdir($pathname) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   405
		if(!$this->_exec("MKD ".$pathname, "mkdir")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   406
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   407
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   408
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   409
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   410
	function rename($from, $to) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   411
		if(!$this->_exec("RNFR ".$from, "rename")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   412
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   413
		if($this->_code==350) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   414
			if(!$this->_exec("RNTO ".$to, "rename")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   415
			if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   416
		} else return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   417
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   418
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   419
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   420
	function filesize($pathname) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   421
		if(!isset($this->_features["SIZE"])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   422
			$this->PushError("filesize", "not supported by server");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   423
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   424
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   425
		if(!$this->_exec("SIZE ".$pathname, "filesize")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   426
		if(!$this->_checkCode()) return FALSE;
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   427
		return preg_replace("/^[0-9]{3} ([0-9]+).*$/s", "\\1", $this->_message);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   428
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   429
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   430
	function abort() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   431
		if(!$this->_exec("ABOR", "abort")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   432
		if(!$this->_checkCode()) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   433
			if($this->_code!=426) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   434
			if(!$this->_readmsg("abort")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   435
			if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   436
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   437
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   438
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   439
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   440
	function mdtm($pathname) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   441
		if(!isset($this->_features["MDTM"])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   442
			$this->PushError("mdtm", "not supported by server");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   443
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   444
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   445
		if(!$this->_exec("MDTM ".$pathname, "mdtm")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   446
		if(!$this->_checkCode()) return FALSE;
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   447
		$mdtm = preg_replace("/^[0-9]{3} ([0-9]+).*$/s", "\\1", $this->_message);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   448
		$date = sscanf($mdtm, "%4d%2d%2d%2d%2d%2d");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   449
		$timestamp = mktime($date[3], $date[4], $date[5], $date[1], $date[2], $date[0]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   450
		return $timestamp;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   451
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   452
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   453
	function systype() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   454
		if(!$this->_exec("SYST", "systype")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   455
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   456
		$DATA = explode(" ", $this->_message);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   457
		return array($DATA[1], $DATA[3]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   458
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   459
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   460
	function delete($pathname) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   461
		if(!$this->_exec("DELE ".$pathname, "delete")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   462
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   463
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   464
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   465
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   466
	function site($command, $fnction="site") {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   467
		if(!$this->_exec("SITE ".$command, $fnction)) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   468
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   469
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   470
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   471
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   472
	function chmod($pathname, $mode) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   473
		if(!$this->site( sprintf('CHMOD %o %s', $mode, $pathname), "chmod")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   474
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   475
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   476
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   477
	function restore($from) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   478
		if(!isset($this->_features["REST"])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   479
			$this->PushError("restore", "not supported by server");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   480
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   481
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   482
		if($this->_curtype!=FTP_BINARY) {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   483
			$this->PushError("restore", "cannot restore in ASCII mode");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   484
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   485
		}
21
48c4eec2b7e6 Add CLAUDE.md documentation and sync WordPress core files
ymh <ymh.work@gmail.com>
parents: 19
diff changeset
   486
		if(!$this->_exec("REST ".$from, "restore")) return FALSE;
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   487
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   488
		return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   489
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   490
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   491
	function features() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   492
		if(!$this->_exec("FEAT", "features")) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   493
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   494
		$f=preg_split("/[".CRLF."]+/", preg_replace("/[0-9]{3}[ -].*[".CRLF."]+/", "", $this->_message), -1, PREG_SPLIT_NO_EMPTY);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   495
		$this->_features=array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   496
		foreach($f as $k=>$v) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   497
			$v=explode(" ", trim($v));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   498
			$this->_features[array_shift($v)]=$v;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   499
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   500
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   501
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   502
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   503
	function rawlist($pathname="", $arg="") {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   504
		return $this->_list(($arg?" ".$arg:"").($pathname?" ".$pathname:""), "LIST", "rawlist");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   505
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   506
5
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   507
	function nlist($pathname="", $arg="") {
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   508
		return $this->_list(($arg?" ".$arg:"").($pathname?" ".$pathname:""), "NLST", "nlist");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   509
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   510
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   511
	function is_exists($pathname) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   512
		return $this->file_exists($pathname);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   513
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   514
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   515
	function file_exists($pathname) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   516
		$exists=true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   517
		if(!$this->_exec("RNFR ".$pathname, "rename")) $exists=FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   518
		else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   519
			if(!$this->_checkCode()) $exists=FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   520
			$this->abort();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   521
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   522
		if($exists) $this->SendMSG("Remote file ".$pathname." exists");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   523
		else $this->SendMSG("Remote file ".$pathname." does not exist");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   524
		return $exists;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   525
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   526
9
177826044cd9 upgrade wordpress to 5.2.3
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   527
	function fget($fp, $remotefile, $rest=0) {
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   528
		if($this->_can_restore and $rest!=0) fseek($fp, $rest);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   529
		$pi=pathinfo($remotefile);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   530
		if($this->_type==FTP_ASCII or ($this->_type==FTP_AUTOASCII and in_array(strtoupper($pi["extension"]), $this->AutoAsciiExt))) $mode=FTP_ASCII;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   531
		else $mode=FTP_BINARY;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   532
		if(!$this->_data_prepare($mode)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   533
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   534
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   535
		if($this->_can_restore and $rest!=0) $this->restore($rest);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   536
		if(!$this->_exec("RETR ".$remotefile, "get")) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   537
			$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   538
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   539
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   540
		if(!$this->_checkCode()) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   541
			$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   542
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   543
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   544
		$out=$this->_data_read($mode, $fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   545
		$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   546
		if(!$this->_readmsg()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   547
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   548
		return $out;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   549
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   550
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   551
	function get($remotefile, $localfile=NULL, $rest=0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   552
		if(is_null($localfile)) $localfile=$remotefile;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   553
		if (@file_exists($localfile)) $this->SendMSG("Warning : local file will be overwritten");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   554
		$fp = @fopen($localfile, "w");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   555
		if (!$fp) {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   556
			$this->PushError("get","cannot open local file", "Cannot create \"".$localfile."\"");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   557
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   558
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   559
		if($this->_can_restore and $rest!=0) fseek($fp, $rest);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   560
		$pi=pathinfo($remotefile);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   561
		if($this->_type==FTP_ASCII or ($this->_type==FTP_AUTOASCII and in_array(strtoupper($pi["extension"]), $this->AutoAsciiExt))) $mode=FTP_ASCII;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   562
		else $mode=FTP_BINARY;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   563
		if(!$this->_data_prepare($mode)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   564
			fclose($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   565
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   566
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   567
		if($this->_can_restore and $rest!=0) $this->restore($rest);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   568
		if(!$this->_exec("RETR ".$remotefile, "get")) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   569
			$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   570
			fclose($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   571
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   572
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   573
		if(!$this->_checkCode()) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   574
			$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   575
			fclose($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   576
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   577
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   578
		$out=$this->_data_read($mode, $fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   579
		fclose($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   580
		$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   581
		if(!$this->_readmsg()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   582
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   583
		return $out;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   584
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   585
9
177826044cd9 upgrade wordpress to 5.2.3
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   586
	function fput($remotefile, $fp, $rest=0) {
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   587
		if($this->_can_restore and $rest!=0) fseek($fp, $rest);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   588
		$pi=pathinfo($remotefile);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   589
		if($this->_type==FTP_ASCII or ($this->_type==FTP_AUTOASCII and in_array(strtoupper($pi["extension"]), $this->AutoAsciiExt))) $mode=FTP_ASCII;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   590
		else $mode=FTP_BINARY;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   591
		if(!$this->_data_prepare($mode)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   592
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   593
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   594
		if($this->_can_restore and $rest!=0) $this->restore($rest);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   595
		if(!$this->_exec("STOR ".$remotefile, "put")) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   596
			$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   597
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   598
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   599
		if(!$this->_checkCode()) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   600
			$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   601
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   602
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   603
		$ret=$this->_data_write($mode, $fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   604
		$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   605
		if(!$this->_readmsg()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   606
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   607
		return $ret;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   608
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   609
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   610
	function put($localfile, $remotefile=NULL, $rest=0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   611
		if(is_null($remotefile)) $remotefile=$localfile;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   612
		if (!file_exists($localfile)) {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   613
			$this->PushError("put","cannot open local file", "No such file or directory \"".$localfile."\"");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   614
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   615
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   616
		$fp = @fopen($localfile, "r");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   617
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   618
		if (!$fp) {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   619
			$this->PushError("put","cannot open local file", "Cannot read file \"".$localfile."\"");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   620
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   621
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   622
		if($this->_can_restore and $rest!=0) fseek($fp, $rest);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   623
		$pi=pathinfo($localfile);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   624
		if($this->_type==FTP_ASCII or ($this->_type==FTP_AUTOASCII and in_array(strtoupper($pi["extension"]), $this->AutoAsciiExt))) $mode=FTP_ASCII;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   625
		else $mode=FTP_BINARY;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   626
		if(!$this->_data_prepare($mode)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   627
			fclose($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   628
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   629
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   630
		if($this->_can_restore and $rest!=0) $this->restore($rest);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   631
		if(!$this->_exec("STOR ".$remotefile, "put")) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   632
			$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   633
			fclose($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   634
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   635
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   636
		if(!$this->_checkCode()) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   637
			$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   638
			fclose($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   639
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   640
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   641
		$ret=$this->_data_write($mode, $fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   642
		fclose($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   643
		$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   644
		if(!$this->_readmsg()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   645
		if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   646
		return $ret;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   647
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   648
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   649
	function mput($local=".", $remote=NULL, $continious=false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   650
		$local=realpath($local);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   651
		if(!@file_exists($local)) {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   652
			$this->PushError("mput","cannot open local folder", "Cannot stat folder \"".$local."\"");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   653
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   654
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   655
		if(!is_dir($local)) return $this->put($local, $remote);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   656
		if(empty($remote)) $remote=".";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   657
		elseif(!$this->file_exists($remote) and !$this->mkdir($remote)) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   658
		if($handle = opendir($local)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   659
			$list=array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   660
			while (false !== ($file = readdir($handle))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   661
				if ($file != "." && $file != "..") $list[]=$file;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   662
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   663
			closedir($handle);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   664
		} else {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   665
			$this->PushError("mput","cannot open local folder", "Cannot read folder \"".$local."\"");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   666
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   667
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   668
		if(empty($list)) return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   669
		$ret=true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   670
		foreach($list as $el) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   671
			if(is_dir($local."/".$el)) $t=$this->mput($local."/".$el, $remote."/".$el);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   672
			else $t=$this->put($local."/".$el, $remote."/".$el);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   673
			if(!$t) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   674
				$ret=FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   675
				if(!$continious) break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   676
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   677
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   678
		return $ret;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   679
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   680
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   681
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   682
	function mget($remote, $local=".", $continious=false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   683
		$list=$this->rawlist($remote, "-lA");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   684
		if($list===false) {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   685
			$this->PushError("mget","cannot read remote folder list", "Cannot read remote folder \"".$remote."\" contents");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   686
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   687
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   688
		if(empty($list)) return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   689
		if(!@file_exists($local)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   690
			if(!@mkdir($local)) {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   691
				$this->PushError("mget","cannot create local folder", "Cannot create folder \"".$local."\"");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   692
				return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   693
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   694
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   695
		foreach($list as $k=>$v) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   696
			$list[$k]=$this->parselisting($v);
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   697
			if( ! $list[$k] or $list[$k]["name"]=="." or $list[$k]["name"]=="..") unset($list[$k]);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   698
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   699
		$ret=true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   700
		foreach($list as $el) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   701
			if($el["type"]=="d") {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   702
				if(!$this->mget($remote."/".$el["name"], $local."/".$el["name"], $continious)) {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   703
					$this->PushError("mget", "cannot copy folder", "Cannot copy remote folder \"".$remote."/".$el["name"]."\" to local \"".$local."/".$el["name"]."\"");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   704
					$ret=false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   705
					if(!$continious) break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   706
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   707
			} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   708
				if(!$this->get($remote."/".$el["name"], $local."/".$el["name"])) {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   709
					$this->PushError("mget", "cannot copy file", "Cannot copy remote file \"".$remote."/".$el["name"]."\" to local \"".$local."/".$el["name"]."\"");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   710
					$ret=false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   711
					if(!$continious) break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   712
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   713
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   714
			@chmod($local."/".$el["name"], $el["perms"]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   715
			$t=strtotime($el["date"]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   716
			if($t!==-1 and $t!==false) @touch($local."/".$el["name"], $t);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   717
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   718
		return $ret;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   719
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   720
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   721
	function mdel($remote, $continious=false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   722
		$list=$this->rawlist($remote, "-la");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   723
		if($list===false) {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   724
			$this->PushError("mdel","cannot read remote folder list", "Cannot read remote folder \"".$remote."\" contents");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   725
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   726
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   727
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   728
		foreach($list as $k=>$v) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   729
			$list[$k]=$this->parselisting($v);
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   730
			if( ! $list[$k] or $list[$k]["name"]=="." or $list[$k]["name"]=="..") unset($list[$k]);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   731
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   732
		$ret=true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   733
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   734
		foreach($list as $el) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   735
			if ( empty($el) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   736
				continue;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   737
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   738
			if($el["type"]=="d") {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   739
				if(!$this->mdel($remote."/".$el["name"], $continious)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   740
					$ret=false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   741
					if(!$continious) break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   742
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   743
			} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   744
				if (!$this->delete($remote."/".$el["name"])) {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   745
					$this->PushError("mdel", "cannot delete file", "Cannot delete remote file \"".$remote."/".$el["name"]."\"");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   746
					$ret=false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   747
					if(!$continious) break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   748
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   749
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   750
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   751
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   752
		if(!$this->rmdir($remote)) {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   753
			$this->PushError("mdel", "cannot delete folder", "Cannot delete remote folder \"".$remote."/".$el["name"]."\"");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   754
			$ret=false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   755
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   756
		return $ret;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   757
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   758
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   759
	function mmkdir($dir, $mode = 0777) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   760
		if(empty($dir)) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   761
		if($this->is_exists($dir) or $dir == "/" ) return TRUE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   762
		if(!$this->mmkdir(dirname($dir), $mode)) return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   763
		$r=$this->mkdir($dir, $mode);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   764
		$this->chmod($dir,$mode);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   765
		return $r;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   766
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   767
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   768
	function glob($pattern, $handle=NULL) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   769
		$path=$output=null;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   770
		if(PHP_OS=='WIN32') $slash='\\';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   771
		else $slash='/';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   772
		$lastpos=strrpos($pattern,$slash);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   773
		if(!($lastpos===false)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   774
			$path=substr($pattern,0,-$lastpos-1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   775
			$pattern=substr($pattern,$lastpos);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   776
		} else $path=getcwd();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   777
		if(is_array($handle) and !empty($handle)) {
9
177826044cd9 upgrade wordpress to 5.2.3
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   778
			foreach($handle as $dir) {
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   779
				if($this->glob_pattern_match($pattern,$dir))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   780
				$output[]=$dir;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   781
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   782
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   783
			$handle=@opendir($path);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   784
			if($handle===false) return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   785
			while($dir=readdir($handle)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   786
				if($this->glob_pattern_match($pattern,$dir))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   787
				$output[]=$dir;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   788
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   789
			closedir($handle);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   790
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   791
		if(is_array($output)) return $output;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   792
		return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   793
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   794
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   795
	function glob_pattern_match($pattern,$subject) {
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   796
		$out=null;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   797
		$chunks=explode(';',$pattern);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   798
		foreach($chunks as $pattern) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   799
			$escape=array('$','^','.','{','}','(',')','[',']','|');
21
48c4eec2b7e6 Add CLAUDE.md documentation and sync WordPress core files
ymh <ymh.work@gmail.com>
parents: 19
diff changeset
   800
			while(str_contains($pattern,'**'))
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   801
				$pattern=str_replace('**','*',$pattern);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   802
			foreach($escape as $probe)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   803
				$pattern=str_replace($probe,"\\$probe",$pattern);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   804
			$pattern=str_replace('?*','*',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   805
				str_replace('*?','*',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   806
					str_replace('*',".*",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   807
						str_replace('?','.{1,1}',$pattern))));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   808
			$out[]=$pattern;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   809
		}
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   810
		if(count($out)==1) return($this->glob_regexp("^$out[0]$",$subject));
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   811
		else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   812
			foreach($out as $tester)
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   813
				// TODO: This should probably be glob_regexp(), but needs tests.
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   814
				if($this->my_regexp("^$tester$",$subject)) return true;
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   815
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   816
		return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   817
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   818
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   819
	function glob_regexp($pattern,$subject) {
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   820
		$sensitive=(PHP_OS!='WIN32');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   821
		return ($sensitive?
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   822
			preg_match( '/' . preg_quote( $pattern, '/' ) . '/', $subject ) :
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   823
			preg_match( '/' . preg_quote( $pattern, '/' ) . '/i', $subject )
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   824
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   825
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   826
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   827
	function dirlist($remote) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   828
		$list=$this->rawlist($remote, "-la");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   829
		if($list===false) {
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   830
			$this->PushError("dirlist","cannot read remote folder list", "Cannot read remote folder \"".$remote."\" contents");
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   831
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   832
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   833
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   834
		$dirlist = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   835
		foreach($list as $k=>$v) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   836
			$entry=$this->parselisting($v);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   837
			if ( empty($entry) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   838
				continue;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   839
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   840
			if($entry["name"]=="." or $entry["name"]=="..")
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   841
				continue;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   842
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   843
			$dirlist[$entry['name']] = $entry;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   844
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   845
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   846
		return $dirlist;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   847
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   848
// <!-- --------------------------------------------------------------------------------------- -->
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   849
// <!--       Private functions                                                                 -->
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   850
// <!-- --------------------------------------------------------------------------------------- -->
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   851
	function _checkCode() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   852
		return ($this->_code<400 and $this->_code>0);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   853
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   854
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   855
	function _list($arg="", $cmd="LIST", $fnction="_list") {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   856
		if(!$this->_data_prepare()) return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   857
		if(!$this->_exec($cmd.$arg, $fnction)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   858
			$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   859
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   860
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   861
		if(!$this->_checkCode()) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   862
			$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   863
			return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   864
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   865
		$out="";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   866
		if($this->_code<200) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   867
			$out=$this->_data_read();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   868
			$this->_data_close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   869
			if(!$this->_readmsg()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   870
			if(!$this->_checkCode()) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   871
			if($out === FALSE ) return FALSE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   872
			$out=preg_split("/[".CRLF."]+/", $out, -1, PREG_SPLIT_NO_EMPTY);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   873
//			$this->SendMSG(implode($this->_eol_code[$this->OS_local], $out));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   874
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   875
		return $out;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   876
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   877
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   878
// <!-- --------------------------------------------------------------------------------------- -->
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   879
// <!-- Partie : gestion des erreurs                                                            -->
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   880
// <!-- --------------------------------------------------------------------------------------- -->
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   881
// Gnre une erreur pour traitement externe  la classe
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   882
	function PushError($fctname,$msg,$desc=false){
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   883
		$error=array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   884
		$error['time']=time();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   885
		$error['fctname']=$fctname;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   886
		$error['msg']=$msg;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   887
		$error['desc']=$desc;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   888
		if($desc) $tmp=' ('.$desc.')'; else $tmp='';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   889
		$this->SendMSG($fctname.': '.$msg.$tmp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   890
		return(array_push($this->_error_array,$error));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   891
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   892
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   893
// Rcupre une erreur externe
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   894
	function PopError(){
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   895
		if(count($this->_error_array)) return(array_pop($this->_error_array));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   896
			else return(false);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   897
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   898
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   899
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   900
$mod_sockets = extension_loaded( 'sockets' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   901
if ( ! $mod_sockets && function_exists( 'dl' ) && is_callable( 'dl' ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   902
	$prefix = ( PHP_SHLIB_SUFFIX == 'dll' ) ? 'php_' : '';
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 9
diff changeset
   903
	@dl( $prefix . 'sockets.' . PHP_SHLIB_SUFFIX ); // phpcs:ignore PHPCompatibility.FunctionUse.RemovedFunctions.dlDeprecated
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   904
	$mod_sockets = extension_loaded( 'sockets' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   905
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   906
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 9
diff changeset
   907
require_once __DIR__ . "/class-ftp-" . ( $mod_sockets ? "sockets" : "pure" ) . ".php";
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   908
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   909
if ( $mod_sockets ) {
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   910
	class ftp extends ftp_sockets {}
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   911
} else {
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   912
	class ftp extends ftp_pure {}
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   913
}