Commit 487c0c87 authored by David Byers's avatar David Byers
Browse files

Support setting keep-commented on conferences.

Detailed changes:
> 2003-08-24  David Byers  <byers@lysator.liu.se>
>
> 	* NEWS-0.48: Updated to here.
>
> 	Support setting keep-commented:
> 	* commands2.el (kom-set-keep-commented): New command.
parent 30420195
2003-08-24 David Byers <byers@lysator.liu.se>
* NEWS-0.48: Updated to here.
Support setting keep-commented:
* commands2.el (kom-set-keep-commented): New command.
2003-08-20 David Byers <byers@lysator.liu.se>
More work on bug 459:
......@@ -47,7 +54,7 @@
(kom-filter-author): Same here.
(kom-filter-text): Same here.
* commands2.el (kom-create-aux-item): Set MUSTMATCH when readinf
* commands2.el (kom-create-aux-item): Set MUSTMATCH when reading
conference name.
* vars.el.in (lyskom-default-conference-strategy): Default for
......
......@@ -237,6 +237,8 @@ otherwise: the conference is read with lyskom-completing-read."
'anon-texts-not-permitted)))
(lyskom-format-insert 'garb-nice
(conf-stat->garb-nice conf-stat))
(lyskom-format-insert 'keep-commented
(conf-stat->keep-commented conf-stat))
(lyskom-format-insert 'lowest-local-no
(conf-stat->first-local-no conf-stat))
(lyskom-format-insert 'highest-local-no
......@@ -1489,6 +1491,28 @@ than the garbage collection time of all its recipients."
(lyskom-insert-string 'done)
(cache-del-conf-stat (conf-stat->conf-no conf-stat)))))))
(def-kom-command kom-set-keep-commented ()
"Set the minimum number of days a commented text is kept in conference
after the most recent comment was written. Texts in a conference will
eventually be deleted automatically \(this process is called garbage
collection). This can only happen when a text is older than the
garbage collection time of all its recipients."
(interactive)
(let ((conf-stat (lyskom-read-conf-stat 'conf-to-set-keep-commented-q
'(all) nil nil t)))
(if (not conf-stat)
(lyskom-insert-string 'somebody-deleted-that-conf)
(let ((keep-commented (lyskom-read-number 'new-keep-commented-q)))
(lyskom-format-insert 'keep-commented-for-is
conf-stat
keep-commented)
(if (not (blocking-do 'set-keep-commented
(conf-stat->conf-no conf-stat)
keep-commented))
(lyskom-insert-string 'nope) ;+++lyskom-errno
(lyskom-insert-string 'done)
(cache-del-conf-stat (conf-stat->conf-no conf-stat)))))))
;;; ================================================================
;;; S{tt till}tna f|rfattare - set-permitted-submitters
......
......@@ -643,11 +643,11 @@ Read all about it at http://www.lysator.liu.se/history/")
(anon-texts-not-permitted . "Anonymous texts are not permitted")
(secret-members-permitted . "Secret members are permitted")
(secret-members-not-permitted . "Secret members are not permitted")
(garb-nice . "Expiration time (in days):%16#1d\n")
(garb-nice . "Expiration time: %16#1d day%#1?d%[%]%[s%]\n")
(keep-commented . "Min. expiration time for commented texts: %#1d day%#1?d%[%]%[s%]\n")
(lowest-local-no . "Lowest local number: %21#1d\n")
(highest-local-no . "Highest local number: %20#1d\n")
(last-text-time .
"Time of last text: %20#1s (according to your cache)\n")
(last-text-time . "Time of last text: %20#1s (according to your cache)\n")
(no-of-motd . "Notice in text: %13#1n\n")
(superconf-is-no-name . "Superconference: %25#1m %#3s(%#2M)\n")
(permitted-submitters-no-name . "Allowed authors: %25#1m %#3s(%#2M)\n")
......@@ -825,8 +825,11 @@ Mark the envelope with \"LysKOM bug report\"\n\n")
(submitters-conf-for-is . "Changing authors admitted to conference %#1M to the members of %#2M...")
(conf-to-set-garb-nice-q . "Set expiration time for which conference? ")
(conf-to-set-keep-commented-q . "Set minimum expiration time for commented texts in which conference? ")
(new-keep-commented-q . "How many days shall new comments protect texts from removal? ")
(new-garb-nice-q . "After how many days shall texts be removed? ")
(garb-nice-for-is . "Changing expiration for %#1M to %#2d days...")
(garb-nice-for-is . "Changing expiration for %#1M to %#2d day%#2?d%[%]%[s%]...")
(keep-commented-for-is . "Changing minimum expiration for commented texts in %#1M to %#2d day%#2?d%[%]%[s%]...")
(really-shutdown . "Are you sure you want to shut down the server? ")
(closing-server . "Shutting down the server...")
......@@ -2223,6 +2226,7 @@ written a presentation.%]
(kom-list-server-faqs . "List server-FAQs")
(kom-list-new-conferences . "List new conferences")
(kom-list-new-persons . "List new users")
(kom-set-keep-commented . "Change minimum expiration (for commented texts)")
))
(lyskom-language-var global lyskom-language-codes en
......
......@@ -640,8 +640,9 @@ i svensk datorhistoria. L
(anon-texts-not-permitted . "Anonyma inlgg r inte tilltna")
(secret-members-permitted . "Hemliga medlemmar r tilltna")
(secret-members-not-permitted . "Hemliga medlemmar r inte tilltna")
(garb-nice . "Livslngd p inlgg (dagar):%14#1d\n")
(lowest-local-no . "Lgsta existerande lokala nummer: %8#1d\n")
(garb-nice . "Livslngd p inlgg: %14#1d dag%#1?d%[%]%[ar%]\n")
(keep-commented . "Minsta livslngd fr kommenterade inlgg: %#1d dag%#1?d%[%]%[ar%]\n")
(lowest-local-no ."Lgsta existerande lokala nummer: %8#1d\n")
(highest-local-no . "Hgsta existerande lokala nummer: %8#1d\n")
(last-text-time .
"Tid fr senaste inlgg: %18#1s (str det i din cache)\n")
......@@ -856,8 +857,11 @@ M
(submitters-conf-for-is . "ndra tilltna frfattare fr mte %#1M till\nmedlemmarna i %#2M...")
(conf-to-set-garb-nice-q . "Vilket mte vill du stta livslngd fr? ")
(conf-to-set-keep-commented-q . "Fr vilket mte vill du stta minsta livslngd fr kommenterade texter? ")
(new-garb-nice-q . "Efter hur mnga dagar ska inlgg utplnas? ")
(garb-nice-for-is . "ndrar livslngden fr %#1M till %#2d dagar...")
(new-keep-commented-q . "Hur mnga dagar nya kommentarer skydda det kommenterade? ")
(garb-nice-for-is . "ndrar livslngden fr %#1M till %#2d dag%#2?d%[%]%[ar%]...")
(keep-commented-for-is . "ndrar s kommentarer skyddar frn utplning i %#2d dag%#2?d%[%]%[ar%] fr %#1M...")
(really-shutdown . "r du sker p att du vill stnga av servern? ")
(closing-server . "Stnga av servern...")
......@@ -2252,6 +2256,7 @@ att upprepas d
(kom-list-server-faqs . "Lista server-FAQ")
(kom-list-new-conferences . "Lista nya mten")
(kom-list-new-persons . "Lista nya personer")
(kom-set-keep-commented . "ndra minsta livslngd (fr kommenterade inlgg)")
))
(lyskom-language-var local lyskom-language-codes sv
......
......@@ -3259,6 +3259,7 @@ Users are encouraged to use their best sense of humor."
kom-list-server-faqs
kom-list-new-conferences
kom-list-new-persons
kom-set-keep-commented
))
;;; ================================================================
......
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