Commit b4d59966 authored by Linus Tolke Y's avatar Linus Tolke Y

Files, changed kom-send-message.

parent 8cb78d8c
No preview for this file type
......@@ -489,7 +489,7 @@ Args: MEMBERSHIP-LIST CONF-STAT."
(condition-case error
(lyskom-send-message
(lyskom-read-conf-no (lyskom-get-string 'who-to-send-message-to)
'logins t))
'pers t))
(quit (lyskom-end-of-command)
(signal 'quit "Quitting in kom-send-message"))))
......
......@@ -790,6 +790,9 @@ Felmeddelande: %#1s**************************************************")
(kom-set-motd "S\344tt loginmeddelande")
(kom-remove-motd "Ta bort loginmeddelande")
(kom-force-logout "Kasta ut en session")
(kom-list-files "Lista filarean")
(kom-put-file "Ladda upp fil")
(kom-get-file "Ladda ner fil")
)
"A list of LysKOM-commands that the extended parser understands.")
......@@ -1144,4 +1147,20 @@ Users are encouraged to use their best sense of humor.")
(setq kom-emacs-knows-iso-8859-1 t)
(lyskom-view-text 'main text-no)
(lyskom-run 'main 'set 'kom-emacs-knows-iso-8859-1 knows-iso-8859-1)
(lyskom-run 'main 'lyskom-end-of-command)))
\ No newline at end of file
(lyskom-run 'main 'lyskom-end-of-command)))
;; Vars}god sojge, en massa j{ttebra funktioner.
(defun kom-put-file (filename)
(interactive "fVilken fil vill du ladda upp? ")
(copy-file filename (concat "/ftp@ftp.lysator.liu.se:/open/"
(file-name-nondirectory filename))))
(defun kom-get-file (filename)
(interactive "sVilken fil vill du ladda ner? ")
(copy-file (concat "/ftp@ftp.lysator.liu.se:/open/" filename) filename))
(defun kom-list-files ()
(interactive)
(list-directory "/ftp@ftp.lysator.liu.se:/open"))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment