233 |
|
|
234 |
(defcustom tramp-methods |
(defcustom tramp-methods |
235 |
'( ("rcp" (tramp-connection-function tramp-open-connection-rsh) |
'( ("rcp" (tramp-connection-function tramp-open-connection-rsh) |
236 |
(tramp-rsh-program "rsh") |
(tramp-login-program "rsh") |
237 |
(tramp-rcp-program "rcp") |
(tramp-copy-program "rcp") |
238 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
239 |
(tramp-rsh-args nil) |
(tramp-login-args nil) |
240 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
241 |
(tramp-rcp-keep-date-arg "-p") |
(tramp-copy-keep-date-arg "-p")) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
242 |
("scp" (tramp-connection-function tramp-open-connection-rsh) |
("scp" (tramp-connection-function tramp-open-connection-rsh) |
243 |
(tramp-rsh-program "ssh") |
(tramp-login-program "ssh") |
244 |
(tramp-rcp-program "scp") |
(tramp-copy-program "scp") |
245 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
246 |
(tramp-rsh-args ("-e" "none")) |
(tramp-login-args ("-e" "none")) |
247 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
248 |
(tramp-rcp-keep-date-arg "-p") |
(tramp-copy-keep-date-arg "-p")) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
249 |
("scp1" (tramp-connection-function tramp-open-connection-rsh) |
("scp1" (tramp-connection-function tramp-open-connection-rsh) |
250 |
(tramp-rsh-program "ssh") |
(tramp-login-program "ssh") |
251 |
(tramp-rcp-program "scp") |
(tramp-copy-program "scp") |
252 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
253 |
(tramp-rsh-args ("-1" "-e" "none")) |
(tramp-login-args ("-1" "-e" "none")) |
254 |
(tramp-rcp-args ("-1")) |
(tramp-copy-args ("-1")) |
255 |
(tramp-rcp-keep-date-arg "-p") |
(tramp-copy-keep-date-arg "-p")) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
256 |
("scp2" (tramp-connection-function tramp-open-connection-rsh) |
("scp2" (tramp-connection-function tramp-open-connection-rsh) |
257 |
(tramp-rsh-program "ssh") |
(tramp-login-program "ssh") |
258 |
(tramp-rcp-program "scp") |
(tramp-copy-program "scp") |
259 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
260 |
(tramp-rsh-args ("-2" "-e" "none")) |
(tramp-login-args ("-2" "-e" "none")) |
261 |
(tramp-rcp-args ("-2")) |
(tramp-copy-args ("-2")) |
262 |
(tramp-rcp-keep-date-arg "-p") |
(tramp-copy-keep-date-arg "-p")) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
263 |
("scp1_old" |
("scp1_old" |
264 |
(tramp-connection-function tramp-open-connection-rsh) |
(tramp-connection-function tramp-open-connection-rsh) |
265 |
(tramp-rsh-program "ssh1") |
(tramp-login-program "ssh1") |
266 |
(tramp-rcp-program "scp1") |
(tramp-copy-program "scp1") |
267 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
268 |
(tramp-rsh-args ("-e" "none")) |
(tramp-login-args ("-e" "none")) |
269 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
270 |
(tramp-rcp-keep-date-arg "-p") |
(tramp-copy-keep-date-arg "-p")) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
271 |
("scp2_old" |
("scp2_old" |
272 |
(tramp-connection-function tramp-open-connection-rsh) |
(tramp-connection-function tramp-open-connection-rsh) |
273 |
(tramp-rsh-program "ssh2") |
(tramp-login-program "ssh2") |
274 |
(tramp-rcp-program "scp2") |
(tramp-copy-program "scp2") |
275 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
276 |
(tramp-rsh-args ("-e" "none")) |
(tramp-login-args ("-e" "none")) |
277 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
278 |
(tramp-rcp-keep-date-arg "-p") |
(tramp-copy-keep-date-arg "-p")) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
279 |
("rsync" (tramp-connection-function tramp-open-connection-rsh) |
("rsync" (tramp-connection-function tramp-open-connection-rsh) |
280 |
(tramp-rsh-program "ssh") |
(tramp-login-program "ssh") |
281 |
(tramp-rcp-program "rsync") |
(tramp-copy-program "rsync") |
282 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
283 |
(tramp-rsh-args ("-e" "none")) |
(tramp-login-args ("-e" "none")) |
284 |
(tramp-rcp-args ("-e" "ssh")) |
(tramp-copy-args ("-e" "ssh")) |
285 |
(tramp-rcp-keep-date-arg "-t") |
(tramp-copy-keep-date-arg "-t")) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
286 |
("remcp" (tramp-connection-function tramp-open-connection-rsh) |
("remcp" (tramp-connection-function tramp-open-connection-rsh) |
287 |
(tramp-rsh-program "remsh") |
(tramp-login-program "remsh") |
288 |
(tramp-rcp-program "rcp") |
(tramp-copy-program "rcp") |
289 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
290 |
(tramp-rsh-args nil) |
(tramp-login-args nil) |
291 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
292 |
(tramp-rcp-keep-date-arg "-p") |
(tramp-copy-keep-date-arg "-p")) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
293 |
("rsh" (tramp-connection-function tramp-open-connection-rsh) |
("rsh" (tramp-connection-function tramp-open-connection-rsh) |
294 |
(tramp-rsh-program "rsh") |
(tramp-login-program "rsh") |
295 |
(tramp-rcp-program nil) |
(tramp-copy-program nil) |
296 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
297 |
(tramp-rsh-args nil) |
(tramp-login-args nil) |
298 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
299 |
(tramp-rcp-keep-date-arg nil) |
(tramp-copy-keep-date-arg nil)) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
300 |
("ssh" (tramp-connection-function tramp-open-connection-rsh) |
("ssh" (tramp-connection-function tramp-open-connection-rsh) |
301 |
(tramp-rsh-program "ssh") |
(tramp-login-program "ssh") |
302 |
(tramp-rcp-program nil) |
(tramp-copy-program nil) |
303 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
304 |
(tramp-rsh-args ("-e" "none")) |
(tramp-login-args ("-e" "none")) |
305 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
306 |
(tramp-rcp-keep-date-arg nil) |
(tramp-copy-keep-date-arg nil)) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
307 |
("ssh1" (tramp-connection-function tramp-open-connection-rsh) |
("ssh1" (tramp-connection-function tramp-open-connection-rsh) |
308 |
(tramp-rsh-program "ssh") |
(tramp-login-program "ssh") |
309 |
(tramp-rcp-program nil) |
(tramp-copy-program nil) |
310 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
311 |
(tramp-rsh-args ("-1" "-e" "none")) |
(tramp-login-args ("-1" "-e" "none")) |
312 |
(tramp-rcp-args ("-1")) |
(tramp-copy-args ("-1")) |
313 |
(tramp-rcp-keep-date-arg nil) |
(tramp-copy-keep-date-arg nil)) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
314 |
("ssh2" (tramp-connection-function tramp-open-connection-rsh) |
("ssh2" (tramp-connection-function tramp-open-connection-rsh) |
315 |
(tramp-rsh-program "ssh") |
(tramp-login-program "ssh") |
316 |
(tramp-rcp-program nil) |
(tramp-copy-program nil) |
317 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
318 |
(tramp-rsh-args ("-2" "-e" "none")) |
(tramp-login-args ("-2" "-e" "none")) |
319 |
(tramp-rcp-args ("-2")) |
(tramp-copy-args ("-2")) |
320 |
(tramp-rcp-keep-date-arg nil) |
(tramp-copy-keep-date-arg nil)) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
321 |
("ssh1_old" |
("ssh1_old" |
322 |
(tramp-connection-function tramp-open-connection-rsh) |
(tramp-connection-function tramp-open-connection-rsh) |
323 |
(tramp-rsh-program "ssh1") |
(tramp-login-program "ssh1") |
324 |
(tramp-rcp-program nil) |
(tramp-copy-program nil) |
325 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
326 |
(tramp-rsh-args ("-e" "none")) |
(tramp-login-args ("-e" "none")) |
327 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
328 |
(tramp-rcp-keep-date-arg nil) |
(tramp-copy-keep-date-arg nil)) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
329 |
("ssh2_old" |
("ssh2_old" |
330 |
(tramp-connection-function tramp-open-connection-rsh) |
(tramp-connection-function tramp-open-connection-rsh) |
331 |
(tramp-rsh-program "ssh2") |
(tramp-login-program "ssh2") |
332 |
(tramp-rcp-program nil) |
(tramp-copy-program nil) |
333 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
334 |
(tramp-rsh-args ("-e" "none")) |
(tramp-login-args ("-e" "none")) |
335 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
336 |
(tramp-rcp-keep-date-arg nil) |
(tramp-copy-keep-date-arg nil)) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
337 |
("remsh" (tramp-connection-function tramp-open-connection-rsh) |
("remsh" (tramp-connection-function tramp-open-connection-rsh) |
338 |
(tramp-rsh-program "remsh") |
(tramp-login-program "remsh") |
339 |
(tramp-rcp-program nil) |
(tramp-copy-program nil) |
340 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
341 |
(tramp-rsh-args nil) |
(tramp-login-args nil) |
342 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
343 |
(tramp-rcp-keep-date-arg nil) |
(tramp-copy-keep-date-arg nil)) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
344 |
("telnet" |
("telnet" |
345 |
(tramp-connection-function tramp-open-connection-telnet) |
(tramp-connection-function tramp-open-connection-telnet) |
346 |
(tramp-rsh-program nil) |
(tramp-login-program "telnet") |
347 |
(tramp-rcp-program nil) |
(tramp-copy-program nil) |
348 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
349 |
(tramp-rsh-args nil) |
(tramp-login-args nil) |
350 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
351 |
(tramp-rcp-keep-date-arg nil) |
(tramp-copy-keep-date-arg nil)) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program "telnet") |
|
|
(tramp-telnet-args nil)) |
|
352 |
("su" (tramp-connection-function tramp-open-connection-su) |
("su" (tramp-connection-function tramp-open-connection-su) |
353 |
(tramp-rsh-program nil) |
(tramp-login-program "su") |
354 |
(tramp-rcp-program nil) |
(tramp-copy-program nil) |
355 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
356 |
(tramp-rsh-args nil) |
(tramp-login-args ("-" "%u")) |
357 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
358 |
(tramp-rcp-keep-date-arg nil) |
(tramp-copy-keep-date-arg nil)) |
|
(tramp-su-program "su") |
|
|
(tramp-su-args ("-" "%u")) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
359 |
("sudo" (tramp-connection-function tramp-open-connection-su) |
("sudo" (tramp-connection-function tramp-open-connection-su) |
360 |
(tramp-rsh-program nil) |
(tramp-login-program "sudo") |
361 |
(tramp-rcp-program nil) |
(tramp-copy-program nil) |
362 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
363 |
(tramp-rsh-args nil) |
(tramp-login-args ("-u" "%u" "-s" |
|
(tramp-rcp-args nil) |
|
|
(tramp-rcp-keep-date-arg nil) |
|
|
(tramp-su-program "sudo") |
|
|
(tramp-su-args ("-u" "%u" "-s" |
|
364 |
"-p" "Password:")) |
"-p" "Password:")) |
365 |
(tramp-telnet-program nil) |
(tramp-copy-args nil) |
366 |
(tramp-telnet-args nil)) |
(tramp-copy-keep-date-arg nil)) |
367 |
("multi" (tramp-connection-function tramp-open-connection-multi) |
("multi" (tramp-connection-function tramp-open-connection-multi) |
368 |
(tramp-rsh-program nil) |
(tramp-login-program nil) |
369 |
(tramp-rcp-program nil) |
(tramp-copy-program nil) |
370 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
371 |
(tramp-rsh-args nil) |
(tramp-login-args nil) |
372 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
373 |
(tramp-rcp-keep-date-arg nil) |
(tramp-copy-keep-date-arg nil)) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
374 |
("scpx" (tramp-connection-function tramp-open-connection-rsh) |
("scpx" (tramp-connection-function tramp-open-connection-rsh) |
375 |
(tramp-rsh-program "ssh") |
(tramp-login-program "ssh") |
376 |
(tramp-rcp-program "scp") |
(tramp-copy-program "scp") |
377 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
378 |
(tramp-rsh-args ("-e" "none" "-t" "-t" "/bin/sh")) |
(tramp-login-args ("-e" "none" "-t" "-t" "/bin/sh")) |
379 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
380 |
(tramp-rcp-keep-date-arg "-p") |
(tramp-copy-keep-date-arg "-p")) |
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
381 |
("sshx" (tramp-connection-function tramp-open-connection-rsh) |
("sshx" (tramp-connection-function tramp-open-connection-rsh) |
382 |
(tramp-rsh-program "ssh") |
(tramp-login-program "ssh") |
383 |
(tramp-rcp-program nil) |
(tramp-copy-program nil) |
384 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
385 |
(tramp-rsh-args ("-e" "none" "-t" "-t" "/bin/sh")) |
(tramp-login-args ("-e" "none" "-t" "-t" "/bin/sh")) |
386 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
387 |
(tramp-rcp-keep-date-arg nil) |
(tramp-copy-keep-date-arg nil)) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
388 |
("krlogin" |
("krlogin" |
389 |
(tramp-connection-function tramp-open-connection-rsh) |
(tramp-connection-function tramp-open-connection-rsh) |
390 |
(tramp-rsh-program "krlogin") |
(tramp-login-program "krlogin") |
391 |
(tramp-rcp-program nil) |
(tramp-copy-program nil) |
392 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
393 |
(tramp-rsh-args ("-x")) |
(tramp-login-args ("-x")) |
394 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
395 |
(tramp-rcp-keep-date-arg nil) |
(tramp-copy-keep-date-arg nil)) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
396 |
("plink" |
("plink" |
397 |
(tramp-connection-function tramp-open-connection-rsh) |
(tramp-connection-function tramp-open-connection-rsh) |
398 |
(tramp-rsh-program "plink") |
(tramp-login-program "plink") |
399 |
(tramp-rcp-program nil) |
(tramp-copy-program nil) |
400 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
401 |
(tramp-rsh-args ("-ssh")) ;optionally add "-v" |
(tramp-login-args ("-ssh")) ;optionally add "-v" |
402 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
403 |
(tramp-rcp-keep-date-arg nil) |
(tramp-copy-keep-date-arg nil)) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
404 |
("pscp" |
("pscp" |
405 |
(tramp-connection-function tramp-open-connection-rsh) |
(tramp-connection-function tramp-open-connection-rsh) |
406 |
(tramp-rsh-program "plink") |
(tramp-login-program "plink") |
407 |
(tramp-rcp-program "pscp") |
(tramp-copy-program "pscp") |
408 |
(tramp-remote-sh "/bin/sh") |
(tramp-remote-sh "/bin/sh") |
409 |
(tramp-rsh-args ("-ssh")) |
(tramp-login-args ("-ssh")) |
410 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
411 |
(tramp-rcp-keep-date-arg "-p") |
(tramp-copy-keep-date-arg "-p")) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
412 |
("fcp" |
("fcp" |
413 |
(tramp-connection-function tramp-open-connection-rsh) |
(tramp-connection-function tramp-open-connection-rsh) |
414 |
(tramp-rsh-program "fsh") |
(tramp-login-program "fsh") |
415 |
(tramp-rcp-program "fcp") |
(tramp-copy-program "fcp") |
416 |
(tramp-remote-sh "/bin/sh -i") |
(tramp-remote-sh "/bin/sh -i") |
417 |
(tramp-rsh-args ("sh" "-i")) |
(tramp-login-args ("sh" "-i")) |
418 |
(tramp-rcp-args nil) |
(tramp-copy-args nil) |
419 |
(tramp-rcp-keep-date-arg "-p") |
(tramp-copy-keep-date-arg "-p")) |
|
(tramp-su-program nil) |
|
|
(tramp-su-args nil) |
|
|
(tramp-telnet-program nil) |
|
|
(tramp-telnet-args nil)) |
|
420 |
) |
) |
421 |
"*Alist of methods for remote files. |
"*Alist of methods for remote files. |
422 |
This is a list of entries of the form (NAME PARAM1 PARAM2 ...). |
This is a list of entries of the form (NAME PARAM1 PARAM2 ...). |
434 |
which groks tilde expansion, but it can search for it. Also note |
which groks tilde expansion, but it can search for it. Also note |
435 |
that \"/bin/sh\" exists on all Unixen, this might not be true for |
that \"/bin/sh\" exists on all Unixen, this might not be true for |
436 |
the value that you decide to use. You Have Been Warned. |
the value that you decide to use. You Have Been Warned. |
437 |
* `tramp-rsh-program' |
* `tramp-login-program' |
438 |
This specifies the name of the program to use for rsh; this might be |
This specifies the name of the program to use for logging in to the |
439 |
the absolute filename of rsh or the name of a workalike program. |
remote host. Depending on `tramp-connection-function', this may be |
440 |
* `tramp-rsh-args' |
the name of rsh or a workalike program (when |
441 |
|
`tramp-connection-function' is `tramp-open-connection-rsh'), or the |
442 |
|
name of telnet or a workalike (for `tramp-open-connection-telnet'), |
443 |
|
or the name of su or a workalike (for `tramp-open-connection-su'). |
444 |
|
* `tramp-login-args' |
445 |
This specifies the list of arguments to pass to the above |
This specifies the list of arguments to pass to the above |
446 |
mentioned program. Please note that this is a list of arguments, |
mentioned program. Please note that this is a list of arguments, |
447 |
that is, normally you don't want to put \"-a -b\" or \"-f foo\" |
that is, normally you don't want to put \"-a -b\" or \"-f foo\" |
448 |
here. Instead, you want two list elements, one for \"-a\" and one |
here. Instead, you want two list elements, one for \"-a\" and one |
449 |
for \"-b\", or one for \"-f\" and one for \"foo\". |
for \"-b\", or one for \"-f\" and one for \"foo\". |
450 |
* `tramp-rcp-program' |
If `tramp-connection-function' is `tramp-open-connection-su', then |
451 |
This specifies the name of the program to use for rcp; this might be |
\"%u\" in this list is replaced by the user name, and \"%%\" can |
452 |
the absolute filename of rcp or the name of a workalike program. |
be used to obtain a literal percent character. |
453 |
* `tramp-rcp-args' |
* `tramp-copy-program' |
454 |
|
This specifies the name of the program to use for remotely copying |
455 |
|
the file; this might be the absolute filename of rcp or the name of |
456 |
|
a workalike program. |
457 |
|
* `tramp-copy-args' |
458 |
This specifies the list of parameters to pass to the above mentioned |
This specifies the list of parameters to pass to the above mentioned |
459 |
program, the hints for `tramp-rsh-args' also apply here. |
program, the hints for `tramp-login-args' also apply here. |
460 |
* `tramp-rcp-keep-date-arg' |
* `tramp-copy-keep-date-arg' |
461 |
This specifies the parameter to use for `rcp' when the timestamp |
This specifies the parameter to use for the copying program when the |
462 |
of the original file should be kept. For `rcp', use `-p', for |
timestamp of the original file should be kept. For `rcp', use `-p', for |
463 |
`rsync', use `-t'. |
`rsync', use `-t'. |
464 |
* `tramp-su-program' |
|
465 |
This specifies the name of the program to use for `su'. |
What does all this mean? Well, you should specify `tramp-login-program' |
466 |
* `tramp-su-args' |
for all methods; this program is used to log in to the remote site. Then, |
467 |
This specifies the list of arguments to pass to `su'. |
there are two ways to actually transfer the files between the local and the |
468 |
\"%u\" is replaced by the user name, use \"%%\" for a literal |
remote side. One way is using an additional rcp-like program. If you want |
469 |
percent character. |
to do this, set `tramp-copy-program' in the method. |
|
* `tramp-telnet-program' |
|
|
Specifies the telnet program to use when using |
|
|
`tramp-open-connection-telnet' to log in. |
|
|
* `tramp-telnet-args' |
|
|
Specifies list of arguments to pass to `telnet'. The hints for |
|
|
`tramp-rsh-args' also apply here. |
|
|
|
|
|
What does all this mean? Well, you should specify `tramp-rsh-program', |
|
|
`tramp-telnet-program' or `tramp-su-program' for all methods; this program |
|
|
is used to log in to the remote site. Then, there are two ways to |
|
|
actually transfer the files between the local and the remote side. |
|
|
One way is using an additional rcp-like program. If you want to do |
|
|
this, set `tramp-rcp-program' in the method. |
|
470 |
|
|
471 |
Another possibility for file transfer is inline transfer, i.e. the |
Another possibility for file transfer is inline transfer, i.e. the |
472 |
file is passed through the same buffer used by `tramp-rsh-program'. In |
file is passed through the same buffer used by `tramp-login-program'. In |
473 |
this case, the file contents need to be protected since the |
this case, the file contents need to be protected since the |
474 |
`tramp-rsh-program' might use escape codes or the connection might not |
`tramp-login-program' might use escape codes or the connection might not |
475 |
be eight-bit clean. Therefore, file contents are encoded for transit. |
be eight-bit clean. Therefore, file contents are encoded for transit. |
476 |
See the variable `tramp-coding-commands' for details. |
See the variable `tramp-coding-commands' for details. |
477 |
|
|
478 |
So, to summarize: if the method is an out-of-band method, then you |
So, to summarize: if the method is an out-of-band method, then you |
479 |
must specify `tramp-rcp-program' and `tramp-rcp-args'. If it is an |
must specify `tramp-copy-program' and `tramp-copy-args'. If it is an |
480 |
inline method, then these two parameters should be nil. Every method, |
inline method, then these two parameters should be nil. Every method, |
481 |
inline or out of band, must specify `tramp-connection-function' plus |
inline or out of band, must specify `tramp-connection-function' plus |
482 |
the associated arguments (for example, the telnet program if you chose |
the associated arguments (for example, the login program if you chose |
483 |
`tramp-open-connection-telnet'). |
`tramp-open-connection-telnet'). |
484 |
|
|
485 |
Notes: |
Notes: |
493 |
:type '(repeat |
:type '(repeat |
494 |
(cons string |
(cons string |
495 |
(set (list (const tramp-connection-function) function) |
(set (list (const tramp-connection-function) function) |
496 |
(list (const tramp-rsh-program) |
(list (const tramp-login-program) |
497 |
(choice (const nil) string)) |
(choice (const nil) string)) |
498 |
(list (const tramp-rcp-program) |
(list (const tramp-copy-program) |
499 |
(choice (const nil) string)) |
(choice (const nil) string)) |
500 |
(list (const tramp-remote-sh) |
(list (const tramp-remote-sh) |
501 |
(choice (const nil) string)) |
(choice (const nil) string)) |
502 |
(list (const tramp-rsh-args) (repeat string)) |
(list (const tramp-login-args) (repeat string)) |
503 |
(list (const tramp-rcp-args) (repeat string)) |
(list (const tramp-copy-args) (repeat string)) |
504 |
(list (const tramp-rcp-keep-date-arg) |
(list (const tramp-copy-keep-date-arg) |
|
(choice (const nil) string)) |
|
|
(list (const tramp-su-program) |
|
505 |
(choice (const nil) string)) |
(choice (const nil) string)) |
|
(list (const tramp-su-args) (repeat string)) |
|
506 |
(list (const tramp-encoding-command) |
(list (const tramp-encoding-command) |
507 |
(choice (const nil) string)) |
(choice (const nil) string)) |
508 |
(list (const tramp-decoding-command) |
(list (const tramp-decoding-command) |
510 |
(list (const tramp-encoding-function) |
(list (const tramp-encoding-function) |
511 |
(choice (const nil) function)) |
(choice (const nil) function)) |
512 |
(list (const tramp-decoding-function) |
(list (const tramp-decoding-function) |
513 |
(choice (const nil) function)) |
(choice (const nil) function)))))) |
|
(list (const tramp-telnet-program) |
|
|
(choice (const nil) string)) |
|
|
(list (const tramp-telnet-args) (repeat string)))))) |
|
514 |
|
|
515 |
(defcustom tramp-multi-methods '("multi" "multiu") |
(defcustom tramp-multi-methods '("multi" "multiu") |
516 |
"*List of multi-hop methods. |
"*List of multi-hop methods. |
520 |
:type '(repeat string)) |
:type '(repeat string)) |
521 |
|
|
522 |
(defcustom tramp-multi-connection-function-alist |
(defcustom tramp-multi-connection-function-alist |
523 |
`(("telnet" tramp-multi-connect-telnet "telnet %h%n") |
'(("telnet" tramp-multi-connect-telnet "telnet %h%n") |
524 |
("rsh" tramp-multi-connect-rlogin |
("rsh" tramp-multi-connect-rlogin "rsh %h -l %u%n") |
525 |
,(concat tramp-real-rsh-program " %h -l %u%n")) |
("remsh" tramp-multi-connect-rlogin "remsh %h -l %u%n") |
526 |
("ssh" tramp-multi-connect-rlogin "ssh %h -l %u%n") |
("ssh" tramp-multi-connect-rlogin "ssh %h -l %u%n") |
527 |
("su" tramp-multi-connect-su "su - %u%n") |
("su" tramp-multi-connect-su "su - %u%n") |
528 |
("sudo" tramp-multi-connect-su "sudo -u %u -s -p Password:%n")) |
("sudo" tramp-multi-connect-su "sudo -u %u -s -p Password:%n")) |
1225 |
In the connection buffer, this variable has the value of the like-named |
In the connection buffer, this variable has the value of the like-named |
1226 |
method parameter, as specified in `tramp-methods' (which see).") |
method parameter, as specified in `tramp-methods' (which see).") |
1227 |
|
|
1228 |
(defvar tramp-rsh-program nil |
(defvar tramp-login-program nil |
1229 |
"This internal variable holds a parameter for `tramp-methods'. |
"This internal variable holds a parameter for `tramp-methods'. |
1230 |
In the connection buffer, this variable has the value of the like-named |
In the connection buffer, this variable has the value of the like-named |
1231 |
method parameter, as specified in `tramp-methods' (which see).") |
method parameter, as specified in `tramp-methods' (which see).") |
1232 |
|
|
1233 |
(defvar tramp-rsh-args nil |
(defvar tramp-login-args nil |
1234 |
"This internal variable holds a parameter for `tramp-methods'. |
"This internal variable holds a parameter for `tramp-methods'. |
1235 |
In the connection buffer, this variable has the value of the like-named |
In the connection buffer, this variable has the value of the like-named |
1236 |
method parameter, as specified in `tramp-methods' (which see).") |
method parameter, as specified in `tramp-methods' (which see).") |
1237 |
|
|
1238 |
(defvar tramp-rcp-program nil |
(defvar tramp-copy-program nil |
1239 |
"This internal variable holds a parameter for `tramp-methods'. |
"This internal variable holds a parameter for `tramp-methods'. |
1240 |
In the connection buffer, this variable has the value of the like-named |
In the connection buffer, this variable has the value of the like-named |
1241 |
method parameter, as specified in `tramp-methods' (which see).") |
method parameter, as specified in `tramp-methods' (which see).") |
1242 |
|
|
1243 |
(defvar tramp-rcp-args nil |
(defvar tramp-copy-args nil |
1244 |
"This internal variable holds a parameter for `tramp-methods'. |
"This internal variable holds a parameter for `tramp-methods'. |
1245 |
In the connection buffer, this variable has the value of the like-named |
In the connection buffer, this variable has the value of the like-named |
1246 |
method parameter, as specified in `tramp-methods' (which see).") |
method parameter, as specified in `tramp-methods' (which see).") |
1247 |
|
|
1248 |
(defvar tramp-rcp-keep-date-arg nil |
(defvar tramp-copy-keep-date-arg nil |
1249 |
"This internal variable holds a parameter for `tramp-methods'. |
"This internal variable holds a parameter for `tramp-methods'. |
1250 |
In the connection buffer, this variable has the value of the like-named |
In the connection buffer, this variable has the value of the like-named |
1251 |
method parameter, as specified in `tramp-methods' (which see).") |
method parameter, as specified in `tramp-methods' (which see).") |
1270 |
In the connection buffer, this variable has the value of the like-named |
In the connection buffer, this variable has the value of the like-named |
1271 |
method parameter, as specified in `tramp-methods' (which see).") |
method parameter, as specified in `tramp-methods' (which see).") |
1272 |
|
|
|
(defvar tramp-telnet-program nil |
|
|
"This internal variable holds a parameter for `tramp-methods'. |
|
|
In the connection buffer, this variable has the value of the like-named |
|
|
method parameter, as specified in `tramp-methods' (which see).") |
|
|
|
|
|
(defvar tramp-telnet-args nil |
|
|
"This internal variable holds a parameter for `tramp-methods'. |
|
|
In the connection buffer, this variable has the value of the like-named |
|
|
method parameter, as specified in `tramp-methods' (which see).") |
|
|
|
|
|
(defvar tramp-su-program nil |
|
|
"This internal variable holds a parameter for `tramp-methods'. |
|
|
In the connection buffer, this variable has the value of the like-named |
|
|
method parameter, as specified in `tramp-methods' (which see).") |
|
|
|
|
1273 |
;; CCC `local in each buffer'? |
;; CCC `local in each buffer'? |
1274 |
(defvar tramp-ls-command nil |
(defvar tramp-ls-command nil |
1275 |
"This command is used to get a long listing with numeric user and group ids. |
"This command is used to get a long listing with numeric user and group ids. |
2516 |
;; source and target file. |
;; source and target file. |
2517 |
|
|
2518 |
;; CCC: If both source and target are Tramp files, |
;; CCC: If both source and target are Tramp files, |
2519 |
;; and both are using the same rcp-program, then we |
;; and both are using the same copy-program, then we |
2520 |
;; can invoke rcp directly. Note that |
;; can invoke rcp directly. Note that |
2521 |
;; default-directory should point to a local |
;; default-directory should point to a local |
2522 |
;; directory if we want to invoke rcp. |
;; directory if we want to invoke rcp. |
2925 |
(with-parsed-tramp-file-name filename nil |
(with-parsed-tramp-file-name filename nil |
2926 |
(let ((output-buf (get-buffer-create "*tramp output*")) |
(let ((output-buf (get-buffer-create "*tramp output*")) |
2927 |
(tramp-buf (tramp-get-buffer multi-method method user host)) |
(tramp-buf (tramp-get-buffer multi-method method user host)) |
2928 |
(rcp-program (tramp-get-rcp-program |
(copy-program (tramp-get-copy-program |
2929 |
multi-method |
multi-method |
2930 |
(tramp-find-method multi-method method user host) |
(tramp-find-method multi-method method user host) |
2931 |
user host)) |
user host)) |
2932 |
(rcp-args (tramp-get-rcp-args |
(copy-args (tramp-get-copy-args |
2933 |
multi-method |
multi-method |
2934 |
(tramp-find-method multi-method method user host) |
(tramp-find-method multi-method method user host) |
2935 |
user host)) |
user host)) |
2936 |
;; We used to bind the following as late as possible. |
;; We used to bind the following as late as possible. |
2937 |
;; loc-enc and loc-dec were bound directly before the if |
;; loc-enc and loc-dec were bound directly before the if |
2938 |
;; statement that checks them. But the functions |
;; statement that checks them. But the functions |
2948 |
(error "Cannot make local copy of non-existing file `%s'" |
(error "Cannot make local copy of non-existing file `%s'" |
2949 |
filename)) |
filename)) |
2950 |
(setq tmpfil (tramp-make-temp-file)) |
(setq tmpfil (tramp-make-temp-file)) |
2951 |
(cond (rcp-program |
(cond (copy-program |
2952 |
;; Use rcp-like program for file transfer. |
;; Use rcp-like program for file transfer. |
2953 |
(tramp-message-for-buffer |
(tramp-message-for-buffer |
2954 |
multi-method method user host |
multi-method method user host |
2957 |
(unless (equal |
(unless (equal |
2958 |
0 |
0 |
2959 |
(apply #'call-process |
(apply #'call-process |
2960 |
rcp-program |
copy-program |
2961 |
nil output-buf nil |
nil output-buf nil |
2962 |
(append rcp-args |
(append copy-args |
2963 |
(list |
(list |
2964 |
(tramp-make-rcp-program-file-name |
(tramp-make-copy-program-file-name |
2965 |
user host |
user host |
2966 |
(tramp-shell-quote-argument localname)) |
(tramp-shell-quote-argument localname)) |
2967 |
tmpfil)))) |
tmpfil)))) |
2969 |
(error |
(error |
2970 |
(concat "tramp-handle-file-local-copy: `%s' didn't work, " |
(concat "tramp-handle-file-local-copy: `%s' didn't work, " |
2971 |
"see buffer `%s' for details") |
"see buffer `%s' for details") |
2972 |
rcp-program output-buf)) |
copy-program output-buf)) |
2973 |
(tramp-message-for-buffer |
(tramp-message-for-buffer |
2974 |
multi-method method user host |
multi-method method user host |
2975 |
5 "Fetching %s to tmp file %s...done" filename tmpfil)) |
5 "Fetching %s to tmp file %s...done" filename tmpfil)) |
3093 |
(error "File not overwritten"))) |
(error "File not overwritten"))) |
3094 |
(with-parsed-tramp-file-name filename nil |
(with-parsed-tramp-file-name filename nil |
3095 |
(let ((curbuf (current-buffer)) |
(let ((curbuf (current-buffer)) |
3096 |
(rcp-program (tramp-get-rcp-program |
(copy-program (tramp-get-copy-program |
3097 |
multi-method (tramp-find-method multi-method method user host) |
multi-method |
3098 |
user host)) |
(tramp-find-method multi-method method user host) |
3099 |
(rcp-args (tramp-get-rcp-args |
user host)) |
3100 |
|
(copy-args (tramp-get-copy-args |
3101 |
multi-method |
multi-method |
3102 |
(tramp-find-method multi-method method user host) |
(tramp-find-method multi-method method user host) |
3103 |
user host)) |
user host)) |
3135 |
;; decoding command must be specified. However, if the method |
;; decoding command must be specified. However, if the method |
3136 |
;; _also_ specifies an encoding function, then that is used for |
;; _also_ specifies an encoding function, then that is used for |
3137 |
;; encoding the contents of the tmp file. |
;; encoding the contents of the tmp file. |
3138 |
(cond (rcp-program |
(cond (copy-program |
3139 |
;; use rcp-like program for file transfer |
;; use rcp-like program for file transfer |
3140 |
(let ((argl (append rcp-args |
(let ((argl (append copy-args |
3141 |
(list |
(list |
3142 |
tmpfil |
tmpfil |
3143 |
(tramp-make-rcp-program-file-name |
(tramp-make-copy-program-file-name |
3144 |
user host |
user host |
3145 |
(tramp-shell-quote-argument localname)))))) |
(tramp-shell-quote-argument localname)))))) |
3146 |
(tramp-message-for-buffer |
(tramp-message-for-buffer |
3147 |
multi-method method user host |
multi-method method user host |
3148 |
6 "Writing tmp file using `%s'..." rcp-program) |
6 "Writing tmp file using `%s'..." copy-program) |
3149 |
(save-excursion (set-buffer trampbuf) (erase-buffer)) |
(save-excursion (set-buffer trampbuf) (erase-buffer)) |
3150 |
(when tramp-debug-buffer |
(when tramp-debug-buffer |
3151 |
(save-excursion |
(save-excursion |
3153 |
method user host)) |
method user host)) |
3154 |
(goto-char (point-max)) |
(goto-char (point-max)) |
3155 |
(tramp-insert-with-face |
(tramp-insert-with-face |
3156 |
'bold (format "$ %s %s\n" rcp-program |
'bold (format "$ %s %s\n" copy-program |
3157 |
(mapconcat 'identity argl " "))))) |
(mapconcat 'identity argl " "))))) |
3158 |
(unless (equal 0 |
(unless (equal 0 |
3159 |
(apply #'call-process |
(apply #'call-process |
3160 |
rcp-program nil trampbuf nil argl)) |
copy-program nil trampbuf nil argl)) |
3161 |
(pop-to-buffer trampbuf) |
(pop-to-buffer trampbuf) |
3162 |
(error |
(error |
3163 |
"Cannot write region to file `%s', command `%s' failed" |
"Cannot write region to file `%s', command `%s' failed" |
3164 |
filename rcp-program)) |
filename copy-program)) |
3165 |
(tramp-message-for-buffer |
(tramp-message-for-buffer |
3166 |
multi-method method user host |
multi-method method user host |
3167 |
6 "Transferring file using `%s'...done" |
6 "Transferring file using `%s'...done" |
3168 |
rcp-program))) |
copy-program))) |
3169 |
((and rem-enc rem-dec) |
((and rem-enc rem-dec) |
3170 |
;; Use inline file transfer |
;; Use inline file transfer |
3171 |
(let ((tmpbuf (get-buffer-create " *tramp file transfer*"))) |
(let ((tmpbuf (get-buffer-create " *tramp file transfer*"))) |
4522 |
(p (apply 'start-process |
(p (apply 'start-process |
4523 |
(tramp-buffer-name multi-method method user host) |
(tramp-buffer-name multi-method method user host) |
4524 |
(tramp-get-buffer multi-method method user host) |
(tramp-get-buffer multi-method method user host) |
4525 |
(tramp-get-telnet-program |
(tramp-get-login-program |
4526 |
multi-method |
multi-method |
4527 |
(tramp-find-method multi-method method user host) |
(tramp-find-method multi-method method user host) |
4528 |
user host) |
user host) |
4529 |
host |
host |
4530 |
(tramp-get-telnet-args |
(tramp-get-login-args |
4531 |
multi-method |
multi-method |
4532 |
(tramp-find-method multi-method method user host) |
(tramp-find-method multi-method method user host) |
4533 |
user host))) |
user host))) |
4579 |
(let ((process-environment (copy-sequence process-environment)) |
(let ((process-environment (copy-sequence process-environment)) |
4580 |
(bufnam (tramp-buffer-name multi-method method user host)) |
(bufnam (tramp-buffer-name multi-method method user host)) |
4581 |
(buf (tramp-get-buffer multi-method method user host)) |
(buf (tramp-get-buffer multi-method method user host)) |
4582 |
(rsh-program (tramp-get-rsh-program |
(login-program (tramp-get-login-program |
4583 |
multi-method |
multi-method |
4584 |
(tramp-find-method multi-method method user host) |
(tramp-find-method multi-method method user host) |
4585 |
user host)) |
user host)) |
4586 |
(rsh-args (tramp-get-rsh-args |
(login-args (tramp-get-login-args |
4587 |
multi-method |
multi-method |
4588 |
(tramp-find-method multi-method method user host) |
(tramp-find-method multi-method method user host) |
4589 |
user host))) |
user host))) |
4590 |
;; The following should be changed. We need a more general |
;; The following should be changed. We need a more general |
4591 |
;; mechanism to parse extra host args. |
;; mechanism to parse extra host args. |
4592 |
(when (string-match "\\([^#]*\\)#\\(.*\\)" host) |
(when (string-match "\\([^#]*\\)#\\(.*\\)" host) |
4593 |
(setq rsh-args (cons "-p" (cons (match-string 2 host) rsh-args))) |
(setq login-args (cons "-p" (cons (match-string 2 host) rsh-args))) |
4594 |
(setq host (match-string 1 host))) |
(setq host (match-string 1 host))) |
4595 |
(setenv "TERM" tramp-terminal-type) |
(setenv "TERM" tramp-terminal-type) |
4596 |
(let* ((default-directory (tramp-temporary-file-directory)) |
(let* ((default-directory (tramp-temporary-file-directory)) |
4601 |
(> emacs-major-version 20)) |
(> emacs-major-version 20)) |
4602 |
tramp-dos-coding-system)) |
tramp-dos-coding-system)) |
4603 |
(p (if (and user (not (string= user ""))) |
(p (if (and user (not (string= user ""))) |
4604 |
(apply #'start-process bufnam buf rsh-program |
(apply #'start-process bufnam buf login-program |
4605 |
host "-l" user rsh-args) |
host "-l" user login-args) |
4606 |
(apply #'start-process bufnam buf rsh-program |
(apply #'start-process bufnam buf login-program |
4607 |
host rsh-args))) |
host login-args))) |
4608 |
(found nil)) |
(found nil)) |
4609 |
(process-kill-without-query p) |
(process-kill-without-query p) |
4610 |
|
|
4654 |
(p (apply 'start-process |
(p (apply 'start-process |
4655 |
(tramp-buffer-name multi-method method user host) |
(tramp-buffer-name multi-method method user host) |
4656 |
(tramp-get-buffer multi-method method user host) |
(tramp-get-buffer multi-method method user host) |
4657 |
(tramp-get-su-program |
(tramp-get-login-program |
4658 |
multi-method |
multi-method |
4659 |
(tramp-find-method multi-method method user host) |
(tramp-find-method multi-method method user host) |
4660 |
user host) |
user host) |
4661 |
(mapcar |
(mapcar |
4662 |
(lambda (x) |
(lambda (x) |
4663 |
(format-spec x `((?u . ,(or user "root"))))) |
(format-spec x `((?u . ,(or user "root"))))) |
4664 |
(tramp-get-su-args |
(tramp-get-login-args |
4665 |
multi-method |
multi-method |
4666 |
(tramp-find-method multi-method method user host) |
(tramp-find-method multi-method method user host) |
4667 |
user host)))) |
user host)))) |
5117 |
" -e '" tramp-perl-file-attributes "' $1 2>/dev/null\n" |
" -e '" tramp-perl-file-attributes "' $1 2>/dev/null\n" |
5118 |
"}")) |
"}")) |
5119 |
(tramp-wait-for-output) |
(tramp-wait-for-output) |
5120 |
(unless (tramp-get-rcp-program |
(unless (tramp-get-copy-program |
5121 |
multi-method |
multi-method |
5122 |
(tramp-find-method multi-method method user host) |
(tramp-find-method multi-method method user host) |
5123 |
user host) |
user host) |
5159 |
(tramp-set-connection-property "ln" ln multi-method method user host))) |
(tramp-set-connection-property "ln" ln multi-method method user host))) |
5160 |
(erase-buffer) |
(erase-buffer) |
5161 |
;; Find the right encoding/decoding commands to use. |
;; Find the right encoding/decoding commands to use. |
5162 |
(unless (tramp-get-rcp-program |
(unless (tramp-get-copy-program |
5163 |
multi-method |
multi-method |
5164 |
(tramp-find-method multi-method method user host) |
(tramp-find-method multi-method method user host) |
5165 |
user host) |
user host) |
5852 |
(incf i))) |
(incf i))) |
5853 |
(concat prefix hops localname))) |
(concat prefix hops localname))) |
5854 |
|
|
5855 |
(defun tramp-make-rcp-program-file-name (user host localname) |
(defun tramp-make-copy-program-file-name (user host localname) |
5856 |
"Create a file name suitable to be passed to `rcp'." |
"Create a file name suitable to be passed to `rcp' and workalikes." |
5857 |
(if user |
(if user |
5858 |
(format "%s@%s:%s" user host localname) |
(format "%s@%s:%s" user host localname) |
5859 |
(format "%s:%s" host localname))) |
(format "%s:%s" host localname))) |
5861 |
(defun tramp-method-out-of-band-p (multi-method method user host) |
(defun tramp-method-out-of-band-p (multi-method method user host) |
5862 |
"Return t if this is an out-of-band method, nil otherwise. |
"Return t if this is an out-of-band method, nil otherwise. |
5863 |
It is important to check for this condition, since it is not possible |
It is important to check for this condition, since it is not possible |
5864 |
to enter a password for the `tramp-rcp-program'." |
to enter a password for the `tramp-copy-program'." |
5865 |
(tramp-get-rcp-program |
(tramp-get-copy-program |
5866 |
multi-method |
multi-method |
5867 |
(tramp-find-method multi-method method user host) |
(tramp-find-method multi-method method user host) |
5868 |
user host)) |
user host)) |
5960 |
(error "Method `%s' didn't specify a remote shell" |
(error "Method `%s' didn't specify a remote shell" |
5961 |
(or multi-method method))))) |
(or multi-method method))))) |
5962 |
|
|
5963 |
(defun tramp-get-rsh-program (multi-method method user host) |
(defun tramp-get-login-program (multi-method method user host) |
5964 |
(second (or (assoc 'tramp-rsh-program |
(second (or (assoc 'tramp-login-program |
5965 |
(assoc (tramp-find-method multi-method method user host) |
(assoc (tramp-find-method multi-method method user host) |
5966 |
tramp-methods)) |
tramp-methods)) |
5967 |
(error "Method `%s' didn't specify an rsh program" |
(error "Method `%s' didn't specify a login program" |
5968 |
(or multi-method method))))) |
(or multi-method method))))) |
5969 |
|
|
5970 |
(defun tramp-get-rsh-args (multi-method method user host) |
(defun tramp-get-login-args (multi-method method user host) |
5971 |
(second (or (assoc 'tramp-rsh-args |
(second (or (assoc 'tramp-login-args |
5972 |
(assoc (tramp-find-method multi-method method user host) |
(assoc (tramp-find-method multi-method method user host) |
5973 |
tramp-methods)) |
tramp-methods)) |
5974 |
(error "Method `%s' didn't specify rsh args" |
(error "Method `%s' didn't specify login args" |
5975 |
(or multi-method method))))) |
(or multi-method method))))) |
5976 |
|
|
5977 |
(defun tramp-get-rcp-program (multi-method method user host) |
(defun tramp-get-copy-program (multi-method method user host) |
5978 |
(second (or (assoc 'tramp-rcp-program |
(second (or (assoc 'tramp-copy-program |
5979 |
(assoc (tramp-find-method multi-method method user host) |
(assoc (tramp-find-method multi-method method user host) |
5980 |
tramp-methods)) |
tramp-methods)) |
5981 |
(error "Method `%s' didn't specify an rcp program" |
(error "Method `%s' didn't specify a copy program" |
5982 |
(or multi-method method))))) |
(or multi-method method))))) |
5983 |
|
|
5984 |
(defun tramp-get-rcp-args (multi-method method user host) |
(defun tramp-get-copy-args (multi-method method user host) |
5985 |
(second (or (assoc 'tramp-rcp-args |
(second (or (assoc 'tramp-copy-args |
5986 |
(assoc (tramp-find-method multi-method method user host) |
(assoc (tramp-find-method multi-method method user host) |
5987 |
tramp-methods)) |
tramp-methods)) |
5988 |
(error "Method `%s' didn't specify rcp args" |
(error "Method `%s' didn't specify copy args" |
5989 |
(or multi-method method))))) |
(or multi-method method))))) |
5990 |
|
|
5991 |
(defun tramp-get-rcp-keep-date-arg (multi-method method user host) |
(defun tramp-get-copy-keep-date-arg (multi-method method user host) |
5992 |
(second (or (assoc 'tramp-rcp-keep-date-arg |
(second (or (assoc 'tramp-copy-keep-date-arg |
5993 |
(assoc (tramp-find-method multi-method method user host) |
(assoc (tramp-find-method multi-method method user host) |
5994 |
tramp-methods)) |
tramp-methods)) |
5995 |
(error "Method `%s' didn't specify `keep-date' arg for tramp" |
(error "Method `%s' didn't specify `keep-date' arg for tramp" |
5996 |
(or multi-method method))))) |
(or multi-method method))))) |
5997 |
|
|
|
(defun tramp-get-su-program (multi-method method user host) |
|
|
(second (or (assoc 'tramp-su-program |
|
|
(assoc (tramp-find-method multi-method method user host) |
|
|
tramp-methods)) |
|
|
(error "Method `%s' didn't specify a su program" |
|
|
(or multi-method method))))) |
|
|
|
|
|
(defun tramp-get-su-args (multi-method method user host) |
|
|
(second (or (assoc 'tramp-su-args |
|
|
(assoc (tramp-find-method multi-method method user host) |
|
|
tramp-methods)) |
|
|
(error "Method `%s' didn't specify su args" |
|
|
(or multi-method method))))) |
|
|
|
|
|
(defun tramp-get-telnet-program (multi-method method user host) |
|
|
(second (or (assoc 'tramp-telnet-program |
|
|
(assoc (tramp-find-method multi-method method user host) |
|
|
tramp-methods)) |
|
|
(error "Method `%s' didn't specify a telnet program" |
|
|
(or multi-method method))))) |
|
|
|
|
|
(defun tramp-get-telnet-args (multi-method method user host) |
|
|
(second (or (assoc 'tramp-telnet-args |
|
|
(assoc (tramp-find-method multi-method method user host) |
|
|
tramp-methods)) |
|
|
(error "Method `%s' didn't specify telnet args" |
|
|
(or multi-method method))))) |
|
|
|
|
|
|
|
5998 |
;; Auto saving to a special directory. |
;; Auto saving to a special directory. |
5999 |
|
|
6000 |
(defun tramp-make-auto-save-file-name (fn) |
(defun tramp-make-auto-save-file-name (fn) |