
 * @copyright 1997-2005 The PHP Group
 * @license   http://www.php.net/license/3_0.txt  PHP License 3.0
 * @version   CVS: $Id$
 * @link      http://pear.php.net/package/Net_FTP
 * @since     File available since Release 1.3.0
 */

if (isset($_GET['native'])) {
    @dl('ftp.so');
}

// Configuration

// Login info
$host = 'localhost';
$user = 'pub';
$pass = 'public';

// Passive mode on/off
$pasv = false;

// List directory
$dir = 'episodes/';

// Upload files
$Uasci   = basename($_SERVER['PHP_SELF']);
$Ubinary = 'screenshot.jpg';

// End of configuration

$time = microtime(true);

/**
 * Function used by the test suit.
 * Spits out test results in readable way
 *
 * @param mixed $action action
 * @param mixed $result result
 * @param mixed $msg    message
 *
 * @return false
 */
function dump($action, $result, $msg = false)
{
    if (is_bool($result)) {
        $result = $result ? 'TRUE' : 'FALSE';
    }

    if (is_array($result)) {
        echo '' .$action. ':' ."\n";
        foreach ($result as $key => $value) {
            echo ' ' .$key. ': ' .$value. "\n";
        }
    } else {
        echo '' .$action. ':' ."\n";
        echo $result;
        if ($msg) {
            echo ' ( ' .$msg. ' )';
        }
        echo "\n";
    }

    echo '';// . "\n";
    flush();
}

/**
* Little test suit
*/
$stream = ftp_connect($host);
if (is_resource($stream)) {
    dump('Logging in', $bool = ftp_login($stream, $user, $pass));
    if ($bool) {
        dump('PWD', ftp_pwd($stream));
        dump('Systype', ftp_systype($stream));
        dump('CHDIR "'.$dir.'"', ftp_chdir($stream, $dir));
        dump('PWD', ftp_pwd($stream));
        dump('CDUP', ftp_cdup($stream));
        dump('PASSIVE', ftp_pasv($stream, $pasv));
        dump('RAWLIST "."', ftp_rawlist($stream, '.'));
        dump('CHMOD', ftp_chmod($stream, 0777, 'sfv3.php'));
        dump('ALLOCATE', ftp_alloc($stream, filesize($Ubinary), $msg), $msg);
        dump('UPLOAD ASCII', ftp_put($stream, $Uasci, $Uasci, FTP_ASCII), $Uasci);
        dump('UPLOAD BINARY', ftp_put($stream, $Ubinary, $Ubinary, FTP_BINARY),
            $Ubinary);
        dump('RAWLIST "."', ftp_rawlist($stream, '.'));
        dump('DELETE '.$Uasci, ftp_delete($stream, $Uasci));
        dump('DELETE '.$Bbinary, ftp_delete($stream, $Ubinary));
        dump('RAWLIST "."', ftp_rawlist($stream, '.'));
    }
    dump('QUIT', ftp_quit($stream));
}

$end = microtime(true);
echo $end-$time;
?>