Mercurial > hg > octave-lyh

comparison scripts/@ftp/loadobj.m @ 9880:7f77e5081e83

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add ftp objects
author David Bateman <dbateman@free.fr>
date Sat, 28 Nov 2009 11:44:57 +0100
parents
children 4bf50a7d533b
comparison
equal deleted inserted replaced
9879:034677ab6865 9880:7f77e5081e83
1 ## Copyright (C) 2009 David Bateman
2 ##
3 ## This program is free software; you can redistribute it and/or modify
4 ## it under the terms of the GNU General Public License as published by
5 ## the Free Software Foundation; either version 2 of the License, or
6 ## (at your option) any later version.
7 ##
8 ## This program is distributed in the hope that it will be useful,
9 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
10 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 ## GNU General Public License for more details.
12 ##
13 ## You should have received a copy of the GNU General Public License
14 ## along with this program; If not, see <http://www.gnu.org/licenses/>.
15
16 function b = loadobj (a)
17 b = a;
18 b.curlhandle = tmpnam ("ftp-");
19 __ftp__ (b.curlhandle, b.host, b.user, b.pass);
20 if (! isempty (b.dir))
21 __ftp_cwd__ (b.curlhandle, b.dir);
22 endif
23 b = rmfield (b, "dir")
24 endfunction