bug#6019: 23.1; ange-ftp with VAX

bug#6019: 23.1; ange-ftp with VAX

[Carroll, Tom]

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


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@pine:/AP:/... [2 times]
Listing /tcarroll@pine:/AP:/TCARROLL/... [2 times]
Listing /tcarroll@pine:/AP:/... [2 times]
Listing /tcarroll@pine:/AP:/TCARROLL/... [2 times]
byte-code: FTP Error: DIR failed: 550 %RMS-F-SYN, file specification
syntax error
Mark set
Listing /tcarroll@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

[-- Attachment #2: Type: text/html, Size: 7041 bytes --]

bug#6019: 23.1; ange-ftp with VAX

[Michael Albinus]

"Carroll, Tom" <TCarroll@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.

bug#6019: 23.1; ange-ftp with VAX

[Glenn Morris]

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.

bug#6019: 23.3; Can't visit VMS file from Windows Emacs 23.3.1

[Michael Albinus]

Alan.Grunwald@tatasteel.com writes:

> Michael,

Hi Alan,

> Please find attached the contents of the *trace-output* and *ftp
> grunwald@confid* buffers afetr I executed
>
> C-x C-f /grunwald@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.

bug#6019: 23.3; Can't visit VMS file from Windows Emacs 23.3.1

[Alan.Grunwald]

Michael,

> > Please find attached the contents of the *trace-output* and *ftp
> > grunwald@confid* buffers afetr I executed
> >
> > C-x C-f /grunwald@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 
**********************************************************************