Commit e2e9195c authored by David Byers's avatar David Byers
Browse files

Tillåt bara kom-sync-database om serverversionen är 1.9 eller senare

parent 35e72fa9
...@@ -1087,9 +1087,14 @@ Format is 23:29 if the text is written today. Otherwise 04-01." ...@@ -1087,9 +1087,14 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
(def-kom-command kom-sync-database () (def-kom-command kom-sync-database ()
"Save the LysKOM database." "Save the LysKOM database."
(interactive) (interactive)
(if (lyskom-ja-or-nej-p (lyskom-get-string 'really-sync)) (if (or (> (elt lyskom-server-version 0) 1)
(progn (lyskom-insert-string 'syncing-server) (and (= (elt lyskom-server-version 0) 1)
(lyskom-report-command-answer (blocking-do 'sync))))) (> (elt lyskom-server-version 1) 8)))
(if (lyskom-ja-or-nej-p (lyskom-get-string 'really-sync))
(progn (lyskom-insert-string 'syncing-server)
(lyskom-report-command-answer (blocking-do 'sync))))
(setq lyskom-errno 12)
(lyskom-report-command-answer nil)))
;;; ================================================================ ;;; ================================================================
......
Supports Markdown
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