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