author | Myhailo Danylenko <isbear@ukrpost.net> |
Sat, 21 Mar 2009 05:04:46 +0200 | |
changeset 43 | 7c22b1f2c6e5 |
parent 34 | 8206d7cb1447 |
child 58 | aa3376776cf2 |
permissions | -rw-r--r-- |
8 | 1 |
--- JOBS |
2 |
||
3 |
delayed_jobs = {} |
|
4 |
||
5 |
-- may fail |
|
33 | 6 |
dofile ( main.fileoption 'lua_jobs_file' ) |
8 | 7 |
|
8 |
function save_jobs () |
|
33 | 9 |
local h = io.open ( main.fileoption 'lua_jobs_file', "w" ) |
8 | 10 |
if not h then |
11 |
print ( 'Cannot open jobs file for writing!' ) |
|
12 |
return |
|
13 |
end |
|
14 |
h:write ( "-- This is autogenerated file, do not edit it manually\n\ndelayed_jobs = {\n" ); |
|
15 |
for jid, more in pairs ( delayed_jobs ) do |
|
16 |
h:write ( string.format ( "\t[%q] = {\n", jid ) ) |
|
17 |
for status, action in pairs ( more ) do |
|
18 |
if action then -- remove fired jobs |
|
19 |
h:write ( string.format ( "\t\t[%q] = %q,\n", status, action ) ) |
|
20 |
end |
|
21 |
end |
|
22 |
h:write ( "\t},\n" ) |
|
23 |
end |
|
24 |
h:write ( "}\n" ) |
|
25 |
h:close () |
|
26 |
end |
|
27 |
||
28 |
main.command ( 'delay', |
|
29 |
function ( args ) |
|
30 |
local who |
|
31 |
if args.t then |
|
32 |
who = args.t |
|
33 |
else |
|
34 |
who = main.current_buddy () |
|
35 |
end |
|
36 |
local stat = args[1] |
|
24 | 37 |
local mess = args[2] |
8 | 38 |
delayed_jobs[who] = { } |
24 | 39 |
delayed_jobs[who][stat] = 'say_to -q ' .. who .. ' ' .. mess |
34
8206d7cb1447
Args auto-parsing, use main.binding
Myhailo Danylenko <isbear@ukrpost.net>
parents:
33
diff
changeset
|
40 |
end, true ) |
8 | 41 |
|
42 |
main.command ( 'job', |
|
43 |
function ( args ) |
|
24 | 44 |
local action, jid, stat = args[1], args[2], args[3] |
8 | 45 |
if action == 'del' then |
46 |
delayed_jobs[jid][stat] = nil |
|
47 |
else |
|
24 | 48 |
local text = '' |
8 | 49 |
for jid, jobs in pairs ( delayed_jobs ) do |
50 |
for status, job in pairs ( jobs ) do |
|
24 | 51 |
text = text .. '\n - ' .. jid .. ' -> ' .. status .. ': ' .. job |
8 | 52 |
end |
53 |
end |
|
24 | 54 |
if text ~= '' then |
55 |
print ( 'List of jobs:' .. text ) |
|
56 |
else |
|
57 |
print ( 'No jobs' ) |
|
58 |
end |
|
8 | 59 |
end |
34
8206d7cb1447
Args auto-parsing, use main.binding
Myhailo Danylenko <isbear@ukrpost.net>
parents:
33
diff
changeset
|
60 |
end, true, { "del" } ) |
8 | 61 |
|
62 |
commands_help['delay'] = "[-t target_jid] status_letter message\n\nDelays sending a message to target jid (or current buddy) until it switches to specified status." |
|
63 |
commands_help['job'] = "[del jid status_letter]\n\nLists available jobs or deletes specified one." |
|
64 |
||
65 |
hooks_d['hook-status-change'].jobs = |
|
66 |
function ( args ) |
|
67 |
if delayed_jobs[args.jid] and delayed_jobs[args.jid][args.new_status] then |
|
68 |
main.run ( delayed_jobs[args.jid][args.new_status] ) |
|
69 |
delayed_jobs[args.jid][args.new_status] = nil |
|
70 |
end |
|
71 |
end |
|
72 |
||
73 |
hooks_d['hook-quit'].jobs = save_jobs |
|
74 |
||
75 |
||
76 |
-- vim: se ts=4: -- |