[9fans] ftpfs tweeks for Netware 4.0

["Steve Simon" <steve.simon@ntlworld.com>]

[-- Attachment #1: Type: text/plain, Size: 404 bytes --]

Hi,

Attached are diffs for ftpfs to make it happier
with Netware4.

One fix, the Netware ftp server will not allow
a CWD to a path which starts with two slashes.

A bug in ftpfs does exactly this if the remote mount
point is '/' and  thus you cannot access anything
below the root directory on the server.

Also a few tweeks to parse the new LIST -L format.

Share and enjoy.

-Steve


[-- Attachment #2: ftpfs.diff --]
[-- Type: application/octet-stream, Size: 1146 bytes --]

53c53
< static int	nw_mode(char dirlet, char *s);
---
> 
593,603d592
< 		case 8:		/* New style */
< 			s = s_copy(field[7]);
< 			d.uid = field[2];
< 			d.gid = d.uid;
< 			d.mode = nw_mode(field[0][0], field[1]);
< 			d.length = atoi(field[3]);
< 			if(strchr(field[6], ':'))
< 				d.atime = cracktime(field[4], field[5], nil, field[6]);
< 			else
< 				d.atime = cracktime(field[4], field[5], field[6], nil);
< 			break;
1394c1383
< 	if(s_len(path) > 0 && strcmp(s_to_c(path), "/") != 0)
---
> 	if(s_len(path) > 0)
1571,1593d1559
< }
< 
< static int
< nw_mode(char dirlet, char *s)		/* NetWare file mode mapping */
< {
< 	int mode = 0777;
< 
< 	if(dirlet == 'd')
< 		mode |= DMDIR;
< 
< 	if (strlen(s) >= 10 && s[0] != '[' || s[9] != ']')
< 		return(mode);
< 
< 	if (s[1] == '-')					/* can't read file */
< 		mode &= ~0444;
< 	if (dirlet == 'd' && s[6] == '-')			/* cannot scan dir */
< 		mode &= ~0444;
< 	if (s[2] == '-')					/* can't write file */
< 		mode &= ~0222;
< 	if (dirlet == 'd' && s[7] == '-' && s[3] == '-')	/* cannot create in, or modify dir */
< 		mode &= ~0222;
< 
< 	return(mode);