diff options
Diffstat (limited to 'ext/ftp/php_ftp.c')
| -rw-r--r-- | ext/ftp/php_ftp.c | 1476 |
1 files changed, 0 insertions, 1476 deletions
diff --git a/ext/ftp/php_ftp.c b/ext/ftp/php_ftp.c deleted file mode 100644 index aa3d0a0010..0000000000 --- a/ext/ftp/php_ftp.c +++ /dev/null @@ -1,1476 +0,0 @@ -/* - +----------------------------------------------------------------------+ - | PHP Version 5 | - +----------------------------------------------------------------------+ - | Copyright (c) 1997-2006 The PHP Group | - +----------------------------------------------------------------------+ - | This source file is subject to version 3.01 of the PHP license, | - | that is bundled with this package in the file LICENSE, and is | - | available through the world-wide-web at the following url: | - | http://www.php.net/license/3_01.txt | - | If you did not receive a copy of the PHP license and are unable to | - | obtain it through the world-wide-web, please send a note to | - | license@php.net so we can mail you a copy immediately. | - +----------------------------------------------------------------------+ - | Authors: Andrew Skalski <askalski@chek.com> | - | Stefan Esser <sesser@php.net> (resume functions) | - +----------------------------------------------------------------------+ - */ - -/* $Id$ */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif - -#include "php.h" - -#if defined(NETWARE) && defined(USE_WINSOCK) -#include <novsock2.h> -#endif - -#if HAVE_OPENSSL_EXT -# include <openssl/ssl.h> -#endif - -#if HAVE_FTP - -#include "ext/standard/info.h" -#include "ext/standard/file.h" - -#include "php_ftp.h" -#include "ftp.h" - -static int le_ftpbuf; -#define le_ftpbuf_name "FTP Buffer" - -/* {{{ arginfo */ -static -ZEND_BEGIN_ARG_INFO_EX(arginfo_ftp_connect, 0, 0, 1) - ZEND_ARG_INFO(0, host) - ZEND_ARG_INFO(0, port) - ZEND_ARG_INFO(0, timeout) -ZEND_END_ARG_INFO() - -#if HAVE_OPENSSL_EXT -static -ZEND_BEGIN_ARG_INFO_EX(arginfo_ftp_ssl_connect, 0, 0, 1) - ZEND_ARG_INFO(0, host) - ZEND_ARG_INFO(0, port) - ZEND_ARG_INFO(0, timeout) -ZEND_END_ARG_INFO() -#endif - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_login, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, username) - ZEND_ARG_INFO(0, password) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_pwd, 0) - ZEND_ARG_INFO(0, ftp) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_cdup, 0) - ZEND_ARG_INFO(0, ftp) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_chdir, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, directory) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_exec, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, command) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_raw, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, command) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_mkdir, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, directory) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_rmdir, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, directory) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_chmod, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, mode) - ZEND_ARG_INFO(0, filename) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO_EX(arginfo_ftp_alloc, 0, 0, 2) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, size) - ZEND_ARG_INFO(1, response) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_nlist, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, directory) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO_EX(arginfo_ftp_rawlist, 0, 0, 2) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, directory) - ZEND_ARG_INFO(0, recursive) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_systype, 0) - ZEND_ARG_INFO(0, ftp) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO_EX(arginfo_ftp_fget, 0, 0, 4) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, fp) - ZEND_ARG_INFO(0, remote_file) - ZEND_ARG_INFO(0, mode) - ZEND_ARG_INFO(0, resumepos) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO_EX(arginfo_ftp_nb_fget, 0, 0, 4) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, fp) - ZEND_ARG_INFO(0, remote_file) - ZEND_ARG_INFO(0, mode) - ZEND_ARG_INFO(0, resumepos) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_pasv, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, pasv) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO_EX(arginfo_ftp_get, 0, 0, 4) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, local_file) - ZEND_ARG_INFO(0, remote_file) - ZEND_ARG_INFO(0, mode) - ZEND_ARG_INFO(0, resume_pos) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO_EX(arginfo_ftp_nb_get, 0, 0, 4) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, local_file) - ZEND_ARG_INFO(0, remote_file) - ZEND_ARG_INFO(0, mode) - ZEND_ARG_INFO(0, resume_pos) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_nb_continue, 0) - ZEND_ARG_INFO(0, ftp) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO_EX(arginfo_ftp_fput, 0, 0, 4) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, remote_file) - ZEND_ARG_INFO(0, fp) - ZEND_ARG_INFO(0, mode) - ZEND_ARG_INFO(0, startpos) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO_EX(arginfo_ftp_nb_fput, 0, 0, 4) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, remote_file) - ZEND_ARG_INFO(0, fp) - ZEND_ARG_INFO(0, mode) - ZEND_ARG_INFO(0, startpos) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO_EX(arginfo_ftp_put, 0, 0, 4) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, remote_file) - ZEND_ARG_INFO(0, local_file) - ZEND_ARG_INFO(0, mode) - ZEND_ARG_INFO(0, startpos) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO_EX(arginfo_ftp_nb_put, 0, 0, 4) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, remote_file) - ZEND_ARG_INFO(0, local_file) - ZEND_ARG_INFO(0, mode) - ZEND_ARG_INFO(0, startpos) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_size, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, filename) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_mdtm, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, filename) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_rename, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, src) - ZEND_ARG_INFO(0, dest) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_delete, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, file) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_site, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, cmd) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_close, 0) - ZEND_ARG_INFO(0, ftp) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_set_option, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, option) - ZEND_ARG_INFO(0, value) -ZEND_END_ARG_INFO() - -static -ZEND_BEGIN_ARG_INFO(arginfo_ftp_get_option, 0) - ZEND_ARG_INFO(0, ftp) - ZEND_ARG_INFO(0, option) -ZEND_END_ARG_INFO() - -/* }}} */ - -zend_function_entry php_ftp_functions[] = { - PHP_FE(ftp_connect, arginfo_ftp_connect) -#if HAVE_OPENSSL_EXT - PHP_FE(ftp_ssl_connect, arginfo_ftp_ssl_connect) -#endif - PHP_FE(ftp_login, arginfo_ftp_login) - PHP_FE(ftp_pwd, arginfo_ftp_pwd) - PHP_FE(ftp_cdup, arginfo_ftp_cdup) - PHP_FE(ftp_chdir, arginfo_ftp_chdir) - PHP_FE(ftp_exec, arginfo_ftp_exec) - PHP_FE(ftp_raw, arginfo_ftp_raw) - PHP_FE(ftp_mkdir, arginfo_ftp_mkdir) - PHP_FE(ftp_rmdir, arginfo_ftp_rmdir) - PHP_FE(ftp_chmod, arginfo_ftp_chmod) - PHP_FE(ftp_alloc, arginfo_ftp_alloc) - PHP_FE(ftp_nlist, arginfo_ftp_nlist) - PHP_FE(ftp_rawlist, arginfo_ftp_rawlist) - PHP_FE(ftp_systype, arginfo_ftp_systype) - PHP_FE(ftp_pasv, arginfo_ftp_pasv) - PHP_FE(ftp_get, arginfo_ftp_get) - PHP_FE(ftp_fget, arginfo_ftp_fget) - PHP_FE(ftp_put, arginfo_ftp_put) - PHP_FE(ftp_fput, arginfo_ftp_fput) - PHP_FE(ftp_size, arginfo_ftp_size) - PHP_FE(ftp_mdtm, arginfo_ftp_mdtm) - PHP_FE(ftp_rename, arginfo_ftp_rename) - PHP_FE(ftp_delete, arginfo_ftp_delete) - PHP_FE(ftp_site, arginfo_ftp_site) - PHP_FE(ftp_close, arginfo_ftp_close) - PHP_FE(ftp_set_option, arginfo_ftp_set_option) - PHP_FE(ftp_get_option, arginfo_ftp_get_option) - PHP_FE(ftp_nb_fget, arginfo_ftp_nb_fget) - PHP_FE(ftp_nb_get, arginfo_ftp_nb_get) - PHP_FE(ftp_nb_continue, arginfo_ftp_nb_continue) - PHP_FE(ftp_nb_put, arginfo_ftp_nb_put) - PHP_FE(ftp_nb_fput, arginfo_ftp_nb_fput) - PHP_FALIAS(ftp_quit, ftp_close, arginfo_ftp_close) - {NULL, NULL, NULL} -}; - -zend_module_entry php_ftp_module_entry = { - STANDARD_MODULE_HEADER, - "ftp", - php_ftp_functions, - PHP_MINIT(ftp), - NULL, - NULL, - NULL, - PHP_MINFO(ftp), - NO_VERSION_YET, - STANDARD_MODULE_PROPERTIES -}; - -#if COMPILE_DL_FTP -ZEND_GET_MODULE(php_ftp) -#endif - -static void ftp_destructor_ftpbuf(zend_rsrc_list_entry *rsrc TSRMLS_DC) -{ - ftpbuf_t *ftp = (ftpbuf_t *)rsrc->ptr; - - ftp_close(ftp); -} - -PHP_MINIT_FUNCTION(ftp) -{ - le_ftpbuf = zend_register_list_destructors_ex(ftp_destructor_ftpbuf, NULL, le_ftpbuf_name, module_number); - REGISTER_LONG_CONSTANT("FTP_ASCII", FTPTYPE_ASCII, CONST_PERSISTENT | CONST_CS); - REGISTER_LONG_CONSTANT("FTP_TEXT", FTPTYPE_ASCII, CONST_PERSISTENT | CONST_CS); - REGISTER_LONG_CONSTANT("FTP_BINARY", FTPTYPE_IMAGE, CONST_PERSISTENT | CONST_CS); - REGISTER_LONG_CONSTANT("FTP_IMAGE", FTPTYPE_IMAGE, CONST_PERSISTENT | CONST_CS); - REGISTER_LONG_CONSTANT("FTP_AUTORESUME", PHP_FTP_AUTORESUME, CONST_PERSISTENT | CONST_CS); - REGISTER_LONG_CONSTANT("FTP_TIMEOUT_SEC", PHP_FTP_OPT_TIMEOUT_SEC, CONST_PERSISTENT | CONST_CS); - REGISTER_LONG_CONSTANT("FTP_AUTOSEEK", PHP_FTP_OPT_AUTOSEEK, CONST_PERSISTENT | CONST_CS); - REGISTER_LONG_CONSTANT("FTP_FAILED", PHP_FTP_FAILED, CONST_PERSISTENT | CONST_CS); - REGISTER_LONG_CONSTANT("FTP_FINISHED", PHP_FTP_FINISHED, CONST_PERSISTENT | CONST_CS); - REGISTER_LONG_CONSTANT("FTP_MOREDATA", PHP_FTP_MOREDATA, CONST_PERSISTENT | CONST_CS); - return SUCCESS; -} - -PHP_MINFO_FUNCTION(ftp) -{ - php_info_print_table_start(); - php_info_print_table_row(2, "FTP support", "enabled"); - php_info_print_table_end(); -} - -#define XTYPE(xtype, mode) { \ - if (mode != FTPTYPE_ASCII && mode != FTPTYPE_IMAGE) { \ - php_error_docref(NULL TSRMLS_CC, E_WARNING, "Mode must be FTP_ASCII or FTP_BINARY"); \ - RETURN_FALSE; \ - } \ - xtype = mode; \ - } - - -/* {{{ proto resource ftp_connect(string host [, int port [, int timeout]]) - Opens a FTP stream */ -PHP_FUNCTION(ftp_connect) -{ - ftpbuf_t *ftp; - char *host; - int host_len; - long port = 0; - long timeout_sec = FTP_DEFAULT_TIMEOUT; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|ll", &host, &host_len, &port, &timeout_sec) == FAILURE) { - return; - } - - if (timeout_sec <= 0) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "Timeout has to be greater than 0"); - RETURN_FALSE; - } - - /* connect */ - if (!(ftp = ftp_open(host, (short)port, timeout_sec TSRMLS_CC))) { - RETURN_FALSE; - } - - /* autoseek for resuming */ - ftp->autoseek = FTP_DEFAULT_AUTOSEEK; -#if HAVE_OPENSSL_EXT - /* disable ssl */ - ftp->use_ssl = 0; -#endif - - ZEND_REGISTER_RESOURCE(return_value, ftp, le_ftpbuf); -} -/* }}} */ - -#if HAVE_OPENSSL_EXT -/* {{{ proto resource ftp_ssl_connect(string host [, int port [, int timeout]]) - Opens a FTP-SSL stream */ -PHP_FUNCTION(ftp_ssl_connect) -{ - ftpbuf_t *ftp; - char *host; - int host_len; - long port = 0; - long timeout_sec = FTP_DEFAULT_TIMEOUT; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|ll", &host, &host_len, &port, &timeout_sec) == FAILURE) { - return; - } - - if (timeout_sec <= 0) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "Timeout has to be greater than 0"); - RETURN_FALSE; - } - - /* connect */ - if (!(ftp = ftp_open(host, (short)port, timeout_sec TSRMLS_CC))) { - RETURN_FALSE; - } - - /* autoseek for resuming */ - ftp->autoseek = FTP_DEFAULT_AUTOSEEK; - /* enable ssl */ - ftp->use_ssl = 1; - - ZEND_REGISTER_RESOURCE(return_value, ftp, le_ftpbuf); -} -/* }}} */ -#endif - -/* {{{ proto bool ftp_login(resource stream, string username, string password) - Logs into the FTP server */ -PHP_FUNCTION(ftp_login) -{ - zval *z_ftp; - ftpbuf_t *ftp; - char *user, *pass; - int user_len, pass_len; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rss", &z_ftp, &user, &user_len, &pass, &pass_len) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - /* log in */ - if (!ftp_login(ftp, user, pass TSRMLS_CC)) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto string ftp_pwd(resource stream) - Returns the present working directory */ -PHP_FUNCTION(ftp_pwd) -{ - zval *z_ftp; - ftpbuf_t *ftp; - const char *pwd; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &z_ftp) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - if (!(pwd = ftp_pwd(ftp))) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - RETURN_STRING((char*) pwd, 1); -} -/* }}} */ - -/* {{{ proto bool ftp_cdup(resource stream) - Changes to the parent directory */ -PHP_FUNCTION(ftp_cdup) -{ - zval *z_ftp; - ftpbuf_t *ftp; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &z_ftp) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - if (!ftp_cdup(ftp)) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto bool ftp_chdir(resource stream, string directory) - Changes directories */ -PHP_FUNCTION(ftp_chdir) -{ - zval *z_ftp; - ftpbuf_t *ftp; - char *dir; - int dir_len; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &z_ftp, &dir, &dir_len) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - /* change directories */ - if (!ftp_chdir(ftp, dir)) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto bool ftp_exec(resource stream, string command) - Requests execution of a program on the FTP server */ -PHP_FUNCTION(ftp_exec) -{ - zval *z_ftp; - ftpbuf_t *ftp; - char *cmd; - int cmd_len; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &z_ftp, &cmd, &cmd_len) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - /* execute serverside command */ - if (!ftp_exec(ftp, cmd)) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto array ftp_raw(resource stream, string command) - Sends a literal command to the FTP server */ -PHP_FUNCTION(ftp_raw) -{ - zval *z_ftp; - ftpbuf_t *ftp; - char *cmd; - int cmd_len; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &z_ftp, &cmd, &cmd_len) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - /* execute arbitrary ftp command */ - ftp_raw(ftp, cmd, return_value); -} -/* }}} */ - -/* {{{ proto string ftp_mkdir(resource stream, string directory) - Creates a directory and returns the absolute path for the new directory or false on error */ -PHP_FUNCTION(ftp_mkdir) -{ - zval *z_ftp; - ftpbuf_t *ftp; - char *dir, *tmp; - int dir_len; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &z_ftp, &dir, &dir_len) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - /* create directorie */ - if (NULL == (tmp = ftp_mkdir(ftp, dir))) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - RETURN_STRING(tmp, 0); -} -/* }}} */ - -/* {{{ proto bool ftp_rmdir(resource stream, string directory) - Removes a directory */ -PHP_FUNCTION(ftp_rmdir) -{ - zval *z_ftp; - ftpbuf_t *ftp; - char *dir; - int dir_len; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &z_ftp, &dir, &dir_len) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - /* remove directorie */ - if (!ftp_rmdir(ftp, dir)) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto int ftp_chmod(resource stream, int mode, string filename) - Sets permissions on a file */ -PHP_FUNCTION(ftp_chmod) -{ - zval *z_ftp; - ftpbuf_t *ftp; - char *filename; - int filename_len; - long mode; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rls", &z_ftp, &mode, &filename, &filename_len) == FAILURE) { - RETURN_FALSE; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - if (!ftp_chmod(ftp, mode, filename, filename_len)) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - RETURN_LONG(mode); -} -/* }}} */ - -/* {{{ proto bool ftp_alloc(resource stream, int size[, &response]) - Attempt to allocate space on the remote FTP server */ -PHP_FUNCTION(ftp_alloc) -{ - zval *z_ftp, *zresponse = NULL; - ftpbuf_t *ftp; - long size, ret; - char *response = NULL; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl|z", &z_ftp, &size, &zresponse) == FAILURE) { - RETURN_FALSE; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - ret = ftp_alloc(ftp, size, zresponse ? &response : NULL); - if (response) { - zval_dtor(zresponse); - ZVAL_STRING(zresponse, response, 0); - } - - if (!ret) { - RETURN_FALSE; - } - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto array ftp_nlist(resource stream, string directory) - Returns an array of filenames in the given directory */ -PHP_FUNCTION(ftp_nlist) -{ - zval *z_ftp; - ftpbuf_t *ftp; - char **nlist, **ptr, *dir; - int dir_len; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &z_ftp, &dir, &dir_len) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - /* get list of files */ - if (NULL == (nlist = ftp_nlist(ftp, dir TSRMLS_CC))) { - RETURN_FALSE; - } - - array_init(return_value); - for (ptr = nlist; *ptr; ptr++) { - add_next_index_string(return_value, *ptr, 1); - } - efree(nlist); -} -/* }}} */ - -/* {{{ proto array ftp_rawlist(resource stream, string directory [, bool recursive]) - Returns a detailed listing of a directory as an array of output lines */ -PHP_FUNCTION(ftp_rawlist) -{ - zval *z_ftp; - ftpbuf_t *ftp; - char **llist, **ptr, *dir; - int dir_len; - zend_bool recursive = 0; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs|b", &z_ftp, &dir, &dir_len, &recursive) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - /* get raw directory listing */ - if (NULL == (llist = ftp_list(ftp, dir, recursive TSRMLS_CC))) { - RETURN_FALSE; - } - - array_init(return_value); - for (ptr = llist; *ptr; ptr++) { - add_next_index_string(return_value, *ptr, 1); - } - efree(llist); -} -/* }}} */ - -/* {{{ proto string ftp_systype(resource stream) - Returns the system type identifier */ -PHP_FUNCTION(ftp_systype) -{ - zval *z_ftp; - ftpbuf_t *ftp; - const char *syst; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &z_ftp) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - if (NULL == (syst = ftp_syst(ftp))) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - RETURN_STRING((char*) syst, 1); -} -/* }}} */ - -/* {{{ proto bool ftp_fget(resource stream, resource fp, string remote_file, int mode[, int resumepos]) - Retrieves a file from the FTP server and writes it to an open file */ -PHP_FUNCTION(ftp_fget) -{ - zval *z_ftp, *z_file; - ftpbuf_t *ftp; - ftptype_t xtype; - php_stream *stream; - char *file; - int file_len; - long mode, resumepos=0; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rrsl|l", &z_ftp, &z_file, &file, &file_len, &mode, &resumepos) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - php_stream_from_zval(stream, &z_file); - XTYPE(xtype, mode); - - /* ignore autoresume if autoseek is switched off */ - if (!ftp->autoseek && resumepos == PHP_FTP_AUTORESUME) { - resumepos = 0; - } - - if (ftp->autoseek && resumepos) { - /* if autoresume is wanted seek to end */ - if (resumepos == PHP_FTP_AUTORESUME) { - php_stream_seek(stream, 0, SEEK_END); - resumepos = php_stream_tell(stream); - } else { - php_stream_seek(stream, resumepos, SEEK_SET); - } - } - - if (!ftp_get(ftp, stream, file, xtype, resumepos TSRMLS_CC)) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto int ftp_nb_fget(resource stream, resource fp, string remote_file, int mode[, int resumepos]) - Retrieves a file from the FTP server asynchronly and writes it to an open file */ -PHP_FUNCTION(ftp_nb_fget) -{ - zval *z_ftp, *z_file; - ftpbuf_t *ftp; - ftptype_t xtype; - php_stream *stream; - char *file; - int file_len, ret; - long mode, resumepos=0; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rrsl|l", &z_ftp, &z_file, &file, &file_len, &mode, &resumepos) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - php_stream_from_zval(stream, &z_file); - XTYPE(xtype, mode); - - /* ignore autoresume if autoseek is switched off */ - if (!ftp->autoseek && resumepos == PHP_FTP_AUTORESUME) { - resumepos = 0; - } - - if (ftp->autoseek && resumepos) { - /* if autoresume is wanted seek to end */ - if (resumepos == PHP_FTP_AUTORESUME) { - php_stream_seek(stream, 0, SEEK_END); - resumepos = php_stream_tell(stream); - } else { - php_stream_seek(stream, resumepos, SEEK_SET); - } - } - - /* configuration */ - ftp->direction = 0; /* recv */ - ftp->closestream = 0; /* do not close */ - - if ((ret = ftp_nb_get(ftp, stream, file, xtype, resumepos TSRMLS_CC)) == PHP_FTP_FAILED) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_LONG(ret); - } - - RETURN_LONG(ret); -} -/* }}} */ - -/* {{{ proto bool ftp_pasv(resource stream, bool pasv) - Turns passive mode on or off */ -PHP_FUNCTION(ftp_pasv) -{ - zval *z_ftp; - ftpbuf_t *ftp; - zend_bool pasv; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rb", &z_ftp, &pasv) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - if (!ftp_pasv(ftp, pasv ? 1 : 0)) { - RETURN_FALSE; - } - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto bool ftp_get(resource stream, string local_file, string remote_file, int mode[, int resume_pos]) - Retrieves a file from the FTP server and writes it to a local file */ -PHP_FUNCTION(ftp_get) -{ - zval *z_ftp; - ftpbuf_t *ftp; - ftptype_t xtype; - php_stream *outstream; - char *local, *remote; - int local_len, remote_len; - long mode, resumepos=0; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rssl|l", &z_ftp, &local, &local_len, &remote, &remote_len, &mode, &resumepos) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - XTYPE(xtype, mode); - - /* ignore autoresume if autoseek is switched off */ - if (!ftp->autoseek && resumepos == PHP_FTP_AUTORESUME) { - resumepos = 0; - } - -#ifdef PHP_WIN32 - mode = FTPTYPE_IMAGE; -#endif - - if (ftp->autoseek && resumepos) { - outstream = php_stream_open_wrapper(local, mode == FTPTYPE_ASCII ? "rt+" : "rb+", ENFORCE_SAFE_MODE | REPORT_ERRORS, NULL); - if (outstream == NULL) { - outstream = php_stream_open_wrapper(local, mode == FTPTYPE_ASCII ? "wt" : "wb", ENFORCE_SAFE_MODE | REPORT_ERRORS, NULL); - } - if (outstream != NULL) { - /* if autoresume is wanted seek to end */ - if (resumepos == PHP_FTP_AUTORESUME) { - php_stream_seek(outstream, 0, SEEK_END); - resumepos = php_stream_tell(outstream); - } else { - php_stream_seek(outstream, resumepos, SEEK_SET); - } - } - } else { - outstream = php_stream_open_wrapper(local, mode == FTPTYPE_ASCII ? "wt" : "wb", ENFORCE_SAFE_MODE | REPORT_ERRORS, NULL); - } - - if (outstream == NULL) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "Error opening %s", local); - RETURN_FALSE; - } - - if (!ftp_get(ftp, outstream, remote, xtype, resumepos TSRMLS_CC)) { - php_stream_close(outstream); - VCWD_UNLINK(local); - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - php_stream_close(outstream); - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto int ftp_nb_get(resource stream, string local_file, string remote_file, int mode[, int resume_pos]) - Retrieves a file from the FTP server nbhronly and writes it to a local file */ -PHP_FUNCTION(ftp_nb_get) -{ - zval *z_ftp; - ftpbuf_t *ftp; - ftptype_t xtype; - php_stream *outstream; - char *local, *remote; - int local_len, remote_len, ret; - long mode, resumepos=0; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rssl|l", &z_ftp, &local, &local_len, &remote, &remote_len, &mode, &resumepos) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - XTYPE(xtype, mode); - - /* ignore autoresume if autoseek is switched off */ - if (!ftp->autoseek && resumepos == PHP_FTP_AUTORESUME) { - resumepos = 0; - } -#ifdef PHP_WIN32 - mode = FTPTYPE_IMAGE; -#endif - if (ftp->autoseek && resumepos) { - outstream = php_stream_open_wrapper(local, mode == FTPTYPE_ASCII ? "rt+" : "rb+", ENFORCE_SAFE_MODE | REPORT_ERRORS, NULL); - if (outstream == NULL) { - outstream = php_stream_open_wrapper(local, mode == FTPTYPE_ASCII ? "wt" : "wb", ENFORCE_SAFE_MODE | REPORT_ERRORS, NULL); - } - if (outstream != NULL) { - /* if autoresume is wanted seek to end */ - if (resumepos == PHP_FTP_AUTORESUME) { - php_stream_seek(outstream, 0, SEEK_END); - resumepos = php_stream_tell(outstream); - } else { - php_stream_seek(outstream, resumepos, SEEK_SET); - } - } - } else { - outstream = php_stream_open_wrapper(local, mode == FTPTYPE_ASCII ? "wt" : "wb", ENFORCE_SAFE_MODE | REPORT_ERRORS, NULL); - } - - if (outstream == NULL) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "Error opening %s", local); - RETURN_FALSE; - } - - /* configuration */ - ftp->direction = 0; /* recv */ - ftp->closestream = 1; /* do close */ - - if ((ret = ftp_nb_get(ftp, outstream, remote, xtype, resumepos TSRMLS_CC)) == PHP_FTP_FAILED) { - php_stream_close(outstream); - VCWD_UNLINK(local); - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_LONG(PHP_FTP_FAILED); - } - - if (ret == PHP_FTP_FINISHED) { - php_stream_close(outstream); - } - - RETURN_LONG(ret); -} -/* }}} */ - -/* {{{ proto int ftp_nb_continue(resource stream) - Continues retrieving/sending a file nbronously */ -PHP_FUNCTION(ftp_nb_continue) -{ - zval *z_ftp; - ftpbuf_t *ftp; - int ret; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &z_ftp) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - if (!ftp->nb) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "no nbronous transfer to continue."); - RETURN_LONG(PHP_FTP_FAILED); - } - - if (ftp->direction) { - ret=ftp_nb_continue_write(ftp TSRMLS_CC); - } else { - ret=ftp_nb_continue_read(ftp TSRMLS_CC); - } - - if (ret != PHP_FTP_MOREDATA && ftp->closestream) { - php_stream_close(ftp->stream); - } - - if (ret == PHP_FTP_FAILED) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - } - - RETURN_LONG(ret); -} -/* }}} */ - -/* {{{ proto bool ftp_fput(resource stream, string remote_file, resource fp, int mode[, int startpos]) - Stores a file from an open file to the FTP server */ -PHP_FUNCTION(ftp_fput) -{ - zval *z_ftp, *z_file; - ftpbuf_t *ftp; - ftptype_t xtype; - int remote_len; - long mode, startpos=0; - php_stream *stream; - char *remote; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rsrl|l", &z_ftp, &remote, &remote_len, &z_file, &mode, &startpos) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - php_stream_from_zval(stream, &z_file); - XTYPE(xtype, mode); - - /* ignore autoresume if autoseek is switched off */ - if (!ftp->autoseek && startpos == PHP_FTP_AUTORESUME) { - startpos = 0; - } - - if (ftp->autoseek && startpos) { - /* if autoresume is wanted ask for remote size */ - if (startpos == PHP_FTP_AUTORESUME) { - startpos = ftp_size(ftp, remote); - if (startpos < 0) { - startpos = 0; - } - } - if (startpos) { - php_stream_seek(stream, startpos, SEEK_SET); - } - } - - if (!ftp_put(ftp, remote, stream, xtype, startpos TSRMLS_CC)) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto int ftp_nb_fput(resource stream, string remote_file, resource fp, int mode[, int startpos]) - Stores a file from an open file to the FTP server nbronly */ -PHP_FUNCTION(ftp_nb_fput) -{ - zval *z_ftp, *z_file; - ftpbuf_t *ftp; - ftptype_t xtype; - int remote_len, ret; - long mode, startpos=0; - php_stream *stream; - char *remote; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rsrl|l", &z_ftp, &remote, &remote_len, &z_file, &mode, &startpos) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - php_stream_from_zval(stream, &z_file); - XTYPE(xtype, mode); - - /* ignore autoresume if autoseek is switched off */ - if (!ftp->autoseek && startpos == PHP_FTP_AUTORESUME) { - startpos = 0; - } - - if (ftp->autoseek && startpos) { - /* if autoresume is wanted ask for remote size */ - if (startpos == PHP_FTP_AUTORESUME) { - startpos = ftp_size(ftp, remote); - if (startpos < 0) { - startpos = 0; - } - } - if (startpos) { - php_stream_seek(stream, startpos, SEEK_SET); - } - } - - /* configuration */ - ftp->direction = 1; /* send */ - ftp->closestream = 0; /* do not close */ - - if (((ret = ftp_nb_put(ftp, remote, stream, xtype, startpos TSRMLS_CC)) == PHP_FTP_FAILED)) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_LONG(ret); - } - - RETURN_LONG(ret); -} -/* }}} */ - - -/* {{{ proto bool ftp_put(resource stream, string remote_file, string local_file, int mode[, int startpos]) - Stores a file on the FTP server */ -PHP_FUNCTION(ftp_put) -{ - zval *z_ftp; - ftpbuf_t *ftp; - ftptype_t xtype; - char *remote, *local; - int remote_len, local_len; - long mode, startpos=0; - php_stream *instream; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rssl|l", &z_ftp, &remote, &remote_len, &local, &local_len, &mode, &startpos) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - XTYPE(xtype, mode); - - if (!(instream = php_stream_open_wrapper(local, mode == FTPTYPE_ASCII ? "rt" : "rb", ENFORCE_SAFE_MODE | REPORT_ERRORS, NULL))) { - RETURN_FALSE; - } - - /* ignore autoresume if autoseek is switched off */ - if (!ftp->autoseek && startpos == PHP_FTP_AUTORESUME) { - startpos = 0; - } - - if (ftp->autoseek && startpos) { - /* if autoresume is wanted ask for remote size */ - if (startpos == PHP_FTP_AUTORESUME) { - startpos = ftp_size(ftp, remote); - if (startpos < 0) { - startpos = 0; - } - } - if (startpos) { - php_stream_seek(instream, startpos, SEEK_SET); - } - } - - if (!ftp_put(ftp, remote, instream, xtype, startpos TSRMLS_CC)) { - php_stream_close(instream); - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - php_stream_close(instream); - - RETURN_TRUE; -} -/* }}} */ - - -/* {{{ proto int ftp_nb_put(resource stream, string remote_file, string local_file, int mode[, int startpos]) - Stores a file on the FTP server */ -PHP_FUNCTION(ftp_nb_put) -{ - zval *z_ftp; - ftpbuf_t *ftp; - ftptype_t xtype; - char *remote, *local; - int remote_len, local_len, ret; - long mode, startpos=0; - php_stream *instream; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rssl|l", &z_ftp, &remote, &remote_len, &local, &local_len, &mode, &startpos) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - XTYPE(xtype, mode); - - if (!(instream = php_stream_open_wrapper(local, mode == FTPTYPE_ASCII ? "rt" : "rb", ENFORCE_SAFE_MODE | REPORT_ERRORS, NULL))) { - RETURN_FALSE; - } - - /* ignore autoresume if autoseek is switched off */ - if (!ftp->autoseek && startpos == PHP_FTP_AUTORESUME) { - startpos = 0; - } - - if (ftp->autoseek && startpos) { - /* if autoresume is wanted ask for remote size */ - if (startpos == PHP_FTP_AUTORESUME) { - startpos = ftp_size(ftp, remote); - if (startpos < 0) { - startpos = 0; - } - } - if (startpos) { - php_stream_seek(instream, startpos, SEEK_SET); - } - } - - /* configuration */ - ftp->direction = 1; /* send */ - ftp->closestream = 1; /* do close */ - - ret = ftp_nb_put(ftp, remote, instream, xtype, startpos TSRMLS_CC); - - if (ret != PHP_FTP_MOREDATA) { - php_stream_close(instream); - } - - if (ret == PHP_FTP_FAILED) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - } - - RETURN_LONG(ret); -} -/* }}} */ - -/* {{{ proto int ftp_size(resource stream, string filename) - Returns the size of the file, or -1 on error */ -PHP_FUNCTION(ftp_size) -{ - zval *z_ftp; - ftpbuf_t *ftp; - char *file; - int file_len; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &z_ftp, &file, &file_len) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - /* get file size */ - RETURN_LONG(ftp_size(ftp, file)); -} -/* }}} */ - -/* {{{ proto int ftp_mdtm(resource stream, string filename) - Returns the last modification time of the file, or -1 on error */ -PHP_FUNCTION(ftp_mdtm) -{ - zval *z_ftp; - ftpbuf_t *ftp; - char *file; - int file_len; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &z_ftp, &file, &file_len) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - /* get file mod time */ - RETURN_LONG(ftp_mdtm(ftp, file)); -} -/* }}} */ - -/* {{{ proto bool ftp_rename(resource stream, string src, string dest) - Renames the given file to a new path */ -PHP_FUNCTION(ftp_rename) -{ - zval *z_ftp; - ftpbuf_t *ftp; - char *src, *dest; - int src_len, dest_len; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rss", &z_ftp, &src, &src_len, &dest, &dest_len) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - /* rename the file */ - if (!ftp_rename(ftp, src, dest)) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto bool ftp_delete(resource stream, string file) - Deletes a file */ -PHP_FUNCTION(ftp_delete) -{ - zval *z_ftp; - ftpbuf_t *ftp; - char *file; - int file_len; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &z_ftp, &file, &file_len) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - /* delete the file */ - if (!ftp_delete(ftp, file)) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto bool ftp_site(resource stream, string cmd) - Sends a SITE command to the server */ -PHP_FUNCTION(ftp_site) -{ - zval *z_ftp; - ftpbuf_t *ftp; - char *cmd; - int cmd_len; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &z_ftp, &cmd, &cmd_len) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - /* send the site command */ - if (!ftp_site(ftp, cmd)) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ftp->inbuf); - RETURN_FALSE; - } - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto bool ftp_close(resource stream) - Closes the FTP stream */ -PHP_FUNCTION(ftp_close) -{ - zval *z_ftp; - ftpbuf_t *ftp; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &z_ftp) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - ftp_quit(ftp); - - RETURN_BOOL(zend_list_delete(Z_LVAL_P(z_ftp)) == SUCCESS); -} -/* }}} */ - -/* {{{ proto bool ftp_set_option(resource stream, int option, mixed value) - Sets an FTP option */ -PHP_FUNCTION(ftp_set_option) -{ - zval *z_ftp, *z_value; - long option; - ftpbuf_t *ftp; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlz", &z_ftp, &option, &z_value) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - switch (option) { - case PHP_FTP_OPT_TIMEOUT_SEC: - if (Z_TYPE_P(z_value) != IS_LONG) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "Option TIMEOUT_SEC expects value of type long, %s given", - zend_zval_type_name(z_value)); - RETURN_FALSE; - } - if (Z_LVAL_P(z_value) <= 0) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "Timeout has to be greater than 0"); - RETURN_FALSE; - } - ftp->timeout_sec = Z_LVAL_P(z_value); - RETURN_TRUE; - break; - case PHP_FTP_OPT_AUTOSEEK: - if (Z_TYPE_P(z_value) != IS_BOOL) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "Option AUTOSEEK expects value of type boolean, %s given", - zend_zval_type_name(z_value)); - RETURN_FALSE; - } - ftp->autoseek = Z_LVAL_P(z_value); - RETURN_TRUE; - break; - default: - php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unknown option '%ld'", option); - RETURN_FALSE; - break; - } -} -/* }}} */ - -/* {{{ proto mixed ftp_get_option(resource stream, int option) - Gets an FTP option */ -PHP_FUNCTION(ftp_get_option) -{ - zval *z_ftp; - long option; - ftpbuf_t *ftp; - - if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl", &z_ftp, &option) == FAILURE) { - return; - } - - ZEND_FETCH_RESOURCE(ftp, ftpbuf_t*, &z_ftp, -1, le_ftpbuf_name, le_ftpbuf); - - switch (option) { - case PHP_FTP_OPT_TIMEOUT_SEC: - RETURN_LONG(ftp->timeout_sec); - break; - case PHP_FTP_OPT_AUTOSEEK: - RETURN_BOOL(ftp->autoseek); - break; - default: - php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unknown option '%ld'", option); - RETURN_FALSE; - break; - } -} -/* }}} */ - -#endif /* HAVE_FTP */ - -/* - * Local variables: - * tab-width: 4 - * c-basic-offset: 4 - * indent-tabs-mode: t - * End: - */ |