[FTP_MkDir]
| Link | FTP_MkDir |
| Author | Seth Ganahl |
| Category | Utility |
| Version | 8.5.x |
| License | Public Domain |
| Posted | 14 Dec 2009 |
| Updated | 14 Dec 2009 |
| More by this author... | |
Description
This tag provides an easy method for creating directories on an ftp server.
Sample Usage
ftp_mkdir: -url='ftp://ftp.example.com/', -dir='new_folder', -username='username', -password='password';
Source Code
Click the "Download" button below to retrieve a copy of this tag, including the complete documentation and sample usage shown on this page. Place the downloaded ".inc" file in your LassoStartup folder, restart Lasso, and you can begin using this tag immediately.
size) == 0, -9960, 'FTP_MkDir: -URL parameter requires full URL including ftp://');
local(
'_serv' = #_ua->(get:3),
'_dirs' = (#_ua->(get:4) + '/')
);
local('_ftp'= (net));
#_ftp->(settype:Net_TypeTCP);
#_resp = #_ftp->(Connect: #_serv, 21);
#_read = #_ftp->(Read:1024);
if(local_defined('Username') == true && #Username != '');
#_resp = #_ftp->(Write:'USER ' + #Username + '\n');
#_read = #_ftp->(Read:1024);
fail_if( string( #_read )->beginswith( '500' ), -9960, 'No username provided.' );
if(local_defined('Password') == true && #Password != '');
#_resp = #_ftp->(Write:'PASS ' + #Password + '\n');
#_read = #_ftp->(Read:1024);
fail_if( string( #_read )->beginswith( '530' ), -9960, 'Invalid username or password.' );
/if;
/if;
#_resp = #_ftp->(Write:'CWD ' + #_dirs + '\n');
#_read = #_ftp->(Read:1024);
fail_if( string( #_read )->beginswith( '550' ), -9984, 'Remote directory not found.' );
fail_if( string( #_read )->beginswith( '530' ), -9960, 'Access Denied. Login required.' );
#_resp = #_ftp->(Write:'mkd ' + #DIR + '\n');
#_read = #_ftp->(Read:1024);
fail_if( string( #_read )->beginswith( '550' ), -9984, 'Remote file not found.' );
fail_if( string( #_read )->beginswith( '530' ), -9960, 'Access Denied. Login required.' );
#_resp = #_ftp->(Write:'QUIT\n');
#_read = #_ftp->(Read:1024);
#_ftp->close;
handle_error;
error_push;
#_ftp->close;
/handle_error;
/protect;
error_pop;
/define_tag;
?>
Related Tags
Comments
No comments
