Using gnus and ssh instead of rsh

Using gnus and ssh instead of rsh

[Stefan Waldherr]

Hi,

the following diff to nntp.el allows people to use ssh instead of rsh (in fact
any arbitrary command instead of rsh).  I've added a variable
nntp-rlogin-command that is the obvious.

If you want to use gnus and ssh to get your news from a remote server do
the following:

* apply the patch to nntp.el
* put (setq nntp-rlogin-command "ssh" ) into you .gnus.el
* in the group buffer add a server, method is nntp, name
  should be something like ssh:foobar.com
* edit `{nntp:ssh:foobar.com} (closed)' to be something like
  (nntp "ssh:foobar.com"
      (nntp-address "foobar.com")
      (nntp-open-connection-function nntp-open-rlogin)
      (nntp-end-of-line "\n")
      (nntp-rlogin-parameters
       ("telnet" "remote-news-server" "nntp")))
* authorize yourself with ssh-add in an xterm
* browse the server `ssh:foobar' and go wild.

cu
Stefan.

*** nntp.el.orig	Sat Aug 16 14:47:10 1997
--- nntp.el	Sun Oct 12 21:13:35 1997
***************
*** 79,88 ****
  `nntp-open-telnet' which telnets to a remote system, logs in and does
  the same.")
  
  (defvoo nntp-rlogin-parameters '("telnet" "-8" "${NNTPSERVER:=news}" "nntp")
    "*Parameters to `nntp-open-login'.
  That function may be used as `nntp-open-connection-function'.  In that
! case, this list will be used as the parameter list given to rsh.")
  
  (defvoo nntp-rlogin-user-name nil
    "*User name on remote system when using the rlogin connect method.")
--- 79,92 ----
  `nntp-open-telnet' which telnets to a remote system, logs in and does
  the same.")
  
+ (defvoo nntp-rlogin-command '("rsh")
+   "*Command that is used to perform the remote shell. This defaults
+ to rsh. If you want to use ssh, simply change it to ssh.")
+ 
  (defvoo nntp-rlogin-parameters '("telnet" "-8" "${NNTPSERVER:=news}" "nntp")
    "*Parameters to `nntp-open-login'.
  That function may be used as `nntp-open-connection-function'.  In that
! case, this list will be used as the parameter list given to nntp-rlogin-command.")
  
  (defvoo nntp-rlogin-user-name nil
    "*User name on remote system when using the rlogin connect method.")
***************
*** 143,150 ****
  If can be used to set up a server remotely, for instance.  Say you
  have an account at the machine \"other.machine\".  This machine has
  access to an NNTP server that you can't access locally.  You could
! then use this hook to rsh to the remote machine and start a proxy NNTP
! server there that you can connect to.  See also `nntp-open-connection-function'")
  
  (defvoo nntp-warn-about-losing-connection t
    "*If non-nil, beep when a server closes connection.")
--- 147,155 ----
  If can be used to set up a server remotely, for instance.  Say you
  have an account at the machine \"other.machine\".  This machine has
  access to an NNTP server that you can't access locally.  You could
! then use this hook to nntp-rlogin-command (typically rsh) to the 
! remote machine and start a proxy NNTP server there that you can 
! connect to.  See also `nntp-open-connection-function'")
  
  (defvoo nntp-warn-about-losing-connection t
    "*If non-nil, beep when a server closes connection.")
***************
*** 1087,1101 ****
        proc)))
  
  (defun nntp-open-rlogin (buffer)
!   "Open a connection to SERVER using rsh."
    (let ((proc (if nntp-rlogin-user-name
  		  (start-process
! 		   "nntpd" buffer "rsh"
  		   nntp-address "-l" nntp-rlogin-user-name
  		   (mapconcat 'identity
  			      nntp-rlogin-parameters " "))
  		(start-process
! 		 "nntpd" buffer "rsh" nntp-address
  		 (mapconcat 'identity
  			    nntp-rlogin-parameters " ")))))
      (set-buffer buffer)
--- 1092,1106 ----
        proc)))
  
  (defun nntp-open-rlogin (buffer)
!   "Open a connection to SERVER using nntp-rlogin-command."
    (let ((proc (if nntp-rlogin-user-name
  		  (start-process
! 		   "nntpd" buffer nntp-rlogin-command
  		   nntp-address "-l" nntp-rlogin-user-name
  		   (mapconcat 'identity
  			      nntp-rlogin-parameters " "))
  		(start-process
! 		 "nntpd" buffer nntp-rlogin-command nntp-address
  		 (mapconcat 'identity
  			    nntp-rlogin-parameters " ")))))
      (set-buffer buffer)

Re: Using gnus and ssh instead of rsh

[Stefan Waldherr]

>>>>> "Stefan" == Stefan Waldherr <swa@cs.cmu.edu> writes:

    Stefan> ) into you .gnus.el * in the group buffer add a server, method is
    Stefan> nntp, name should be something like ssh:foobar.com * edit
    Stefan> `{nntp:ssh:foobar.com} (closed)' to be something like (nntp

I just found out that ssh-foobar.com is probably a bad example, because gnus
thinks the `:' is the beginning of the newsgroup's name. A better example
would be something like `ssh-foobar.com'.

cu
Stefan.
-- 
Stefan Waldherr                office +1 (412) 268-3837
                                  fax +1 (412) 268-5576
                               e-Mail swa@cs.cmu.edu
                                  www http://mind.learning.cs.cmu.edu/

Re: Using gnus and ssh instead of rsh

[Lars Magne Ingebrigtsen]

Stefan Waldherr <swa@cs.cmu.edu> writes:

> the following diff to nntp.el allows people to use ssh instead of
> rsh (in fact any arbitrary command instead of rsh).  I've added a
> variable nntp-rlogin-command that is the obvious.

We have `nntp-rlogin-program' in Quassia.  Great minds think etc.  :-)

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen