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."
(def-kom-command kom-sync-database ()
"Save the LysKOM database."
(interactive)
(if (or (> (elt lyskom-server-version 0) 1)
(and (= (elt lyskom-server-version 0) 1)
(> (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)))))
(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