/*
** *PLONK*! 1.0 written by Karol Bryd
** $VER: PLONK.rexx 1.0 (99-Feb-07)
** This is a part of Yam2NN
*/

OPTIONS RESULTS

ADDRESS 'YAM'

'MAILINFO STEM msg.'

call addlib('rexxreqtools.library', 0, -30)

entry = "Thread:" || msg.subject || "0A"x || msg.from

sel = rtezrequest(entry,"16|32|48|Forever|Kill thread (18)|Cancel","*PLONK*!",'rtez_defaultresponse=1')

if sel = 0 then exit

succ = OPEN(plonk, 'YAM:Yam2NN.killfile', 'a')
if succ = 0 then call open(plonk, 'YAM:Yam2NN.killfile', 'w')

entry =
if sel = 5 then do
    entry = 'Thread: "' || msg.subject || '"'
    expiry = 18;
    say entry
end
else do
    entry = msg.from
    if sel = 4 then do
        expiry = 'forever'
    end
    else do
        expiry = sel * 16
    end
end

entry = entry || "9"x || expiry

call writeln(plonk, entry)
call close(plonk)