GNU bug report logs - #6019
23.1; ange-ftp with VAX

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 6019 in the body.
You can then email your comments to 6019 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: "Carroll, Tom" <TCarroll <at> ap.org>
To: <bug-gnu-emacs <at> gnu.org>
Subject: 23.1; ange-ftp with VAX
Date: Fri, 23 Apr 2010 17:09:22 -0400

[Message part 1 (text/plain, inline)]

This is a problem with Emacs 23.1, and NOT with 22.1.1.

Attempting to perform a find-file on a VAX no longer works.  Looking
into the ftp buffer
reveals what appears to be the problem: the syntax of a directory
command is incorrect.

Note that this does not cause Emacs to crash - just to fail to access
remote files.

For example: in connecting to a machine called Pine (not the email
program! - we 
have a tree motif here) with the user tcarroll results in the following:

dir [.".AP:.TCARROLL]"
c:/DOCUME~1/tcarroll/LOCALS~1/Temp/ange-ftp3268PtF

The correct syntax is created by Emacs 22.1:

dir AP:[TCARROLL] c:/DOCUME~1/tcarroll/LOCALS~1/Temp/ange-ftp2724gSG

I hope you understand VAX file syntax - VAX stuff is pretty far out of
date these days.

By the way, Emacs is fantastic, and as a technology professional I live
half my life in
this software.

Thanks!

Tom


In GNU Emacs 23.1.1 (i386-mingw-nt5.1.2600)
 of 2009-07-30 on SOFT-MJASON
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (4.4)'

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: ENU
  value of $XMODIFIERS: nil
  locale-coding-system: cp1252
  default-enable-multibyte-characters: t

Major mode: Fundamental

Minor modes in effect:
  shell-dirtrack-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  blink-cursor-mode: t
  global-auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<return> <f11> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <up> <up> <up> <up> C-SPC C-e <escape> 
w <help-echo> <help-echo> <help-echo> <down-mouse-1> 
<mouse-1> C-x C-f C-a C-k <help-echo> <help-echo> <help-echo> 
<down-mouse-1> <mouse-1> <S-insert> <return> <down-mouse-1> 
<mouse-1> <escape> x e m a c s SPC r e p o r t SPC 
b <backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> C-g C-h a r e p 
o r t SPC b u g <return> <escape> x r e p o r t SPC 
e m a c s SPC b u g <return>

Recent messages:
Listing /tcarroll <at> pine:/AP:/... [2 times]
Listing /tcarroll <at> pine:/AP:/TCARROLL/... [2 times]
Listing /tcarroll <at> pine:/AP:/... [2 times]
Listing /tcarroll <at> pine:/AP:/TCARROLL/... [2 times]
byte-code: FTP Error: DIR failed: 550 %RMS-F-SYN, file specification
syntax error
Mark set
Listing /tcarroll <at> pine:/AP:/TCARROLL/DOC/... [6 times]
byte-code: FTP Error: DIR failed: 550 %RMS-F-SYN, file specification
syntax error
Quit
Type C-x 4 C-o RET to restore the other window.  *** E-Mail body has
been placed on clipboard, please paste them here! ***


The information contained in this communication is intended for the use
of the designated recipients named above. If the reader of this 
communication is not the intended recipient, you are hereby notified
that you have received this communication in error, and that any review,
dissemination, distribution or copying of this communication is strictly
prohibited. If you have received this communication in error, please 
notify The Associated Press immediately by telephone at +1-212-621-1898 
and delete this e-mail. Thank you.
[IP_US_DISC]
msk dccc60c6d2c3a6438f0cf467d9a4938

[Message part 2 (text/html, inline)]

Message #8 received at 6019 <at> debbugs.gnu.org (full text, mbox):

From: Michael Albinus <michael.albinus <at> gmx.de>
To: "Carroll\, Tom" <TCarroll <at> ap.org>
Cc: 6019 <at> debbugs.gnu.org
Subject: Re: bug#6019: 23.1; ange-ftp with VAX
Date: Sun, 02 May 2010 13:22:45 +0200

"Carroll, Tom" <TCarroll <at> ap.org> writes:

Hi,

> Attempting to perform a find-file on a VAX no longer works.  Looking
> into the ftp buffer
> reveals what appears to be the problem: the syntax of a directory
> command is incorrect.
>
> Note that this does not cause Emacs to crash - just to fail to access
> remote files.
>
> For example: in connecting to a machine called Pine (not the email
> program! - we 
> have a tree motif here) with the user tcarroll results in the following:
>
> dir [.".AP:.TCARROLL]"
> c:/DOCUME~1/tcarroll/LOCALS~1/Temp/ange-ftp3268PtF
>
> The correct syntax is created by Emacs 22.1:
>
> dir AP:[TCARROLL] c:/DOCUME~1/tcarroll/LOCALS~1/Temp/ange-ftp2724gSG
>
> I hope you understand VAX file syntax - VAX stuff is pretty far out of
> date these days.

I have no access to a VAX any longer (for 15 years or so), and from
reading the sources in ange-ftp.el I cannot find the problem.

Could you, please, apply the following:

(require 'ange-ftp)
(require 'trace)
(dolist (elt (all-completions "ange-ftp-" obarray 'functionp))
  (trace-function-background (intern elt)))

Then rerun your test and show the contents of the buffers

  *ftp ...*
  *trace-output*

Check the buffers, that they do not contain sensitive information like
your password, before sending.

> Thanks!
>
> Tom

Best regards, Michael.

Message #13 received at 6019-done <at> debbugs.gnu.org (full text, mbox):

From: Glenn Morris <rgm <at> gnu.org>
To: 6019-done <at> debbugs.gnu.org
Subject: Re: bug#6019: 23.1; ange-ftp with VAX
Date: Mon, 11 Jul 2011 17:39:42 -0400

This bug is being closed because it could not be reproduced and there
was no response to a request for more information.
If you still see the problem with the latest Emacs release, 23.3,
please reply with the requested information and it can be reopened if needed.

You can view the whole report at http://debbugs.gnu.org/BUGNUMBER


Michael Albinus wrote:

> I have no access to a VAX any longer (for 15 years or so), and from
> reading the sources in ange-ftp.el I cannot find the problem.
>
> Could you, please, apply the following:
>
> (require 'ange-ftp)
> (require 'trace)
> (dolist (elt (all-completions "ange-ftp-" obarray 'functionp))
>   (trace-function-background (intern elt)))
>
> Then rerun your test and show the contents of the buffers
>
>   *ftp ...*
>   *trace-output*
>
> Check the buffers, that they do not contain sensitive information like
> your password, before sending.

Message #24 received at 6019 <at> debbugs.gnu.org (full text, mbox):

From: Michael Albinus <michael.albinus <at> gmx.de>
To: Alan.Grunwald <at> tatasteel.com
Cc: 6019 <at> debbugs.gnu.org
Subject: Re: 23.3; Can't visit VMS file from Windows Emacs 23.3.1
Date: Tue, 30 Aug 2011 10:57:05 +0200

Alan.Grunwald <at> tatasteel.com writes:

Hi Alan,

> I know next-to no emacs LISP, but I am an experienced programmer and
> I've had a go at debugging this by sprinkling (message ... ...) calls
> around the code. As far as I can make out, something outside amg-ftp is
> calling ange-ftp-send-cmd with the command "dir /$DISK1!/". I believe it
> is that that is casuing the problem, but I can't work out why this
> command is being attempted.
>
> For what it's worth, if I connect to machin from a DOS box and type PWD,
> the response is
>
>     "$DISK1:[GRUNWALD]" is current directory.
>
> It seems to me that the exclamation mark between DISK1 and the slash is
> causing the problem, but I've no idea where it's coming from.

I have no access to a VAX any longer (for 15 years or so), and from
reading the sources in ange-ftp.el I cannot find the problem.

Could you, please, apply the following:

(require 'ange-ftp)
(require 'trace)
(dolist (elt (all-completions "ange-ftp-" obarray 'functionp))
  (trace-function-background (intern elt)))

Then rerun your test and show the contents of the buffers

  *ftp ...*
  *trace-output*

Check the buffers, that they do not contain sensitive information like
your password, before sending.

> Thanks,
> Alan

Best regards, Michael.

Message #27 received at 6019 <at> debbugs.gnu.org (full text, mbox):

From: Michael Albinus <michael.albinus <at> gmx.de>
To: Alan.Grunwald <at> tatasteel.com
Cc: 6019 <at> debbugs.gnu.org
Subject: Re: 23.3; Can't visit VMS file from Windows Emacs 23.3.1
Date: Wed, 31 Aug 2011 13:39:14 +0200

Alan.Grunwald <at> tatasteel.com writes:

> Michael,

Hi Alan,

> Please find attached the contents of the *trace-output* and *ftp
> grunwald <at> confid* buffers afetr I executed
>
> C-x C-f /grunwald <at> confid:login.com
>
> Best of luck :-)

Thanks, it helps :-)

The following call is guilty:

8 -> ange-ftp-fix-name-for-vms: name="\"/$DISK1!/GRUNWALD/\"" reverse=nil
8 <- ange-ftp-fix-name-for-vms: "[.\".$DISK1!.GRUNWALD]\""

This reminds me, that we have changed the quoting for file names a while
ago. This results in surrounding a file name under Windows by '"', like
"/$DISK1!/GRUNWALD/".  Obviously, ange-ftp-fix-name-for-vms must be
aware of it.

Could you, please, check whether the following patch helps?

--8<---------------cut here---------------start------------->8---
*** /home/albinus/src/emacs-23/lisp/net/ange-ftp.el.~100624~	2011-08-31 13:30:47.905559520 +0200
--- /home/albinus/src/emacs-23/lisp/net/ange-ftp.el	2011-08-31 13:28:25.395350494 +0200
***************
*** 5017,5023 ****
  		      dir (and dir "/")
  		      file))
  	  (error "name %s didn't match" name))
!       (let (drive dir file tmp)
  	(if (string-match "\\`/[^:]+:/" name)
  	    (setq drive (substring name 1
  				   (1- (match-end 0)))
--- 5017,5027 ----
  		      dir (and dir "/")
  		      file))
  	  (error "name %s didn't match" name))
!       (let (drive dir file tmp quote)
! 	(if (string-match "\\`\".+\"\\'" name)
! 	    (setq name (substring name 1 -1)
! 		  quote "\"")
! 	  (setq quote ""))
  	(if (string-match "\\`/[^:]+:/" name)
  	    (setq drive (substring name 1
  				   (1- (match-end 0)))
***************
*** 5026,5034 ****
  	(if tmp
  	    (setq dir (subst-char-in-string ?/ ?. (substring tmp 0 -1) t)))
  	(setq file (file-name-nondirectory name))
! 	(concat drive
  		(and dir (concat "[" (if drive nil ".") dir "]"))
! 		file)))))
  
  ;; (ange-ftp-fix-name-for-vms "/PUB$:/ANONYMOUS/SDSCPUB/NEXT/Readme.txt;1")
  ;; (ange-ftp-fix-name-for-vms "/PUB$:[ANONYMOUS.SDSCPUB.NEXT]Readme.txt;1" t)
--- 5030,5038 ----
  	(if tmp
  	    (setq dir (subst-char-in-string ?/ ?. (substring tmp 0 -1) t)))
  	(setq file (file-name-nondirectory name))
! 	(concat quote drive
  		(and dir (concat "[" (if drive nil ".") dir "]"))
! 		file quote)))))
  
  ;; (ange-ftp-fix-name-for-vms "/PUB$:/ANONYMOUS/SDSCPUB/NEXT/Readme.txt;1")
  ;; (ange-ftp-fix-name-for-vms "/PUB$:[ANONYMOUS.SDSCPUB.NEXT]Readme.txt;1" t)
--8<---------------cut here---------------end--------------->8---

> Alan

Best regards, Michael.

Message #30 received at 6019 <at> debbugs.gnu.org (full text, mbox):

From: Alan.Grunwald <at> tatasteel.com
To: Michael Albinus <michael.albinus <at> gmx.de>
Cc: 6019 <at> debbugs.gnu.org
Subject: Re: 23.3; Can't visit VMS file from Windows Emacs 23.3.1
Date: Wed, 31 Aug 2011 13:41:25 +0100

Michael,

> > Please find attached the contents of the *trace-output* and *ftp
> > grunwald <at> confid* buffers afetr I executed
> >
> > C-x C-f /grunwald <at> confid:login.com
> >
> > Best of luck :-)
>
> Thanks, it helps :-)
>
> The following call is guilty:
>
> 8 -> ange-ftp-fix-name-for-vms: name="\"/$DISK1!/GRUNWALD/\"" reverse=nil
> 8 <- ange-ftp-fix-name-for-vms: "[.\".$DISK1!.GRUNWALD]\""
>
> This reminds me, that we have changed the quoting for file names a while
> ago. This results in surrounding a file name under Windows by '"', like
> "/$DISK1!/GRUNWALD/".  Obviously, ange-ftp-fix-name-for-vms must be
> aware of it.
>
> Could you, please, check whether the following patch helps?
>
> --8<---------------cut here---------------start------------->8---
> *** /home/albinus/src/emacs-23/lisp/net/ange-ftp.el.~100624~
> 2011-08-31 13:30:47.905559520 +0200
> --- /home/albinus/src/emacs-23/lisp/net/ange-ftp.el   2011-08-31 13:
> 28:25.395350494 +0200
> ***************
> *** 5017,5023 ****
>               dir (and dir "/")
>               file))
>        (error "name %s didn't match" name))
> !       (let (drive dir file tmp)
>      (if (string-match "\\`/[^:]+:/" name)
>          (setq drive (substring name 1
>                  (1- (match-end 0)))
> --- 5017,5027 ----
>               dir (and dir "/")
>               file))
>        (error "name %s didn't match" name))
> !       (let (drive dir file tmp quote)
> !    (if (string-match "\\`\".+\"\\'" name)
> !        (setq name (substring name 1 -1)
> !         quote "\"")
> !      (setq quote ""))
>      (if (string-match "\\`/[^:]+:/" name)
>          (setq drive (substring name 1
>                  (1- (match-end 0)))
> ***************
> *** 5026,5034 ****
>      (if tmp
>          (setq dir (subst-char-in-string ?/ ?. (substring tmp 0 -1) t)))
>      (setq file (file-name-nondirectory name))
> !    (concat drive
>         (and dir (concat "[" (if drive nil ".") dir "]"))
> !       file)))))
>
>   ;; (ange-ftp-fix-name-for-vms "/PUB
$:/ANONYMOUS/SDSCPUB/NEXT/Readme.txt;1")
>   ;; (ange-ftp-fix-name-for-vms "/PUB$:[ANONYMOUS.SDSCPUB.NEXT]
> Readme.txt;1" t)
> --- 5030,5038 ----
>      (if tmp
>          (setq dir (subst-char-in-string ?/ ?. (substring tmp 0 -1) t)))
>      (setq file (file-name-nondirectory name))
> !    (concat quote drive
>         (and dir (concat "[" (if drive nil ".") dir "]"))
> !       file quote)))))
>
>   ;; (ange-ftp-fix-name-for-vms "/PUB
$:/ANONYMOUS/SDSCPUB/NEXT/Readme.txt;1")
>   ;; (ange-ftp-fix-name-for-vms "/PUB$:[ANONYMOUS.SDSCPUB.NEXT]
> Readme.txt;1" t)
> --8<---------------cut here---------------end--------------->8---
>
	I haven't got access to a handy method to convert the changes listing
above into a new file - could you send me a full ang-ftp.el please?

Thanks,
Alan

********************************************************************** 
This transmission is confidential and must not be used or disclosed by anyone other than the intended recipient. Neither Tata Steel Europe Limited nor any of its subsidiaries can accept any responsibility for any use or misuse of the transmission by anyone.  

For address and company registration details of certain entities within the Tata Steel Europe group of companies, please visit  http://www.tatasteeleurope.com/entities 
********************************************************************** 

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.