Context Navigation

source: commands.c @ b6cf72f

Visit:

release-1.10release-1.7release-1.8release-1.9

Last change on this file since b6cf72f was b6cf72f, checked in by David Benjamin <davidben@mit.edu>, 14 years ago
FINALLY! Add a popless:search command That took a while.
Property mode set to `100644`
File size: 82.9 KB

Line
1	#include <getopt.h>
2	#include <stdio.h>
3	#include <stdlib.h>
4	#include <string.h>
5	#include <unistd.h>
6	#include "owl.h"
7
8	/* fn is "char foo(int argc, const char const argv, const char buff)" */
9	#define OWLCMD_ARGS(name, fn, ctx, summary, usage, description) \
10	{ name, summary, usage, description, ctx, \
11	NULL, fn, NULL, NULL, NULL, NULL, NULL, NULL }
12
13	/* fn is "void foo(void)" */
14	#define OWLCMD_VOID(name, fn, ctx, summary, usage, description) \
15	{ name, summary, usage, description, ctx, \
16	NULL, NULL, fn, NULL, NULL, NULL, NULL, NULL }
17
18	/* fn is "void foo(int)" */
19	#define OWLCMD_INT(name, fn, ctx, summary, usage, description) \
20	{ name, summary, usage, description, ctx, \
21	NULL, NULL, NULL, fn, NULL, NULL, NULL, NULL }
22
23	#define OWLCMD_ALIAS(name, actualname) \
24	{ name, OWL_CMD_ALIAS_SUMMARY_PREFIX actualname, "", "", OWL_CTX_ANY, \
25	actualname, NULL, NULL, NULL, NULL, NULL, NULL, NULL }
26
27	/* fn is "char foo(void ctx, int argc, const char const argv, const char buff)" /
28	#define OWLCMD_ARGS_CTX(name, fn, ctx, summary, usage, description) \
29	{ name, summary, usage, description, ctx, \
30	NULL, NULL, NULL, NULL, ((char()(void,int,const charconst ,const char))fn), NULL, NULL, NULL }
31
32	/* fn is "void foo(void)" */
33	#define OWLCMD_VOID_CTX(name, fn, ctx, summary, usage, description) \
34	{ name, summary, usage, description, ctx, \
35	NULL, NULL, NULL, NULL, NULL, ((void()(void))(fn)), NULL, NULL }
36
37	/* fn is "void foo(int)" */
38	#define OWLCMD_INT_CTX(name, fn, ctx, summary, usage, description) \
39	{ name, summary, usage, description, ctx, \
40	NULL, NULL, NULL, NULL, NULL, NULL, ((void()(void,int))fn), NULL }
41
42
43	const owl_cmd commands_to_init[]
44	= {
45	OWLCMD_ARGS("zlog", owl_command_zlog, OWL_CTX_ANY,
46	"send a login or logout notification",
47	"zlog in [tty]\nzlog out",
48	"zlog in will send a login notification, zlog out will send a\n"
49	"logout notification. By default a login notification is sent\n"
50	"when owl is started and a logout notification is sent when owl\n"
51	"is exited. This behavior can be changed with the 'startuplogin'\n"
52	"and 'shutdownlogout' variables. If a tty is specified for zlog in\n"
53	"then the owl variable 'tty' will be set to that string, causing\n"
54	"it to be used as the zephyr location tty.\n"),
55
56	OWLCMD_VOID("quit", owl_command_quit, OWL_CTX_ANY,
57	"exit owl",
58	"",
59	"Exit owl and run any shutdown activities."),
60	OWLCMD_ALIAS("exit", "quit"),
61	OWLCMD_ALIAS("q", "quit"),
62
63	OWLCMD_ARGS("term", owl_command_term, OWL_CTX_ANY,
64	"control the terminal",
65	"term raise\n"
66	"term deiconify\n",
67	""),
68
69	OWLCMD_VOID("nop", owl_command_nop, OWL_CTX_ANY,
70	"do nothing",
71	"",
72	""),
73
74	OWLCMD_ARGS("start-command", owl_command_start_command, OWL_CTX_INTERACTIVE,
75	"prompts the user to enter a command",
76	"start-command [initial-value]",
77	"Initializes the command field to initial-value."),
78
79	OWLCMD_ARGS("alias", owl_command_alias, OWL_CTX_ANY,
80	"creates a command alias",
81	"alias <new_command> <old_command>",
82	"Creates a command alias from new_command to old_command.\n"
83	"Any arguments passed to <new_command> will be appended to\n"
84	"<old_command> before it is executed.\n"),
85
86	OWLCMD_ARGS("bindkey", owl_command_bindkey, OWL_CTX_ANY,
87	"creates a binding in a keymap",
88	"bindkey <keymap> <keyseq> command <command>",
89	"(Note: There is a literal word \"command\" between <keyseq>\n"
90	" and <command>.)\n"
91	"Binds a key sequence to a command within a keymap.\n"
92	"Use 'show keymaps' to see the existing keymaps.\n"
93	"Key sequences may be things like M-C-t or NPAGE.\n\n"
94	"Ex.: bindkey recv C-b command zwrite -c barnowl\n"
95	"Ex.: bindkey recv m command start-command zwrite -c my-class -i \n\n"
96	"SEE ALSO: unbindkey, start-command"),
97
98	OWLCMD_ARGS("unbindkey", owl_command_unbindkey, OWL_CTX_ANY,
99	"removes a binding in a keymap",
100	"bindkey <keymap> <keyseq>",
101	"Removes a binding of a key sequence within a keymap.\n"
102	"Use 'show keymaps' to see the existing keymaps.\n"
103	"Ex.: unbindkey recv H\n\n"
104	"SEE ALSO: bindkey"),
105
106	OWLCMD_ARGS("zwrite", owl_command_zwrite, OWL_CTX_INTERACTIVE,
107	"send a zephyr",
108	"zwrite [-n] [-C] [-c class] [-i instance] [-r realm] [-O opcode] [<user> ...] [-m <message...>]",
109	"Zwrite send a zephyr to the one or more users specified.\n\n"
110	"The following options are available:\n\n"
111	"-m Specifies a message to send without prompting.\n"
112	" Note that this does not yet log an outgoing message.\n"
113	" This must be the last argument.\n\n"
114	"-n Do not send a ping message.\n\n"
115	"-C If the message is sent to more than one user include a\n"
116	" \"cc:\" line in the text\n\n"
117	"-c class\n"
118	" Send to the specified zephyr class\n\n"
119	"-i instance\n"
120	" Send to the specified zephyr instance\n\n"
121	"-r realm\n"
122	" Send to a foreign realm\n"
123	"-O opcode\n"
124	" Send to the specified opcode\n"),
125
126	OWLCMD_ARGS("aimwrite", owl_command_aimwrite, OWL_CTX_INTERACTIVE,
127	"send an AIM message",
128	"aimwrite <user> [-m <message...>]",
129	"Send an aim message to a user.\n\n"
130	"The following options are available:\n\n"
131	"-m Specifies a message to send without prompting.\n"),
132
133	OWLCMD_ARGS("loopwrite", owl_command_loopwrite, OWL_CTX_INTERACTIVE,
134	"send a loopback message",
135	"loopwrite",
136	"Send a local message.\n"),
137
138	OWLCMD_ARGS("zcrypt", owl_command_zwrite, OWL_CTX_INTERACTIVE,
139	"send an encrypted zephyr",
140	"zcrypt [-n] [-C] [-c class] [-i instance] [-r realm] [-O opcode] [-m <message...>]\n",
141	"Behaves like zwrite but uses encryption. Not for use with\n"
142	"personal messages\n"),
143
144	OWLCMD_ARGS("reply", owl_command_reply, OWL_CTX_INTERACTIVE,
145	"reply to the current message",
146	"reply [-e] [ sender \| all \| zaway ]",
147	"If -e is specified, the zwrite command line is presented to\n"
148	"allow editing.\n\n"
149	"If 'sender' is specified, reply to the sender.\n\n"
150	"If 'all' or no args are specified, reply publicly to the\n"
151	"same class/instance for non-personal messages and to the\n"
152	"sender for personal messages.\n\n"
153	"If 'zaway' is specified, replies with a zaway message.\n\n"),
154
155	OWLCMD_ARGS("set", owl_command_set, OWL_CTX_ANY,
156	"set a variable value",
157	"set [-q] [<variable>] [<value>]\n"
158	"set",
159	"Set the named variable to the specified value. If no\n"
160	"arguments are given, print the value of all variables.\n"
161	"If the value is unspecified and the variable is a boolean, it will be\n"
162	"set to 'on'. If -q is used, set is silent and does not print a\n"
163	"message.\n"),
164
165	OWLCMD_ARGS("unset", owl_command_unset, OWL_CTX_ANY,
166	"unset a boolean variable value",
167	"unset [-q] <variable>\n"
168	"unset",
169	"Set the named boolean variable to off.\n"
170	"If -q is specified, is silent and doesn't print a message.\n"),
171
172	OWLCMD_ARGS("print", owl_command_print, OWL_CTX_ANY,
173	"print a variable value",
174	"print <variable>\n"
175	"print",
176	"Print the value of the named variable. If no arguments\n"
177	"are used print the value of all variables.\n"),
178
179	OWLCMD_ARGS("startup", owl_command_startup, OWL_CTX_ANY,
180	"run a command and set it to be run at every Owl startup",
181	"startup <commands> ...",
182	"Everything on the command line after the startup command\n"
183	"is executed as a normal owl command and is also placed in\n"
184	"a file so that the command is executed every time owl\n"
185	"is started"),
186
187	OWLCMD_ARGS("unstartup", owl_command_unstartup, OWL_CTX_ANY,
188	"remove a command from the list of those to be run at Owl startup",
189	"unstartup <commands> ...",
190	""),
191
192	OWLCMD_VOID("version", owl_command_version, OWL_CTX_ANY,
193	"print the version of the running owl", "", ""),
194
195	OWLCMD_ARGS("subscribe", owl_command_subscribe, OWL_CTX_ANY,
196	"subscribe to a zephyr class, instance, recipient",
197	"subscribe [-t] <class> [instance [recipient]]",
198	"Subscribe to the specified class and instance. If the\n"
199	"instance or recipient is not listed on the command\n"
200	"line they default to * (the wildcard recipient).\n"
201	"If the -t option is present the subscription will\n"
202	"only be temporary, i.e., it will not be written to\n"
203	"the subscription file and will therefore not be\n"
204	"present the next time owl is started.\n"),
205	OWLCMD_ALIAS("sub", "subscribe"),
206
207	OWLCMD_ARGS("unsubscribe", owl_command_unsubscribe, OWL_CTX_ANY,
208	"unsubscribe from a zephyr class, instance, recipient",
209	"unsubscribe [-t] <class> [instance [recipient]]",
210	"Unsubscribe from the specified class and instance. If the\n"
211	"instance or recipient is not listed on the command\n"
212	"line they default to * (the wildcard recipient).\n"
213	"If the -t option is present the unsubscription will\n"
214	"only be temporary, i.e., it will not be updated in\n"
215	"the subscription file and will therefore not be\n"
216	"in effect the next time owl is started.\n"),
217	OWLCMD_ALIAS("unsub", "unsubscribe"),
218
219	OWLCMD_VOID("unsuball", owl_command_unsuball, OWL_CTX_ANY,
220	"unsubscribe from all zephyrs", "", ""),
221
222	OWLCMD_VOID("getsubs", owl_command_getsubs, OWL_CTX_ANY,
223	"print all current subscriptions",
224	"getsubs",
225	"getsubs retrieves the current subscriptions from the server\n"
226	"and displays them.\n"),
227
228	OWLCMD_ARGS("dump", owl_command_dump, OWL_CTX_ANY,
229	"dump messages to a file",
230	"dump <filename>",
231	"Dump messages in current view to the named file."),
232
233	OWLCMD_ARGS("source", owl_command_source, OWL_CTX_ANY,
234	"execute owl commands from a file",
235	"source <filename>",
236	"Execute the owl commands in <filename>.\n"),
237
238	OWLCMD_ARGS("aim", owl_command_aim, OWL_CTX_INTERACTIVE,
239	"AIM specific commands",
240	"aim search <email>",
241	""),
242
243	OWLCMD_ARGS("addbuddy", owl_command_addbuddy, OWL_CTX_INTERACTIVE,
244	"add a buddy to a buddylist",
245	"addbuddy <protocol> <screenname>",
246	"Add the named buddy to your buddylist. <protocol> can be aim or zephyr\n"),
247
248	OWLCMD_ARGS("delbuddy", owl_command_delbuddy, OWL_CTX_INTERACTIVE,
249	"delete a buddy from a buddylist",
250	"delbuddy <protocol> <screenname>",
251	"Delete the named buddy from your buddylist. <protocol> can be aim or zephyr\n"),
252
253	OWLCMD_ARGS("join", owl_command_join, OWL_CTX_INTERACTIVE,
254	"join a chat group",
255	"join aim <groupname> [exchange]",
256	"Join the AIM chatroom with 'groupname'.\n"),
257
258	OWLCMD_ARGS("smartzpunt", owl_command_smartzpunt, OWL_CTX_INTERACTIVE,
259	"creates a zpunt based on the current message",
260	"smartzpunt [-i \| --instance]",
261	"Starts a zpunt command based on the current message's class\n"
262	"(and instance if -i is specified).\n"),
263
264	OWLCMD_ARGS("zpunt", owl_command_zpunt, OWL_CTX_ANY,
265	"suppress a given zephyr triplet",
266	"zpunt <class> <instance> [recipient]\n"
267	"zpunt <instance>",
268	"The zpunt command will suppress messages to the specified\n"
269	"zephyr triplet. In the second usage messages are suppressed\n"
270	"for class MESSAGE and the named instance.\n\n"
271	"SEE ALSO: zunpunt, show zpunts\n"),
272
273	OWLCMD_ARGS("zunpunt", owl_command_zunpunt, OWL_CTX_ANY,
274	"undo a previous zpunt",
275	"zunpunt <class> <instance> [recipient]\n"
276	"zunpunt <instance>",
277	"The zunpunt command will allow messages that were previously\n"
278	"suppressed to be received again.\n\n"
279	"SEE ALSO: zpunt, show zpunts\n"),
280
281	OWLCMD_ARGS("punt", owl_command_punt, OWL_CTX_ANY,
282	"suppress an arbitrary filter",
283	"punt <filter-text>",
284	"punt <filter-text (multiple words)>\n"
285	"The punt command will suppress messages to the specified\n"
286	"filter\n\n"
287	"SEE ALSO: unpunt, zpunt, show zpunts\n"),
288
289	OWLCMD_ARGS("unpunt", owl_command_unpunt, OWL_CTX_ANY,
290	"remove an entry from the punt list",
291	"zpunt <filter-text>\n"
292	"zpunt <filter-text>\n"
293	"zpunt <number>\n",
294	"The unpunt command will remove an entry from the puntlist.\n"
295	"The first two forms correspond to the first two forms of the :punt\n"
296	"command. The latter allows you to remove a specific entry from the\n"
297	"the list (see :show zpunts)\n\n"
298	"SEE ALSO: punt, zpunt, zunpunt, show zpunts\n"),
299
300	OWLCMD_VOID("info", owl_command_info, OWL_CTX_INTERACTIVE,
301	"display detailed information about the current message",
302	"", ""),
303
304	OWLCMD_ARGS("help", owl_command_help, OWL_CTX_INTERACTIVE,
305	"display help on using owl",
306	"help [command]", ""),
307
308	OWLCMD_ARGS("zlist", owl_command_zlist, OWL_CTX_INTERACTIVE,
309	"List users logged in",
310	"znol [-f file]",
311	"Print a znol-style listing of users logged in"),
312
313	OWLCMD_VOID("alist", owl_command_alist, OWL_CTX_INTERACTIVE,
314	"List AIM users logged in",
315	"alist",
316	"Print a listing of AIM users logged in"),
317
318	OWLCMD_VOID("blist", owl_command_blist, OWL_CTX_INTERACTIVE,
319	"List all buddies logged in",
320	"blist",
321	"Print a listing of buddies logged in, regardless of protocol."),
322
323	OWLCMD_VOID("toggle-oneline", owl_command_toggleoneline, OWL_CTX_INTERACTIVE,
324	"Toggle the style between oneline and the default style",
325	"toggle-oneline",
326	""),
327
328	OWLCMD_ARGS("recv:getshift", owl_command_get_shift, OWL_CTX_INTERACTIVE,
329	"gets position of receive window scrolling", "", ""),
330
331	OWLCMD_INT("recv:setshift", owl_command_set_shift, OWL_CTX_INTERACTIVE,
332	"scrolls receive window to specified position", "", ""),
333
334	OWLCMD_VOID("recv:pagedown", owl_function_mainwin_pagedown,
335	OWL_CTX_INTERACTIVE,
336	"scrolls down by a page", "", ""),
337
338	OWLCMD_VOID("recv:pageup", owl_function_mainwin_pageup, OWL_CTX_INTERACTIVE,
339	"scrolls up by a page", "", ""),
340
341	OWLCMD_VOID("recv:mark", owl_function_mark_message,
342	OWL_CTX_INTERACTIVE,
343	"mark the current message", "", ""),
344
345	OWLCMD_VOID("recv:swapmark", owl_function_swap_cur_marked,
346	OWL_CTX_INTERACTIVE,
347	"swap the positions of the pointer and the mark", "", ""),
348
349	OWLCMD_INT ("recv:scroll", owl_function_page_curmsg, OWL_CTX_INTERACTIVE,
350	"scrolls current message up or down",
351	"recv:scroll <numlines>",
352	"Scrolls the current message up or down by <numlines>.\n"
353	"Scrolls up if <numlines> is negative, else scrolls down.\n"),
354
355	OWLCMD_ARGS("next", owl_command_next, OWL_CTX_INTERACTIVE,
356	"move the pointer to the next message",
357	"recv:next [ --filter <name> ] [ --skip-deleted ] [ --last-if-none ]\n"
358	" [ --smart-filter \| --smart-filter-instance ]",
359	"Moves the pointer to the next message in the current view.\n"
360	"If --filter is specified, will only consider messages in\n"
361	"the filter <name>.\n"
362	"If --smart-filter or --smart-filter-instance is specified,\n"
363	"goes to the next message that is similar to the current message.\n"
364	"If --skip-deleted is specified, deleted messages will\n"
365	"be skipped.\n"
366	"If --last-if-none is specified, will stop at last message\n"
367	"in the view if no other suitable messages are found.\n"),
368	OWLCMD_ALIAS("recv:next", "next"),
369
370	OWLCMD_ARGS("prev", owl_command_prev, OWL_CTX_INTERACTIVE,
371	"move the pointer to the previous message",
372	"recv:prev [ --filter <name> ] [ --skip-deleted ] [ --first-if-none ]\n"
373	" [ --smart-filter \| --smart-filter-instance ]",
374	"Moves the pointer to the next message in the current view.\n"
375	"If --filter is specified, will only consider messages in\n"
376	"the filter <name>.\n"
377	"If --smart-filter or --smart-filter-instance is specified,\n"
378	"goes to the previous message that is similar to the current message.\n"
379	"If --skip-deleted is specified, deleted messages will\n"
380	"be skipped.\n"
381	"If --first-if-none is specified, will stop at first message\n"
382	"in the view if no other suitable messages are found.\n"),
383	OWLCMD_ALIAS("recv:prev", "prev"),
384
385	OWLCMD_ALIAS("recv:next-notdel", "recv:next --skip-deleted --last-if-none"),
386	OWLCMD_ALIAS("next-notdel", "recv:next --skip-deleted --last-if-none"),
387
388	OWLCMD_ALIAS("recv:prev-notdel", "recv:prev --skip-deleted --first-if-none"),
389	OWLCMD_ALIAS("prev-notdel", "recv:prev --skip-deleted --first-if-none"),
390
391	OWLCMD_ALIAS("recv:next-personal", "recv:next --filter personal"),
392
393	OWLCMD_ALIAS("recv:prev-personal", "recv:prev --filter personal"),
394
395	OWLCMD_VOID("first", owl_command_first, OWL_CTX_INTERACTIVE,
396	"move the pointer to the first message", "", ""),
397	OWLCMD_ALIAS("recv:first", "first"),
398
399	OWLCMD_VOID("last", owl_command_last, OWL_CTX_INTERACTIVE,
400	"move the pointer to the last message", "",
401	"Moves the pointer to the last message in the view.\n"
402	"If we are already at the last message in the view,\n"
403	"blanks the screen and moves just past the end of the view\n"
404	"so that new messages will appear starting at the top\n"
405	"of the screen.\n"),
406	OWLCMD_ALIAS("recv:last", "last"),
407
408	OWLCMD_VOID("expunge", owl_command_expunge, OWL_CTX_INTERACTIVE,
409	"remove all messages marked for deletion", "", ""),
410
411	OWLCMD_VOID("resize", owl_command_resize, OWL_CTX_ANY,
412	"resize the window to the current screen size", "", ""),
413
414	OWLCMD_VOID("redisplay", owl_command_redisplay, OWL_CTX_ANY,
415	"redraw the entire window", "", ""),
416
417	OWLCMD_VOID("suspend", owl_command_suspend, OWL_CTX_ANY,
418	"suspend owl", "", ""),
419
420	OWLCMD_ARGS("echo", owl_command_echo, OWL_CTX_ANY,
421	"pops up a message in popup window",
422	"echo [args .. ]\n\n", ""),
423
424	OWLCMD_ARGS("exec", owl_command_exec, OWL_CTX_ANY,
425	"run a command from the shell",
426	"exec [args .. ]", ""),
427
428	OWLCMD_ARGS("aexec", owl_command_aexec, OWL_CTX_INTERACTIVE,
429	"run a command from the shell and display in an admin message",
430	"aexec [args .. ]", ""),
431
432	OWLCMD_ARGS("pexec", owl_command_pexec, OWL_CTX_INTERACTIVE,
433	"run a command from the shell and display in a popup window",
434	"pexec [args .. ]", ""),
435
436	OWLCMD_ARGS("perl", owl_command_perl, OWL_CTX_ANY,
437	"run a perl expression",
438	"perl [args .. ]", ""),
439
440	OWLCMD_ARGS("aperl", owl_command_aperl, OWL_CTX_INTERACTIVE,
441	"run a perl expression and display in an admin message",
442	"aperl [args .. ]", ""),
443
444	OWLCMD_ARGS("pperl", owl_command_pperl, OWL_CTX_INTERACTIVE,
445	"run a perl expression and display in a popup window",
446	"pperl [args .. ]", ""),
447
448	OWLCMD_ARGS("multi", owl_command_multi, OWL_CTX_ANY,
449	"runs multiple ;-separated commands",
450	"multi <command1> ( ; <command2> )*\n",
451	"Runs multiple semicolon-separated commands in order.\n"
452	"Note quoting isn't supported here yet.\n"
453	"If you want to do something fancy, use perl.\n"),
454
455	OWLCMD_ARGS("(", owl_command_multi, OWL_CTX_ANY,
456	"runs multiple ;-separated commands",
457	"'(' <command1> ( ; <command2> )* ')'\n",
458	"Runs multiple semicolon-separated commands in order.\n"
459	"You must have a space before the final ')'\n"
460	"Note quoting isn't supported here yet.\n"
461	"If you want to do something fancy, use perl.\n"),
462
463	OWLCMD_VOID("pop-message", owl_command_pop_message, OWL_CTX_RECWIN,
464	"pops up a message in a window", "", ""),
465
466	OWLCMD_ARGS("zaway", owl_command_zaway, OWL_CTX_INTERACTIVE,
467	"Set, enable or disable zephyr away message",
468	"zaway [ on \| off \| toggle ]\n"
469	"zaway <message>",
470	"Turn on or off a zaway message. If 'message' is\n"
471	"specified turn on zaway with that message, otherwise\n"
472	"use the default.\n"),
473
474	OWLCMD_ARGS("aaway", owl_command_aaway, OWL_CTX_INTERACTIVE,
475	"Set, enable or disable AIM away message",
476	"aaway [ on \| off \| toggle ]\n"
477	"aaway <message>",
478	"Turn on or off the AIM away message. If 'message' is\n"
479	"specified turn on aaway with that message, otherwise\n"
480	"use the default.\n"),
481
482	OWLCMD_ARGS("away", owl_command_away, OWL_CTX_INTERACTIVE,
483	"Set, enable or disable both AIM and zephyr away messages",
484	"away [ on \| off \| toggle ]\n"
485	"away <message>",
486	"Turn on or off the AIM and zephyr away message. If\n"
487	"'message' is specified turn them on with that message,\n"
488	"otherwise use the default.\n"
489	"\n"
490	"This command really just runs the 'aaway' and 'zaway'\n"
491	"commands together\n"
492	"\n"
493	"SEE ALSO: aaway, zaway"),
494
495	OWLCMD_ARGS("load-subs", owl_command_loadsubs, OWL_CTX_ANY,
496	"load subscriptions from a file",
497	"load-subs <file>\n", ""),
498
499	OWLCMD_ARGS("loadsubs", owl_command_loadsubs, OWL_CTX_ANY,
500	"load subscriptions from a file",
501	"loadsubs <file>\n", ""),
502
503	OWLCMD_ARGS("loadloginsubs", owl_command_loadloginsubs, OWL_CTX_ANY,
504	"load login subscriptions from a file",
505	"loadloginsubs <file>\n",
506	"The file should contain a list of usernames, one per line."),
507
508	OWLCMD_VOID("about", owl_command_about, OWL_CTX_INTERACTIVE,
509	"print information about owl", "", ""),
510
511	OWLCMD_VOID("status", owl_command_status, OWL_CTX_ANY,
512	"print status information about the running owl", "", ""),
513
514	OWLCMD_ARGS("zlocate", owl_command_zlocate, OWL_CTX_INTERACTIVE,
515	"locate a user",
516	"zlocate [-d] <user> ...",
517	"Performs a zlocate on one ore more users and puts the result\n"
518	"int a popwin. If -d is specified, does not authenticate\n"
519	"the lookup request.\n"),
520
521	OWLCMD_ARGS("filter", owl_command_filter, OWL_CTX_ANY,
522	"create a message filter",
523	"filter <name> [ -c fgcolor ] [ -b bgcolor ] [ <expression> ... ]",
524	"The filter command creates a filter with the specified name,\n"
525	"or if one already exists it is replaced. Example filter\n"
526	"syntax would be:\n\n"
527	" filter myfilter -c red ( class ^foobar$ ) or ( class ^quux$ and instance ^bar$ )\n\n"
528	"Valid matching fields are:\n"
529	" sender - sender\n"
530	" recipient - recipient\n"
531	" class - zephyr class name\n"
532	" instance - zephyr instance name\n"
533	" opcode - zephyr opcode\n"
534	" realm - zephyr realm\n"
535	" body - message body\n"
536	" hostname - hostname of sending host\n"
537	" type - message type (zephyr, aim, admin)\n"
538	" direction - either 'in' 'out' or 'none'\n"
539	" login - either 'login' 'logout' or 'none'\n"
540	"Also you may match on the validity of another filter:\n"
541	" filter <filtername>\n"
542	"Also you may pass the message to a perl function returning 0 or 1,\n"
543	"where 1 indicates that the function matches the filter:\n"
544	" perl <subname>\n"
545	"Valid operators are:\n"
546	" and\n"
547	" or\n"
548	" not\n"
549	"And additionally you may use the static values:\n"
550	" true\n"
551	" false\n"
552	"Spaces must be present before and after parentheses. If the\n"
553	"optional color arguments are used they specifies the colors that\n"
554	"messages matching this filter should be displayed in.\n\n"
555	"SEE ALSO: view, viewclass, viewuser\n"),
556
557	OWLCMD_ARGS("colorview", owl_command_colorview, OWL_CTX_INTERACTIVE,
558	"change the colors on the current filter",
559	"colorview <fgcolor> [<bgcolor>]",
560	"The colors of messages in the current filter will be changed\n"
561	"to <fgcolor>,<bgcolor>. Use the 'show colors' command for a list\n"
562	"of valid colors.\n\n"
563	"SEE ALSO: 'show colors'\n"),
564
565	OWLCMD_ARGS("colorclass", owl_command_colorclass, OWL_CTX_INTERACTIVE,
566	"create a filter to color messages of the given class name",
567	"colorclass <class> <fgcolor> [<bgcolor>]",
568	"A filter will be created to color messages in <class>"
569	"in <fgcolor>,<bgcolor>. Use the 'show colors' command for a list\n"
570	"of valid colors.\n\n"
571	"SEE ALSO: 'show colors'\n"),
572
573	OWLCMD_ARGS("view", owl_command_view, OWL_CTX_INTERACTIVE,
574	"view messages matching a filter",
575	"view [<viewname>] [-f <filter> \| --home \| -r ] [-s <style>]\n"
576	"view <filter>\n"
577	"view -d <expression>\n"
578	"view --home",
579	"The view command sets information associated with a particular view,\n"
580	"such as view's filter or style. In the first general usage listed\n"
581	"above <viewname> is the name of the view to be changed. If not\n"
582	"specified the default view 'main' will be used. A filter can be set\n"
583	"for the view by listing a named filter after the -f argument. If\n"
584	"the --home argument is used the filter will be set to the filter named\n"
585	"by the\n 'view_home' variable. The style can be set by listing the\n"
586	"name style after the -s argument.\n"
587	"\n"
588	"The other usages listed above are abbreviated forms that simply set\n"
589	"the filter of the current view. The -d option allows you to write a\n"
590	"filter expression that will be dynamically created by owl and then\n"
591	"applied as the view's filter\n"
592	"SEE ALSO: filter, viewclass, viewuser\n"),
593
594	OWLCMD_ARGS("smartnarrow", owl_command_smartnarrow, OWL_CTX_INTERACTIVE,
595	"view only messages similar to the current message",
596	"smartnarrow [-i \| --instance] [-r \| --related]",
597	"If the curmsg is a personal message narrow\n"
598	" to the conversation with that user.\n"
599	"If the curmsg is a <MESSAGE, foo, *>\n"
600	" message, narrow to the instance.\n"
601	"If the curmsg is a class message, narrow\n"
602	" to the class.\n"
603	"If the curmsg is a class message and '-i' is specified\n"
604	" then narrow to the class and instance.\n"
605	"If '-r' or '--related' is specified, behave as though the\n"
606	" 'narrow-related' variable was inverted."),
607
608	OWLCMD_ARGS("smartfilter", owl_command_smartfilter, OWL_CTX_INTERACTIVE,
609	"returns the name of a filter based on the current message",
610	"smartfilter [-i \| --instance]",
611	"If the curmsg is a personal message, the filter is\n"
612	" the conversation with that user.\n"
613	"If the curmsg is a <MESSAGE, foo, *>\n"
614	" message, the filter is to that instance.\n"
615	"If the curmsg is a class message, the filter is that class.\n"
616	"If the curmsg is a class message and '-i' is specified\n"
617	" the filter is to that class and instance.\n"),
618
619	OWLCMD_ARGS("viewclass", owl_command_viewclass, OWL_CTX_INTERACTIVE,
620	"view messages matching a particular class",
621	"viewclass <class>",
622	"The viewclass command will automatically create a filter\n"
623	"matching the specified class and switch the current view\n"
624	"to it.\n\n"
625	"SEE ALSO: filter, view, viewuser\n"),
626	OWLCMD_ALIAS("vc", "viewclass"),
627
628	OWLCMD_ARGS("viewuser", owl_command_viewuser, OWL_CTX_INTERACTIVE,
629	"view messages matching a particular user",
630	"viewuser <user>",
631	"The viewuser command will automatically create a filter\n"
632	"matching the specified user and switch the current\n"
633	"view to it.\n\n"
634	"SEE ALSO: filter, view, viewclass\n"),
635	OWLCMD_ALIAS("vu", "viewuser"),
636	OWLCMD_ALIAS("viewperson", "viewuser"),
637	OWLCMD_ALIAS("vp", "viewuser"),
638
639	OWLCMD_ARGS("show", owl_command_show, OWL_CTX_INTERACTIVE,
640	"show information",
641	"show colors\n"
642	"show commands\n"
643	"show command <command>\n"
644	"show errors\n"
645	"show filters\n"
646	"show filter <filter>\n"
647	"show keymaps\n"
648	"show keymap <keymap>\n"
649	"show license\n"
650	"show quickstart\n"
651	"show startup\n"
652	"show status\n"
653	"show styles\n"
654	"show subscriptions / show subs\n"
655	"show terminal\n"
656	"show variables\n"
657	"show variable <variable>\n"
658	"show version\n"
659	"show view [<view>]\n"
660	"show zpunts\n",
661
662	"Show colors will display a list of valid colors for the\n"
663	" terminal."
664	"Show filters will list the names of all filters.\n"
665	"Show filter <filter> will show the definition of a particular\n"
666	" filter.\n\n"
667	"Show startup will display the custom startup config\n\n"
668	"Show zpunts will show the active zpunt filters.\n\n"
669	"Show keymaps will list the names of all keymaps.\n"
670	"Show keymap <keymap> will show the key bindings in a keymap.\n\n"
671	"Show commands will list the names of all keymaps.\n"
672	"Show command <command> will provide information about a command.\n\n"
673	"Show styles will list the names of all styles available\n"
674	"for formatting messages.\n\n"
675	"Show variables will list the names of all variables.\n\n"
676	"Show errors will show a list of errors encountered by Owl.\n\n"
677	"SEE ALSO: filter, view, alias, bindkey, help\n"),
678
679	OWLCMD_ARGS("delete", owl_command_delete, OWL_CTX_INTERACTIVE,
680	"mark a message for deletion",
681	"delete [ -id msgid ] [ --no-move ]\n"
682	"delete view\n"
683	"delete trash",
684	"If no message id is specified the current message is marked\n"
685	"for deletion. Otherwise the message with the given message\n"
686	"id is marked for deletion.\n"
687	"If '--no-move' is specified, don't move after deletion.\n"
688	"If 'trash' is specified, deletes all trash/auto messages\n"
689	"in the current view.\n"
690	"If 'view' is specified, deletes all messages in the\n"
691	"current view.\n"),
692	OWLCMD_ALIAS("del", "delete"),
693
694	OWLCMD_ARGS("undelete", owl_command_undelete, OWL_CTX_INTERACTIVE,
695	"unmark a message for deletion",
696	"undelete [ -id msgid ] [ --no-move ]\n"
697	"undelete view",
698	"If no message id is specified the current message is\n"
699	"unmarked for deletion. Otherwise the message with the\n"
700	"given message id is unmarked for deletion.\n"
701	"If '--no-move' is specified, don't move after deletion.\n"
702	"If 'view' is specified, undeletes all messages\n"
703	"in the current view.\n"),
704	OWLCMD_ALIAS("undel", "undelete"),
705
706	OWLCMD_VOID("beep", owl_command_beep, OWL_CTX_ANY,
707	"ring the terminal bell",
708	"beep",
709	"Beep will ring the terminal bell.\n"
710	"If the variable 'bell' has been\n"
711	"set to 'off' this command does nothing.\n"),
712
713	OWLCMD_ARGS("debug", owl_command_debug, OWL_CTX_ANY,
714	"prints a message into the debug log",
715	"debug <message>", ""),
716
717	OWLCMD_ARGS("getview", owl_command_getview, OWL_CTX_INTERACTIVE,
718	"returns the name of the filter for the current view",
719	"", ""),
720
721	OWLCMD_ARGS("getvar", owl_command_getvar, OWL_CTX_INTERACTIVE,
722	"returns the value of a variable",
723	"getvar <varname>", ""),
724
725	OWLCMD_ARGS("getfilter", owl_command_getfilter, OWL_CTX_INTERACTIVE,
726	"returns the definition of a filter",
727	"getfilter <filtername>", ""),
728
729	OWLCMD_ARGS("getstyle", owl_command_getstyle, OWL_CTX_INTERACTIVE,
730	"returns the name of the style for the current view",
731	"", ""),
732
733	OWLCMD_ARGS("search", owl_command_search, OWL_CTX_INTERACTIVE,
734	"search messages for a particular string",
735	"search [-r] [<string>]",
736	"The search command will find messages that contain the\n"
737	"specified string and move the cursor there. If no string\n"
738	"argument is supplied then the previous one is used. By\n"
739	"default searches are done forwards; if -r is used the search\n"
740	"is performed backwards"),
741
742	OWLCMD_ARGS("setsearch", owl_command_setsearch, OWL_CTX_INTERACTIVE,
743	"set the search highlight string without searching",
744	"setsearch <string>",
745	"The setsearch command highlights all occurrences of its\n"
746	"argument and makes it the default argument for future\n"
747	"search commands, but does not move the cursor. With\n"
748	"no argument, it makes search highlighting inactive."),
749
750	OWLCMD_ARGS("aimlogin", owl_command_aimlogin, OWL_CTX_ANY,
751	"login to an AIM account",
752	"aimlogin <screenname> [<password>]\n",
753	""),
754
755	OWLCMD_ARGS("aimlogout", owl_command_aimlogout, OWL_CTX_ANY,
756	"logout from AIM",
757	"aimlogout\n",
758	""),
759
760	OWLCMD_ARGS("error", owl_command_error, OWL_CTX_ANY,
761	"Display an error message",
762	"error <message>",
763	""),
764
765	OWLCMD_ARGS("message", owl_command_message, OWL_CTX_ANY,
766	"Display an informative message",
767	"message <message>",
768	""),
769
770	OWLCMD_VOID("yes", owl_command_yes, OWL_CTX_RECV,
771	"Answer yes to a question",
772	"yes",
773	""),
774
775	OWLCMD_VOID("no", owl_command_no, OWL_CTX_RECV,
776	"Answer no to a question",
777	"no",
778	""),
779
780	/****************************************************************/
781	/*********************** EDIT-SPECIFIC **********************/
782	/****************************************************************/
783
784	OWLCMD_VOID_CTX("edit:move-next-word", owl_editwin_move_to_nextword,
785	OWL_CTX_EDIT,
786	"moves cursor forward a word",
787	"", ""),
788
789	OWLCMD_VOID_CTX("edit:move-prev-word", owl_editwin_move_to_previousword,
790	OWL_CTX_EDIT,
791	"moves cursor backwards a word",
792	"", ""),
793
794	OWLCMD_VOID_CTX("edit:move-to-buffer-start", owl_editwin_move_to_top,
795	OWL_CTX_EDIT,
796	"moves cursor to the top left (start) of the buffer",
797	"", ""),
798
799	OWLCMD_VOID_CTX("edit:move-to-buffer-end", owl_editwin_move_to_end,
800	OWL_CTX_EDIT,
801	"moves cursor to the bottom right (end) of the buffer",
802	"", ""),
803
804	OWLCMD_VOID_CTX("edit:move-to-line-end", owl_editwin_move_to_line_end,
805	OWL_CTX_EDIT,
806	"moves cursor to the end of the line",
807	"", ""),
808
809	OWLCMD_VOID_CTX("edit:move-to-line-start", owl_editwin_move_to_line_start,
810	OWL_CTX_EDIT,
811	"moves cursor to the beginning of the line",
812	"", ""),
813
814	OWLCMD_VOID_CTX("edit:move-left", owl_editwin_key_left,
815	OWL_CTX_EDIT,
816	"moves the cursor left by a character",
817	"", ""),
818
819	OWLCMD_VOID_CTX("edit:move-right", owl_editwin_key_right,
820	OWL_CTX_EDIT,
821	"moves the cursor right by a character",
822	"", ""),
823
824	OWLCMD_VOID_CTX("edit:delete-next-word", owl_editwin_delete_nextword,
825	OWL_CTX_EDIT,
826	"deletes the word to the right of the cursor",
827	"", ""),
828
829	OWLCMD_VOID_CTX("edit:delete-prev-word", owl_editwin_delete_previousword,
830	OWL_CTX_EDIT,
831	"deletes the word to the left of the cursor",
832	"", ""),
833
834	OWLCMD_VOID_CTX("edit:delete-prev-char", owl_editwin_backspace,
835	OWL_CTX_EDIT,
836	"deletes the character to the left of the cursor",
837	"", ""),
838
839	OWLCMD_VOID_CTX("edit:delete-next-char", owl_editwin_delete_char,
840	OWL_CTX_EDIT,
841	"deletes the character to the right of the cursor",
842	"", ""),
843
844	OWLCMD_VOID_CTX("edit:delete-to-line-end", owl_editwin_delete_to_endofline,
845	OWL_CTX_EDIT,
846	"deletes from the cursor to the end of the line",
847	"", ""),
848
849	OWLCMD_VOID_CTX("edit:delete-all", owl_editwin_clear,
850	OWL_CTX_EDIT,
851	"deletes all of the contents of the buffer",
852	"", ""),
853
854	OWLCMD_VOID_CTX("edit:transpose-chars", owl_editwin_transpose_chars,
855	OWL_CTX_EDIT,
856	"Interchange characters around point, moving forward one character.",
857	"", ""),
858
859	OWLCMD_VOID_CTX("edit:fill-paragraph", owl_editwin_fill_paragraph,
860	OWL_CTX_EDIT,
861	"fills the current paragraph to line-wrap well",
862	"", ""),
863
864	OWLCMD_VOID_CTX("edit:recenter", owl_editwin_recenter,
865	OWL_CTX_EDIT,
866	"recenters the buffer",
867	"", ""),
868
869	OWLCMD_ARGS_CTX("edit:insert-text", owl_command_edit_insert_text,
870	OWL_CTX_EDIT,
871	"inserts text into the buffer",
872	"edit:insert-text <text>", ""),
873
874	OWLCMD_VOID_CTX("edit:cancel", owl_command_edit_cancel,
875	OWL_CTX_EDIT,
876	"cancels the current command",
877	"", ""),
878
879	OWLCMD_VOID_CTX("edit:history-next", owl_command_edit_history_next,
880	OWL_CTX_EDIT,
881	"replaces the text with the next history",
882	"", ""),
883
884	OWLCMD_VOID_CTX("edit:history-prev", owl_command_edit_history_prev,
885	OWL_CTX_EDIT,
886	"replaces the text with the previous history",
887	"", ""),
888
889	OWLCMD_VOID_CTX("edit:set-mark", owl_editwin_set_mark,
890	OWL_CTX_EDIT,
891	"sets the mark",
892	"", ""),
893
894	OWLCMD_VOID_CTX("edit:exchange-point-and-mark", owl_editwin_exchange_point_and_mark,
895	OWL_CTX_EDIT,
896	"exchanges the point and the mark",
897	"", ""),
898
899	OWLCMD_VOID_CTX("edit:copy-region-as-kill", owl_editwin_copy_region_as_kill,
900	OWL_CTX_EDIT,
901	"copy the text between the point and the mark",
902	"", ""),
903
904	OWLCMD_VOID_CTX("edit:kill-region", owl_editwin_kill_region,
905	OWL_CTX_EDIT,
906	"kill text between the point and the mark",
907	"", ""),
908
909	OWLCMD_VOID_CTX("edit:yank", owl_editwin_yank,
910	OWL_CTX_EDIT,
911	"insert the current text from the kill buffer",
912	"", ""),
913
914	OWLCMD_ALIAS ("editline:done", "edit:done"),
915	OWLCMD_ALIAS ("editresponse:done", "edit:done"),
916
917	OWLCMD_VOID_CTX("edit:move-up-line", owl_editwin_key_up,
918	OWL_CTX_EDITMULTI,
919	"moves the cursor up one line",
920	"", ""),
921
922	OWLCMD_VOID_CTX("edit:move-down-line", owl_editwin_key_down,
923	OWL_CTX_EDITMULTI,
924	"moves the cursor down one line",
925	"", ""),
926
927	OWLCMD_VOID_CTX("edit:done", owl_command_edit_done,
928	OWL_CTX_EDIT,
929	"Finishes entering text in the editwin.",
930	"", ""),
931
932	OWLCMD_VOID_CTX("edit:done-or-delete", owl_command_edit_done_or_delete,
933	OWL_CTX_EDITMULTI,
934	"completes the command, but only if at end of message",
935	"",
936	"If only whitespace is to the right of the cursor,\n"
937	"runs 'edit:done'.\n"\
938	"Otherwise runs 'edit:delete-next-char'\n"),
939
940	OWLCMD_VOID_CTX("edit:forward-paragraph", owl_editwin_forward_paragraph,
941	OWL_CTX_EDITMULTI,
942	"Move forward to end of paragraph.",
943	"",
944	"Move the point to the end of the current paragraph"),
945
946	OWLCMD_VOID_CTX("edit:backward-paragraph", owl_editwin_backward_paragraph,
947	OWL_CTX_EDITMULTI,
948	"Move backward to the start of paragraph.",
949	"",
950	"Move the point to the start of the current paragraph"),
951
952	/****************************************************************/
953	/******************** POPLESS-SPECIFIC **********************/
954	/****************************************************************/
955
956	OWLCMD_VOID_CTX("popless:scroll-down-page", owl_viewwin_pagedown,
957	OWL_CTX_POPLESS,
958	"scrolls down one page",
959	"", ""),
960
961	OWLCMD_VOID_CTX("popless:scroll-down-line", owl_viewwin_linedown,
962	OWL_CTX_POPLESS,
963	"scrolls down one line",
964	"", ""),
965
966	OWLCMD_VOID_CTX("popless:scroll-up-page", owl_viewwin_pageup,
967	OWL_CTX_POPLESS,
968	"scrolls up one page",
969	"", ""),
970
971	OWLCMD_VOID_CTX("popless:scroll-up-line", owl_viewwin_lineup,
972	OWL_CTX_POPLESS,
973	"scrolls up one line",
974	"", ""),
975
976	OWLCMD_VOID_CTX("popless:scroll-to-top", owl_viewwin_top,
977	OWL_CTX_POPLESS,
978	"scrolls to the top of the buffer",
979	"", ""),
980
981	OWLCMD_VOID_CTX("popless:scroll-to-bottom", owl_viewwin_bottom,
982	OWL_CTX_POPLESS,
983	"scrolls to the bottom of the buffer",
984	"", ""),
985
986	OWLCMD_INT_CTX ("popless:scroll-right", owl_viewwin_right,
987	OWL_CTX_POPLESS,
988	"scrolls right in the buffer",
989	"popless:scroll-right <num-chars>", ""),
990
991	OWLCMD_INT_CTX ("popless:scroll-left", owl_viewwin_left,
992	OWL_CTX_POPLESS,
993	"scrolls left in the buffer",
994	"popless:scroll-left <num-chars>", ""),
995
996	OWLCMD_VOID_CTX("popless:quit", owl_command_popless_quit,
997	OWL_CTX_POPLESS,
998	"exits the popless window",
999	"", ""),
1000
1001	OWLCMD_ARGS_CTX("popless:start-command", owl_viewwin_start_command,
1002	OWL_CTX_POPLESS,
1003	"starts a command line in the popless",
1004	"popless:start-command [initial-value]",
1005	"Initializes the command field to initial-value"),
1006
1007	OWLCMD_ARGS_CTX("popless:search", owl_viewwin_command_search, OWL_CTX_POPLESS,
1008	"search lines for a particular string",
1009	"popless:search [-r] [<string>]",
1010	"The popless:search command will find lines that contain the\n"
1011	"specified string and scroll the popwin there. If no string\n"
1012	"argument is supplied then the previous one is used. By\n"
1013	"default searches are done forwards; if -r is used the search\n"
1014	"is performed backwards"),
1015
1016	OWLCMD_ALIAS("webzephyr", "zwrite daemon.webzephyr -c webzephyr -i"),
1017
1018	/* This line MUST be last! */
1019	{ NULL, NULL, NULL, NULL, 0, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL }
1020
1021	};
1022
1023	void owl_command_info(void)
1024	{
1025	owl_function_info();
1026	}
1027
1028	void owl_command_nop(void)
1029	{
1030	}
1031
1032	char owl_command_help(int argc, const char const argv, const char buff)
1033	{
1034	if (argc!=2) {
1035	owl_help();
1036	return NULL;
1037	}
1038
1039	owl_function_help_for_command(argv[1]);
1040	return NULL;
1041	}
1042
1043	char owl_command_zlist(int argc, const char const argv, const char buff)
1044	{
1045	const char *file=NULL;
1046
1047	argc--;
1048	argv++;
1049	while (argc) {
1050	if (!strcmp(argv[0], "-f")) {
1051	if (argc==1) {
1052	owl_function_makemsg("zlist: -f needs an argument");
1053	return(NULL);
1054	}
1055	file=argv[1];
1056	argc-=2;
1057	argv+=2;
1058	} else {
1059	owl_function_makemsg("zlist: unknown argument");
1060	return(NULL);
1061	}
1062	}
1063	owl_function_buddylist(0, 1, file);
1064	return(NULL);
1065	}
1066
1067	void owl_command_alist(void)
1068	{
1069	owl_function_buddylist(1, 0, NULL);
1070	}
1071
1072	void owl_command_blist(void)
1073	{
1074	owl_function_buddylist(1, 1, NULL);
1075	}
1076
1077	void owl_command_toggleoneline(void)
1078	{
1079	owl_function_toggleoneline();
1080	}
1081
1082	void owl_command_about(void)
1083	{
1084	owl_function_about();
1085	}
1086
1087	void owl_command_version(void)
1088	{
1089	owl_function_makemsg("BarnOwl version %s", OWL_VERSION_STRING);
1090	}
1091
1092	char owl_command_aim(int argc, const char const argv, const char buff)
1093	{
1094	if (argc<2) {
1095	owl_function_makemsg("not enough arguments to aim command");
1096	return(NULL);
1097	}
1098
1099	if (!strcmp(argv[1], "search")) {
1100	if (argc!=3) {
1101	owl_function_makemsg("not enough arguments to aim search command");
1102	return(NULL);
1103	}
1104	owl_aim_search(argv[2]);
1105	} else {
1106	owl_function_makemsg("unknown subcommand '%s' for aim command", argv[1]);
1107	return(NULL);
1108	}
1109	return(NULL);
1110	}
1111
1112	char owl_command_addbuddy(int argc, const char const argv, const char buff)
1113	{
1114	if (argc!=3) {
1115	owl_function_makemsg("usage: addbuddy <protocol> <buddyname>");
1116	return(NULL);
1117	}
1118
1119	if (!strcasecmp(argv[1], "aim")) {
1120	if (!owl_global_is_aimloggedin(&g)) {
1121	owl_function_makemsg("addbuddy: You must be logged into aim to use this command.");
1122	return(NULL);
1123	}
1124	/*
1125	owl_function_makemsg("This function is not yet operational. Stay tuned.");
1126	return(NULL);
1127	*/
1128	owl_aim_addbuddy(argv[2]);
1129	owl_function_makemsg("%s added as AIM buddy for %s", argv[2], owl_global_get_aim_screenname(&g));
1130	} else if (!strcasecmp(argv[1], "zephyr")) {
1131	owl_zephyr_addbuddy(argv[2]);
1132	owl_function_makemsg("%s added as zephyr buddy", argv[2]);
1133	} else {
1134	owl_function_makemsg("addbuddy: currently the only supported protocols are 'zephyr' and 'aim'");
1135	}
1136
1137	return(NULL);
1138	}
1139
1140	char owl_command_delbuddy(int argc, const char const argv, const char buff)
1141	{
1142	if (argc!=3) {
1143	owl_function_makemsg("usage: delbuddy <protocol> <buddyname>");
1144	return(NULL);
1145	}
1146
1147	if (!strcasecmp(argv[1], "aim")) {
1148	if (!owl_global_is_aimloggedin(&g)) {
1149	owl_function_makemsg("delbuddy: You must be logged into aim to use this command.");
1150	return(NULL);
1151	}
1152	owl_aim_delbuddy(argv[2]);
1153	owl_function_makemsg("%s deleted as AIM buddy for %s", argv[2], owl_global_get_aim_screenname(&g));
1154	} else if (!strcasecmp(argv[1], "zephyr")) {
1155	owl_zephyr_delbuddy(argv[2]);
1156	owl_function_makemsg("%s deleted as zephyr buddy", argv[2]);
1157	} else {
1158	owl_function_makemsg("delbuddy: currently the only supported protocols are 'zephyr' and 'aim'");
1159	}
1160
1161	return(NULL);
1162	}
1163
1164	char owl_command_join(int argc, const char const argv, const char buff)
1165	{
1166	if (argc!=3 && argc!=4) {
1167	owl_function_makemsg("usage: join <protocol> <buddyname> [exchange]");
1168	return(NULL);
1169	}
1170
1171	if (!strcasecmp(argv[1], "aim")) {
1172	if (!owl_global_is_aimloggedin(&g)) {
1173	owl_function_makemsg("join aim: You must be logged into aim to use this command.");
1174	return(NULL);
1175	}
1176	if (argc==3) {
1177	owl_aim_chat_join(argv[2], 4);
1178	} else {
1179	owl_aim_chat_join(argv[2], atoi(argv[3]));
1180	}
1181	/* owl_function_makemsg("%s deleted as AIM buddy for %s", argv[2], owl_global_get_aim_screenname(&g)); */
1182	} else {
1183	owl_function_makemsg("join: currently the only supported protocol is 'aim'");
1184	}
1185	return(NULL);
1186	}
1187
1188	char owl_command_startup(int argc, const char const argv, const char buff)
1189	{
1190	const char *ptr;
1191
1192	if (argc<2) {
1193	owl_function_makemsg("usage: %s <commands> ...", argv[0]);
1194	return(NULL);
1195	}
1196
1197	ptr = skiptokens(buff, 1);
1198
1199	owl_function_command(ptr);
1200	owl_function_addstartup(ptr);
1201
1202	return(NULL);
1203	}
1204
1205	char owl_command_unstartup(int argc, const char const argv, const char buff)
1206	{
1207	const char *ptr;
1208
1209	if (argc<2) {
1210	owl_function_makemsg("usage: %s <commands> ...", argv[0]);
1211	return(NULL);
1212	}
1213
1214	ptr = skiptokens(buff, 1);
1215
1216	owl_function_delstartup(ptr);
1217
1218	return(NULL);
1219	}
1220
1221	char owl_command_dump(int argc, const char const argv, const char buff)
1222	{
1223	char *filename;
1224
1225	if (argc!=2) {
1226	owl_function_makemsg("usage: dump <filename>");
1227	return(NULL);
1228	}
1229	filename=owl_util_makepath(argv[1]);
1230	owl_function_dump(filename);
1231	owl_free(filename);
1232	return(NULL);
1233	}
1234
1235	char owl_command_source(int argc, const char const argv, const char buff)
1236	{
1237	if (argc!=2) {
1238	owl_function_makemsg("usage: source <filename>");
1239	return(NULL);
1240	}
1241
1242	owl_function_source(argv[1]);
1243	return(NULL);
1244	}
1245
1246	char owl_command_next(int argc, const char const argv, const char buff)
1247	{
1248	char *filter=NULL;
1249	int skip_deleted=0, last_if_none=0;
1250	while (argc>1) {
1251	if (argc>=1 && !strcmp(argv[1], "--skip-deleted")) {
1252	skip_deleted=1;
1253	argc-=1; argv+=1;
1254	} else if (argc>=1 && !strcmp(argv[1], "--last-if-none")) {
1255	last_if_none=1;
1256	argc-=1; argv+=1;
1257	} else if (argc>=2 && !strcmp(argv[1], "--filter")) {
1258	filter = owl_strdup(argv[2]);
1259	argc-=2; argv+=2;
1260	} else if (argc>=2 && !strcmp(argv[1], "--smart-filter")) {
1261	filter = owl_function_smartfilter(0, 0);
1262	argc-=2; argv+=2;
1263	} else if (argc>=2 && !strcmp(argv[1], "--smart-filter-instance")) {
1264	filter = owl_function_smartfilter(1, 0);
1265	argc-=2; argv+=2;
1266	} else {
1267	owl_function_makemsg("Invalid arguments to command 'next'.");
1268	return(NULL);
1269	}
1270	}
1271	owl_function_nextmsg_full(filter, skip_deleted, last_if_none);
1272	if (filter) owl_free(filter);
1273	return(NULL);
1274	}
1275
1276	char owl_command_prev(int argc, const char const argv, const char buff)
1277	{
1278	char *filter=NULL;
1279	int skip_deleted=0, first_if_none=0;
1280	while (argc>1) {
1281	if (argc>=1 && !strcmp(argv[1], "--skip-deleted")) {
1282	skip_deleted=1;
1283	argc-=1; argv+=1;
1284	} else if (argc>=1 && !strcmp(argv[1], "--first-if-none")) {
1285	first_if_none=1;
1286	argc-=1; argv+=1;
1287	} else if (argc>=2 && !strcmp(argv[1], "--filter")) {
1288	filter = owl_strdup(argv[2]);
1289	argc-=2; argv+=2;
1290	} else if (argc>=2 && !strcmp(argv[1], "--smart-filter")) {
1291	filter = owl_function_smartfilter(0, 0);
1292	argc-=2; argv+=2;
1293	} else if (argc>=2 && !strcmp(argv[1], "--smart-filter-instance")) {
1294	filter = owl_function_smartfilter(1, 0);
1295	argc-=2; argv+=2;
1296	} else {
1297	owl_function_makemsg("Invalid arguments to command 'prev'.");
1298	return(NULL);
1299	}
1300	}
1301	owl_function_prevmsg_full(filter, skip_deleted, first_if_none);
1302	if (filter) owl_free(filter);
1303	return(NULL);
1304	}
1305
1306	char owl_command_smartnarrow(int argc, const char const argv, const char buff)
1307	{
1308	char *filtname = NULL;
1309
1310	char opt;
1311	int instance = 0, related = 0, i;
1312	const char *tmp_argv = owl_malloc(sizeof(char ) * argc);
1313
1314	for (i = 0; i < argc; i++)
1315	tmp_argv[i] = argv[i];
1316
1317	static const struct option options[] = {
1318	{"instance", 0, 0, 'i'},
1319	{"related", 0, 0, 'r'},
1320	{NULL, 0, 0, 0}};
1321
1322	optind = 0;
1323	while ((opt = getopt_long(argc, (char **)tmp_argv, "ir", options, NULL)) != -1) {
1324	switch (opt) {
1325	case 'i':
1326	instance = 1;
1327	break;
1328	case 'r':
1329	related = 1;
1330	break;
1331	default:
1332	owl_function_makemsg("Wrong number of arguments for %s (%c)", argv[0], opt);
1333	goto done;
1334	}
1335	}
1336
1337	filtname = owl_function_smartfilter(instance, related);
1338
1339	if (filtname) {
1340	owl_function_change_currentview_filter(filtname);
1341	owl_free(filtname);
1342	}
1343
1344	done:
1345	owl_free(tmp_argv);
1346
1347	return NULL;
1348	}
1349
1350	char owl_command_smartfilter(int argc, const char const argv, const char buff)
1351	{
1352	char *filtname = NULL;
1353
1354	if (argc == 1) {
1355	filtname = owl_function_smartfilter(0, 0);
1356	} else if (argc == 2 && (!strcmp(argv[1], "-i") \|\| !strcmp(argv[1], "--instance"))) {
1357	filtname = owl_function_smartfilter(1, 0);
1358	} else {
1359	owl_function_makemsg("Wrong number of arguments for %s", argv[0]);
1360	}
1361	return filtname;
1362	}
1363
1364	void owl_command_expunge(void)
1365	{
1366	owl_function_expunge();
1367	}
1368
1369	void owl_command_first(void)
1370	{
1371	owl_global_set_rightshift(&g, 0);
1372	owl_function_firstmsg();
1373	}
1374
1375	void owl_command_last(void)
1376	{
1377	owl_function_lastmsg();
1378	}
1379
1380	void owl_command_resize(void)
1381	{
1382	owl_function_resize();
1383	}
1384
1385	void owl_command_redisplay(void)
1386	{
1387	owl_function_full_redisplay();
1388	}
1389
1390	char owl_command_get_shift(int argc, const char const argv, const char buff)
1391	{
1392	if(argc != 1)
1393	{
1394	owl_function_makemsg("Wrong number of arguments for %s", argv[0]);
1395	return NULL;
1396	}
1397	return owl_sprintf("%d", owl_global_get_rightshift(&g));
1398	}
1399
1400	void owl_command_set_shift(int shift)
1401	{
1402	owl_global_set_rightshift(&g, shift);
1403	}
1404
1405	void owl_command_unsuball(void)
1406	{
1407	owl_function_unsuball();
1408	}
1409
1410	char owl_command_loadsubs(int argc, const char const argv, const char buff)
1411	{
1412	if (argc == 2) {
1413	owl_function_loadsubs(argv[1]);
1414	} else if (argc == 1) {
1415	owl_function_loadsubs(NULL);
1416	} else {
1417	owl_function_makemsg("Wrong number of arguments for load-subs.");
1418	return(NULL);
1419	}
1420	return(NULL);
1421	}
1422
1423
1424	char owl_command_loadloginsubs(int argc, const char const argv, const char buff)
1425	{
1426	if (argc == 2) {
1427	owl_function_loadloginsubs(argv[1]);
1428	} else if (argc == 1) {
1429	owl_function_loadloginsubs(NULL);
1430	} else {
1431	owl_function_makemsg("Wrong number of arguments for load-subs.");
1432	return(NULL);
1433	}
1434	return(NULL);
1435	}
1436
1437	void owl_command_suspend(void)
1438	{
1439	owl_function_suspend();
1440	}
1441
1442	char owl_command_start_command(int argc, const char const argv, const char buff)
1443	{
1444	buff = skiptokens(buff, 1);
1445	owl_function_start_command(buff);
1446	return(NULL);
1447	}
1448
1449	char owl_command_zaway(int argc, const char const argv, const char buff)
1450	{
1451	if ((argc==1) \|\|
1452	((argc==2) && !strcmp(argv[1], "on"))) {
1453	owl_global_set_zaway_msg(&g, owl_global_get_zaway_msg_default(&g));
1454	owl_function_zaway_on();
1455	return NULL;
1456	}
1457
1458	if (argc==2 && !strcmp(argv[1], "off")) {
1459	owl_function_zaway_off();
1460	return NULL;
1461	}
1462
1463	if (argc==2 && !strcmp(argv[1], "toggle")) {
1464	owl_function_zaway_toggle();
1465	return NULL;
1466	}
1467
1468	buff = skiptokens(buff, 1);
1469	owl_global_set_zaway_msg(&g, buff);
1470	owl_function_zaway_on();
1471	return NULL;
1472	}
1473
1474
1475	char owl_command_aaway(int argc, const char const argv, const char buff)
1476	{
1477	if ((argc==1) \|\|
1478	((argc==2) && !strcmp(argv[1], "on"))) {
1479	owl_global_set_aaway_msg(&g, owl_global_get_aaway_msg_default(&g));
1480	owl_function_aaway_on();
1481	return NULL;
1482	}
1483
1484	if (argc==2 && !strcmp(argv[1], "off")) {
1485	owl_function_aaway_off();
1486	return NULL;
1487	}
1488
1489	if (argc==2 && !strcmp(argv[1], "toggle")) {
1490	owl_function_aaway_toggle();
1491	return NULL;
1492	}
1493
1494	buff = skiptokens(buff, 1);
1495	owl_global_set_aaway_msg(&g, buff);
1496	owl_function_aaway_on();
1497	return NULL;
1498	}
1499
1500
1501	char owl_command_away(int argc, const char const argv, const char buff)
1502	{
1503	if ((argc==1) \|\|
1504	((argc==2) && !strcmp(argv[1], "on"))) {
1505	owl_global_set_aaway_msg(&g, owl_global_get_aaway_msg_default(&g));
1506	owl_global_set_zaway_msg(&g, owl_global_get_zaway_msg_default(&g));
1507	owl_function_aaway_on();
1508	owl_function_zaway_on();
1509	owl_function_makemsg("Away messages set.");
1510	return NULL;
1511	}
1512
1513	if (argc==2 && !strcmp(argv[1], "off")) {
1514	owl_function_aaway_off();
1515	owl_function_zaway_off();
1516	return NULL;
1517	}
1518
1519	if (argc==2 && !strcmp(argv[1], "toggle")) {
1520	/* if either one is on, turn it off, otherwise toggle both (turn
1521	* them both on)
1522	*/
1523	if (!owl_global_is_zaway(&g) && !owl_global_is_aaway(&g)) {
1524	owl_function_aaway_toggle();
1525	owl_function_zaway_toggle();
1526	owl_function_makemsg("Away messages set.");
1527	} else {
1528	if (owl_global_is_zaway(&g)) owl_function_zaway_toggle();
1529	if (owl_global_is_aaway(&g)) owl_function_aaway_toggle();
1530	owl_function_makemsg("Away messages off.");
1531	}
1532	return NULL;
1533	}
1534
1535	buff = skiptokens(buff, 1);
1536	owl_global_set_aaway_msg(&g, buff);
1537	owl_global_set_zaway_msg(&g, buff);
1538	owl_function_aaway_on();
1539	owl_function_zaway_on();
1540	owl_function_makemsg("Away messages set.");
1541	return NULL;
1542	}
1543
1544	char owl_command_set(int argc, const char const argv, const char buff)
1545	{
1546	const char var, val;
1547	int silent=0;
1548	int requirebool=0;
1549
1550	if (argc == 1) {
1551	owl_function_printallvars();
1552	return NULL;
1553	}
1554
1555	if (argc > 1 && !strcmp("-q",argv[1])) {
1556	silent = 1;
1557	argc--; argv++;
1558	}
1559
1560	if (argc == 2) {
1561	var=argv[1];
1562	val="on";
1563	requirebool=1;
1564	} else if (argc == 3) {
1565	var=argv[1];
1566	val=argv[2];
1567	} else {
1568	owl_function_makemsg("Wrong number of arguments for set command");
1569	return NULL;
1570	}
1571	owl_variable_set_fromstring(owl_global_get_vardict(&g), var, val, !silent, requirebool);
1572	return NULL;
1573	}
1574
1575	char owl_command_unset(int argc, const char const argv, const char buff)
1576	{
1577	const char var, val;
1578	int silent=0;
1579
1580	if (argc > 1 && !strcmp("-q",argv[1])) {
1581	silent = 1;
1582	argc--; argv++;
1583	}
1584	if (argc == 2) {
1585	var=argv[1];
1586	val="off";
1587	} else {
1588	owl_function_makemsg("Wrong number of arguments for unset command");
1589	return NULL;
1590	}
1591	owl_variable_set_fromstring(owl_global_get_vardict(&g), var, val, !silent, 1);
1592	return NULL;
1593	}
1594
1595	char owl_command_print(int argc, const char const argv, const char buff)
1596	{
1597	const char *var;
1598	char valbuff[1024];
1599
1600	if (argc==1) {
1601	owl_function_printallvars();
1602	return NULL;
1603	} else if (argc!=2) {
1604	owl_function_makemsg("Wrong number of arguments for print command");
1605	return NULL;
1606	}
1607
1608	var=argv[1];
1609
1610	if (0 == owl_variable_get_tostring(owl_global_get_vardict(&g),
1611	var, valbuff, 1024)) {
1612	owl_function_makemsg("%s = '%s'", var, valbuff);
1613	} else {
1614	owl_function_makemsg("Unknown variable '%s'.", var);
1615	}
1616	return NULL;
1617	}
1618
1619
1620	char owl_command_exec(int argc, const char const argv, const char buff)
1621	{
1622	return owl_function_exec(argc, argv, buff, OWL_OUTPUT_RETURN);
1623	}
1624
1625	char owl_command_pexec(int argc, const char const argv, const char buff)
1626	{
1627	return owl_function_exec(argc, argv, buff, OWL_OUTPUT_POPUP);
1628	}
1629
1630	char owl_command_aexec(int argc, const char const argv, const char buff)
1631	{
1632	return owl_function_exec(argc, argv, buff, OWL_OUTPUT_ADMINMSG);
1633	}
1634
1635	char owl_command_perl(int argc, const char const argv, const char buff)
1636	{
1637	return owl_function_perl(argc, argv, buff, OWL_OUTPUT_RETURN);
1638	}
1639
1640	char owl_command_pperl(int argc, const char const argv, const char buff)
1641	{
1642	return owl_function_perl(argc, argv, buff, OWL_OUTPUT_POPUP);
1643	}
1644
1645	char owl_command_aperl(int argc, const char const argv, const char buff)
1646	{
1647	return owl_function_perl(argc, argv, buff, OWL_OUTPUT_ADMINMSG);
1648	}
1649
1650	char owl_command_multi(int argc, const char const argv, const char buff)
1651	{
1652	char lastrv = NULL, newbuff;
1653	char **commands;
1654	int ncommands, i;
1655	if (argc < 2) {
1656	owl_function_makemsg("Invalid arguments to 'multi' command.");
1657	return NULL;
1658	}
1659	newbuff = owl_strdup(skiptokens(buff, 1));
1660	if (!strcmp(argv[0], "(")) {
1661	for (i=strlen(newbuff)-1; i>=0; i--) {
1662	if (newbuff[i] == ')') {
1663	newbuff[i] = '\0';
1664	break;
1665	} else if (newbuff[i] != ' ') {
1666	owl_function_makemsg("Invalid arguments to 'multi' command.");
1667	owl_free(newbuff);
1668	return NULL;
1669	}
1670	}
1671	}
1672	commands = atokenize(newbuff, ";", &ncommands);
1673	for (i=0; i<ncommands; i++) {
1674	if (lastrv) {
1675	owl_free(lastrv);
1676	}
1677	lastrv = owl_function_command(commands[i]);
1678	}
1679	owl_free(newbuff);
1680	atokenize_delete(commands, ncommands);
1681	return lastrv;
1682	}
1683
1684
1685	char owl_command_alias(int argc, const char const argv, const char buff)
1686	{
1687	if (argc < 3) {
1688	owl_function_makemsg("Invalid arguments to 'alias' command.");
1689	return NULL;
1690	}
1691	buff = skiptokens(buff, 2);
1692	owl_function_command_alias(argv[1], buff);
1693	return (NULL);
1694	}
1695
1696
1697	char owl_command_bindkey(int argc, const char const argv, const char buff)
1698	{
1699	owl_keymap *km;
1700	int ret;
1701
1702	if (argc < 5 \|\| strcmp(argv[3], "command")) {
1703	owl_function_makemsg("Usage: bindkey <keymap> <binding> command <cmd>");
1704	return NULL;
1705	}
1706	km = owl_keyhandler_get_keymap(owl_global_get_keyhandler(&g), argv[1]);
1707	if (!km) {
1708	owl_function_makemsg("No such keymap '%s'", argv[1]);
1709	return NULL;
1710	}
1711	buff = skiptokens(buff, 4);
1712	ret = owl_keymap_create_binding(km, argv[2], buff, NULL, "user");
1713	if (ret!=0) {
1714	owl_function_makemsg("Unable to bind '%s' in keymap '%s' to '%s'.",
1715	argv[2], argv[1], buff);
1716	return NULL;
1717	}
1718	return NULL;
1719	}
1720
1721
1722	char owl_command_unbindkey(int argc, const char const argv, const char buf)
1723	{
1724	owl_keymap *km;
1725	int ret;
1726
1727	if (argc < 3) {
1728	owl_function_makemsg("Usage: bindkey <keymap> <binding>");
1729	return NULL;
1730	}
1731	km = owl_keyhandler_get_keymap(owl_global_get_keyhandler(&g), argv[1]);
1732	if (!km) {
1733	owl_function_makemsg("No such keymap '%s'", argv[1]);
1734	return NULL;
1735	}
1736	ret = owl_keymap_remove_binding(km, argv[2]);
1737	if (ret == -1) {
1738	owl_function_makemsg("Unable to unbind '%s' in keymap '%s'.",
1739	argv[2], argv[1]);
1740	return NULL;
1741	} else if (ret == -2) {
1742	owl_function_makemsg("No such binding '%s' in keymap '%s'.",
1743	argv[2], argv[1]);
1744	}
1745	return NULL;
1746	}
1747
1748
1749	void owl_command_quit(void)
1750	{
1751	owl_function_quit();
1752	}
1753
1754	char owl_command_debug(int argc, const char const argv, const char buff)
1755	{
1756	if (argc<2) {
1757	owl_function_makemsg("Need at least one argument to debug command");
1758	return(NULL);
1759	}
1760
1761	if (!owl_global_is_debug_fast(&g)) {
1762	owl_function_makemsg("Debugging is not turned on");
1763	return(NULL);
1764	}
1765
1766	owl_function_debugmsg("%s", argv[1]);
1767	return(NULL);
1768	}
1769
1770	char owl_command_term(int argc, const char const argv, const char buff)
1771	{
1772	if (argc<2) {
1773	owl_function_makemsg("Need at least one argument to the term command");
1774	return(NULL);
1775	}
1776
1777	if (!strcmp(argv[1], "raise")) {
1778	owl_function_xterm_raise();
1779	} else if (!strcmp(argv[1], "deiconify")) {
1780	owl_function_xterm_deiconify();
1781	} else {
1782	owl_function_makemsg("Unknown terminal subcommand");
1783	}
1784	return(NULL);
1785	}
1786
1787	char owl_command_zlog(int argc, const char const argv, const char buff)
1788	{
1789	if ((argc<2) \|\| (argc>3)) {
1790	owl_function_makemsg("Wrong number of arguments for zlog command");
1791	return(NULL);
1792	}
1793
1794	if (!strcmp(argv[1], "in")) {
1795	if (argc>2) {
1796	owl_global_set_tty(&g, argv[2]);
1797	}
1798	owl_zephyr_zlog_in();
1799	} else if (!strcmp(argv[1], "out")) {
1800	if (argc!=2) {
1801	owl_function_makemsg("Wrong number of arguments for zlog command");
1802	return(NULL);
1803	}
1804	owl_zephyr_zlog_out();
1805	} else {
1806	owl_function_makemsg("Invalid subcommand for zlog");
1807	}
1808	return(NULL);
1809	}
1810
1811	char owl_command_subscribe(int argc, const char const argv, const char buff)
1812	{
1813	const char class, instance, *recip="";
1814	int temp=0;
1815	int ret=0;
1816
1817	if (argc < 2) {
1818	owl_function_makemsg("Not enough arguments to the subscribe command");
1819	return(NULL);
1820	}
1821	argc--;
1822	argv++;
1823
1824	if (!strcmp(argv[0], "-t")) {
1825	temp=1;
1826	argc--;
1827	argv++;
1828	}
1829	if (argc < 1) {
1830	owl_function_makemsg("Not enough arguments to the subscribe command");
1831	return(NULL);
1832	}
1833
1834	if (argc > 3) {
1835	owl_function_makemsg("Too many arguments to the subscribe command");
1836	return(NULL);
1837	}
1838
1839	class = argv[0];
1840
1841	if (argc == 1) {
1842	instance = "*";
1843	} else {
1844	instance = argv[1];
1845	}
1846
1847	if (argc <= 2) {
1848	recip="";
1849	} else if (argc==3) {
1850	recip=argv[2];
1851	}
1852
1853	ret = owl_function_subscribe(class, instance, recip);
1854	if (!temp && !ret) {
1855	owl_zephyr_addsub(NULL, class, instance, recip);
1856	}
1857	return(NULL);
1858	}
1859
1860
1861	char owl_command_unsubscribe(int argc, const char const argv, const char buff)
1862	{
1863	const char class, instance, *recip="";
1864	int temp=0;
1865
1866	if (argc < 2) {
1867	owl_function_makemsg("Not enough arguments to the unsubscribe command");
1868	return(NULL);
1869	}
1870	argc--;
1871	argv++;
1872
1873	if (!strcmp(argv[0], "-t")) {
1874	temp=1;
1875	argc--;
1876	argv++;
1877	}
1878	if (argc < 1) {
1879	owl_function_makemsg("Not enough arguments to the unsubscribe command");
1880	return(NULL);
1881	}
1882
1883	if (argc > 3) {
1884	owl_function_makemsg("Too many arguments to the unsubscribe command");
1885	return(NULL);
1886	}
1887
1888	class = argv[0];
1889
1890	if (argc == 1) {
1891	instance = "*";
1892	} else {
1893	instance = argv[1];
1894	}
1895
1896	if (argc <= 2) {
1897	recip="";
1898	} else if (argc==3) {
1899	recip=argv[2];
1900	}
1901
1902	owl_function_unsubscribe(class, instance, recip);
1903	if (!temp) {
1904	owl_zephyr_delsub(NULL, class, instance, recip);
1905	}
1906	return(NULL);
1907	}
1908
1909	char owl_command_echo(int argc, const char const argv, const char buff)
1910	{
1911	buff = skiptokens(buff, 1);
1912	owl_function_popless_text(buff);
1913	return NULL;
1914	}
1915
1916	void owl_command_getsubs(void)
1917	{
1918	owl_function_getsubs();
1919	}
1920
1921	void owl_command_status(void)
1922	{
1923	owl_function_status();
1924	}
1925
1926	char owl_command_zwrite(int argc, const char const argv, const char buff)
1927	{
1928	owl_zwrite *z;
1929
1930	if (!owl_global_is_havezephyr(&g)) {
1931	owl_function_makemsg("Zephyr is not available");
1932	return(NULL);
1933	}
1934	/* check for a zwrite -m */
1935	z = owl_zwrite_new(buff);
1936	if (!z) {
1937	owl_function_error("Error in zwrite arguments");
1938	return NULL;
1939	}
1940
1941	if (owl_zwrite_is_message_set(z)) {
1942	owl_function_zwrite(z, NULL);
1943	owl_zwrite_delete(z);
1944	return NULL;
1945	}
1946
1947	if (argc < 2) {
1948	owl_zwrite_delete(z);
1949	owl_function_makemsg("Not enough arguments to the zwrite command.");
1950	} else {
1951	owl_function_zwrite_setup(z);
1952	}
1953	return(NULL);
1954	}
1955
1956	char owl_command_aimwrite(int argc, const char const argv, const char buff)
1957	{
1958	char newbuff, recip;
1959	const char const myargv;
1960	int i, j, myargc;
1961	owl_message *m;
1962
1963	if (!owl_global_is_aimloggedin(&g)) {
1964	owl_function_makemsg("You are not logged in to AIM.");
1965	return(NULL);
1966	}
1967
1968	if (argc < 2) {
1969	owl_function_makemsg("Not enough arguments to the aimwrite command.");
1970	return(NULL);
1971	}
1972
1973	myargv=argv;
1974	if (argc<0) {
1975	owl_function_error("Unbalanced quotes in aimwrite");
1976	return(NULL);
1977	}
1978	myargc=argc;
1979	if (myargc && *(myargv[0])!='-') {
1980	myargc--;
1981	myargv++;
1982	}
1983	while (myargc) {
1984	if (!strcmp(myargv[0], "-m")) {
1985	if (myargc<2) {
1986	break;
1987	}
1988
1989	/* Once we have -m, gobble up everything else on the line */
1990	myargv++;
1991	myargc--;
1992	newbuff=owl_strdup("");
1993	while (myargc) {
1994	newbuff=owl_realloc(newbuff, strlen(newbuff)+strlen(myargv[0])+5);
1995	strcat(newbuff, myargv[0]);
1996	strcat(newbuff, " ");
1997	myargc--;
1998	myargv++;
1999	}
2000	if (strlen(newbuff) >= 1)
2001	newbuff[strlen(newbuff) - 1] = '\0'; /* remove last space */
2002
2003	recip=owl_strdup(argv[1]);
2004	owl_aim_send_im(recip, newbuff);
2005	m=owl_function_make_outgoing_aim(newbuff, recip);
2006	if (m) {
2007	owl_global_messagequeue_addmsg(&g, m);
2008	} else {
2009	owl_function_error("Could not create outgoing AIM message");
2010	}
2011
2012	owl_free(recip);
2013	owl_free(newbuff);
2014	return(NULL);
2015	} else {
2016	/* we don't care */
2017	myargv++;
2018	myargc--;
2019	}
2020	}
2021
2022	/* squish arguments together to make one screenname w/o spaces for now */
2023	newbuff=owl_malloc(strlen(buff)+5);
2024	sprintf(newbuff, "%s ", argv[0]);
2025	j=argc-1;
2026	for (i=0; i<j; i++) {
2027	strcat(newbuff, argv[i+1]);
2028	}
2029
2030	owl_function_aimwrite_setup(newbuff);
2031	owl_free(newbuff);
2032	return(NULL);
2033	}
2034
2035	char owl_command_loopwrite(int argc, const char const argv, const char buff)
2036	{
2037	owl_function_loopwrite_setup();
2038	return(NULL);
2039	}
2040
2041	char owl_command_reply(int argc, const char const argv, const char buff)
2042	{
2043	int edit=0;
2044
2045	if (argc>=2 && !strcmp("-e", argv[1])) {
2046	edit=1;
2047	argv++;
2048	argc--;
2049	}
2050
2051	if ((argc==1) \|\| (argc==2 && !strcmp(argv[1], "all"))) {
2052	owl_function_reply(0, !edit);
2053	} else if (argc==2 && !strcmp(argv[1], "sender")) {
2054	owl_function_reply(1, !edit);
2055	} else if (argc==2 && !strcmp(argv[1], "zaway")) {
2056	const owl_message *m;
2057	const owl_view *v;
2058	v = owl_global_get_current_view(&g);
2059	m = owl_view_get_element(v, owl_global_get_curmsg(&g));
2060	if (m) owl_zephyr_zaway(m);
2061	} else {
2062	owl_function_makemsg("Invalid arguments to the reply command.");
2063	}
2064	return NULL;
2065	}
2066
2067	char owl_command_filter(int argc, const char const argv, const char buff)
2068	{
2069	owl_function_create_filter(argc, argv);
2070	return NULL;
2071	}
2072
2073	char owl_command_zlocate(int argc, const char const argv, const char buff)
2074	{
2075	int auth;
2076
2077	if (argc<2) {
2078	owl_function_makemsg("Too few arguments for zlocate command");
2079	return NULL;
2080	}
2081
2082	auth=1;
2083	if (!strcmp(argv[1], "-d")) {
2084	if (argc>2) {
2085	auth=0;
2086	argc--;
2087	argv++;
2088	} else {
2089	owl_function_makemsg("Missing arguments for zlocate command");
2090	return NULL;
2091	}
2092	}
2093
2094	argc--;
2095	argv++;
2096	owl_function_zlocate(argc, argv, auth);
2097	return NULL;
2098	}
2099
2100
2101	/* Backwards compatability has made this kind of complicated:
2102	* view [<viewname>] [-f <filter> \| -d <expression> \| --home \| -r ] [-s <style>]
2103	* view <filter>
2104	* view -d <expression>
2105	* view --home
2106	*/
2107	char owl_command_view(int argc, const char const argv, const char buff)
2108	{
2109	/* First take the 'view --home' and 'view -r' cases */
2110	if (argc == 2) {
2111	if (!strcmp(argv[1], "--home")) {
2112	owl_function_change_currentview_filter(owl_global_get_view_home(&g));
2113	return(NULL);
2114	} else if (!strcmp(argv[1], "-r")) {
2115	char *foo;
2116	foo=owl_function_create_negative_filter(owl_view_get_filtname(owl_global_get_current_view(&g)));
2117	owl_function_change_currentview_filter(foo);
2118	owl_free(foo);
2119	return(NULL);
2120	}
2121	}
2122
2123	/* Now look for 'view <filter>' */
2124	if (argc==2) {
2125	owl_function_change_currentview_filter(argv[1]);
2126	return(NULL);
2127	}
2128
2129	/* Now get 'view -d <expression>' */
2130	if (argc>=3 && !strcmp(argv[1], "-d")) {
2131	const char **myargv;
2132	int i;
2133
2134	myargv=owl_malloc((argcsizeof(const char ))+50);
2135	myargv[0]="";
2136	myargv[1]="owl-dynamic";
2137	for (i=2; i<argc; i++) {
2138	myargv[i]=argv[i];
2139	}
2140	owl_function_create_filter(argc, myargv);
2141	owl_function_change_currentview_filter("owl-dynamic");
2142	owl_free(myargv);
2143	return NULL;
2144	}
2145
2146	/* Finally handle the general case */
2147	if (argc<3) {
2148	owl_function_makemsg("Too few arguments to the view command.");
2149	return(NULL);
2150	}
2151	argc--;
2152	argv++;
2153	if (strcmp(argv[0], "-f") &&
2154	strcmp(argv[0], "-d") &&
2155	strcmp(argv[0], "--home") &&
2156	strcmp(argv[0], "-s") &&
2157	strcmp(argv[0], "-r")) {
2158	if (strcmp(argv[0], "main")) {
2159	owl_function_makemsg("No view named '%s'", argv[0]);
2160	return(NULL);
2161	}
2162	argc--;
2163	argv++;
2164	}
2165	while (argc) {
2166	if (!strcmp(argv[0], "-f")) {
2167	if (argc<2) {
2168	owl_function_makemsg("Too few argments to the view command");
2169	return(NULL);
2170	}
2171	owl_function_change_currentview_filter(argv[1]);
2172	argc-=2;
2173	argv+=2;
2174	} else if (!strcmp(argv[0], "--home")) {
2175	owl_function_change_currentview_filter(owl_global_get_view_home(&g));
2176	argc--;
2177	argv++;
2178	} else if (!strcmp(argv[0], "-s")) {
2179	if (argc<2) {
2180	owl_function_makemsg("Too few argments to the view command");
2181	return(NULL);
2182	}
2183	owl_function_change_style(owl_global_get_current_view(&g), argv[1]);
2184	argc-=2;
2185	argv+=2;
2186	} else {
2187	owl_function_makemsg("Too few argments to the view command");
2188	return(NULL);
2189	}
2190
2191	}
2192	return(NULL);
2193	}
2194
2195	char owl_command_show(int argc, const char const argv, const char buff)
2196	{
2197	if (argc<2) {
2198	owl_function_help_for_command("show");
2199	return NULL;
2200	}
2201
2202	if (!strcmp(argv[1], "filter") \|\| !strcmp(argv[1], "filters")) {
2203	if (argc==2) {
2204	owl_function_show_filters();
2205	} else {
2206	owl_function_show_filter(argv[2]);
2207	}
2208	} else if (argc==2
2209	&& (!strcmp(argv[1], "zpunts") \|\| !strcmp(argv[1], "zpunted"))) {
2210	owl_function_show_zpunts();
2211	} else if (!strcmp(argv[1], "command") \|\| !strcmp(argv[1], "commands")) {
2212	if (argc==2) {
2213	owl_function_show_commands();
2214	} else {
2215	owl_function_show_command(argv[2]);
2216	}
2217	} else if (!strcmp(argv[1], "variable") \|\| !strcmp(argv[1], "variables")) {
2218	if (argc==2) {
2219	owl_function_show_variables();
2220	} else {
2221	owl_function_show_variable(argv[2]);
2222	}
2223	} else if (!strcmp(argv[1], "keymap") \|\| !strcmp(argv[1], "keymaps")) {
2224	if (argc==2) {
2225	owl_function_show_keymaps();
2226	} else {
2227	owl_function_show_keymap(argv[2]);
2228	}
2229	} else if (!strcmp(argv[1], "view")) {
2230	if (argc==3) {
2231	owl_function_show_view(argv[2]);
2232	} else {
2233	owl_function_show_view(NULL);
2234	}
2235	} else if (!strcmp(argv[1], "colors")) {
2236	owl_function_show_colors();
2237	} else if (!strcmp(argv[1], "styles")) {
2238	owl_function_show_styles();
2239	} else if (!strcmp(argv[1], "subs") \|\| !strcmp(argv[1], "subscriptions")) {
2240	owl_function_getsubs();
2241	} else if (!strcmp(argv[1], "terminal") \|\| !strcmp(argv[1], "term")) {
2242	owl_function_show_term();
2243	} else if (!strcmp(argv[1], "version")) {
2244	owl_function_about();
2245	} else if (!strcmp(argv[1], "status")) {
2246	owl_function_status();
2247	} else if (!strcmp(argv[1], "license")) {
2248	owl_function_show_license();
2249	} else if (!strcmp(argv[1], "quickstart")) {
2250	owl_function_show_quickstart();
2251	} else if (!strcmp(argv[1], "startup")) {
2252	const char *filename;
2253
2254	filename=owl_global_get_startupfile(&g);
2255	owl_function_popless_file(filename);
2256	} else if (!strcmp(argv[1], "errors")) {
2257	owl_function_showerrs();
2258	} else {
2259	owl_function_makemsg("Unknown subcommand for 'show' command (see 'help show' for allowed args)");
2260	return NULL;
2261	}
2262	return NULL;
2263	}
2264
2265	char owl_command_viewclass(int argc, const char const argv, const char buff)
2266	{
2267	char *filtname;
2268	if (argc!=2) {
2269	owl_function_makemsg("Wrong number of arguments to viewclass command");
2270	return NULL;
2271	}
2272	filtname = owl_function_classinstfilt(argv[1], NULL, owl_global_is_narrow_related(&g));
2273	owl_function_change_currentview_filter(filtname);
2274	owl_free(filtname);
2275	return NULL;
2276	}
2277
2278	char owl_command_viewuser(int argc, const char const argv, const char buff)
2279	{
2280	char *filtname;
2281	if (argc!=2) {
2282	owl_function_makemsg("Wrong number of arguments to viewuser command");
2283	return NULL;
2284	}
2285	filtname=owl_function_zuserfilt(argv[1]);
2286	owl_function_change_currentview_filter(filtname);
2287	owl_free(filtname);
2288	return NULL;
2289	}
2290
2291
2292	void owl_command_pop_message(void)
2293	{
2294	owl_function_curmsg_to_popwin();
2295	}
2296
2297	char owl_command_delete(int argc, const char const argv, const char buff)
2298	{
2299	int move_after = 1;
2300
2301	if (argc>1 && !strcmp(argv[1], "--no-move")) {
2302	move_after = 0;
2303	argc--;
2304	argv++;
2305	}
2306
2307	if (argc==1) {
2308	owl_function_deletecur(move_after);
2309	return NULL;
2310	}
2311
2312	if (argc==2 && !strcmp(argv[1], "view")) {
2313	owl_function_delete_curview_msgs(1);
2314	return NULL;
2315	}
2316
2317	if (argc==2 && !strcmp(argv[1], "trash")) {
2318	owl_function_delete_automsgs();
2319	return NULL;
2320	}
2321
2322	if (argc==3 && (!strcmp(argv[1], "-id") \|\| !strcmp(argv[1], "--id"))) {
2323	owl_function_delete_by_id(atoi(argv[2]), 1);
2324	return NULL;
2325	}
2326
2327	owl_function_makemsg("Unknown arguments to delete command");
2328	return NULL;
2329	}
2330
2331	char owl_command_undelete(int argc, const char const argv, const char buff)
2332	{
2333	int move_after = 1;
2334
2335	if (argc>1 && !strcmp(argv[1], "--no-move")) {
2336	move_after = 0;
2337	argc--;
2338	argv++;
2339	}
2340
2341	if (argc==1) {
2342	owl_function_undeletecur(move_after);
2343	return NULL;
2344	}
2345
2346	if (argc==2 && !strcmp(argv[1], "view")) {
2347	owl_function_delete_curview_msgs(0);
2348	return NULL;
2349	}
2350
2351	if (argc==3 && (!strcmp(argv[1], "-id") \|\| !strcmp(argv[1], "--id"))) {
2352	owl_function_delete_by_id(atoi(argv[2]), 0);
2353	return NULL;
2354	}
2355
2356	owl_function_makemsg("Unknown arguments to delete command");
2357	return NULL;
2358	}
2359
2360	void owl_command_beep(void)
2361	{
2362	owl_function_beep();
2363	}
2364
2365	char owl_command_colorview(int argc, const char const argv, const char buff)
2366	{
2367	if (argc < 2 \|\| argc > 3) {
2368	owl_function_makemsg("Wrong number of arguments to colorview command");
2369	return NULL;
2370	}
2371	owl_function_color_current_filter(argv[1], (argc == 3 ? argv[2] : NULL));
2372	return NULL;
2373	}
2374
2375	char owl_command_colorclass(int argc, const char const argv, const char buff)
2376	{
2377	const char *filtname;
2378
2379	if (argc < 3 \|\| argc > 4) {
2380	owl_function_makemsg("Wrong number of arguments to colorclass command");
2381	return NULL;
2382	}
2383
2384	filtname=owl_function_classinstfilt(argv[1], NULL, owl_global_is_narrow_related(&g));
2385	(void) owl_function_color_filter(filtname, argv[2], (argc == 4 ? argv[3] : NULL));
2386	return NULL;
2387	}
2388
2389	char owl_command_zpunt(int argc, const char const argv, const char buff)
2390	{
2391	owl_command_zpunt_and_zunpunt(argc, argv, 0);
2392	return NULL;
2393	}
2394
2395	char owl_command_zunpunt(int argc, const char const argv, const char buff)
2396	{
2397	owl_command_zpunt_and_zunpunt(argc, argv, 1);
2398	return NULL;
2399	}
2400
2401	void owl_command_zpunt_and_zunpunt(int argc, const char const argv, int type)
2402	{
2403	/* if type==0 then zpunt
2404	* if type==1 then zunpunt
2405	*/
2406	const char class, inst, *recip;
2407
2408	class="message";
2409	inst="";
2410	recip="*";
2411
2412	if (argc==1) {
2413	/* show current punt filters */
2414	owl_function_show_zpunts();
2415	return;
2416	} else if (argc==2) {
2417	inst=argv[1];
2418	} else if (argc==3) {
2419	class=argv[1];
2420	inst=argv[2];
2421	} else if (argc==4) {
2422	class=argv[1];
2423	inst=argv[2];
2424	recip=argv[3];
2425	} else {
2426	owl_function_makemsg("Wrong number of arguments to the zpunt command");
2427	return;
2428	}
2429
2430	owl_function_zpunt(class, inst, recip, type);
2431	if (type==0) {
2432	owl_function_makemsg("<%s, %s, %s> added to punt list.", class, inst, recip);
2433	} else if (type==1) {
2434	owl_function_makemsg("<%s, %s, %s> removed from punt list.", class, inst, recip);
2435	}
2436	}
2437
2438	char owl_command_smartzpunt(int argc, const char const argv, const char buff)
2439	{
2440	if (argc == 1) {
2441	owl_function_smartzpunt(0);
2442	} else if (argc == 2 && (!strcmp(argv[1], "-i") \|\| !strcmp(argv[1], "--instance"))) {
2443	owl_function_smartzpunt(1);
2444	} else {
2445	owl_function_makemsg("Wrong number of arguments for %s", argv[0]);
2446	}
2447	return NULL;
2448	}
2449
2450	char owl_command_punt(int argc, const char const argv, const char buff)
2451	{
2452	owl_command_punt_unpunt(argc, argv, buff, 0);
2453	return NULL;
2454	}
2455
2456	char owl_command_unpunt(int argc, const char const argv, const char buff)
2457	{
2458	owl_command_punt_unpunt(argc, argv, buff, 1);
2459	return NULL;
2460	}
2461
2462	void owl_command_punt_unpunt(int argc, const char const argv, const char *buff, int unpunt)
2463	{
2464	owl_list * fl;
2465	owl_filter * f;
2466	char * text;
2467	int i;
2468
2469	fl = owl_global_get_puntlist(&g);
2470	if(argc == 1) {
2471	owl_function_show_zpunts();
2472	}
2473
2474	if(argc == 2) {
2475	/* Handle :unpunt <number> */
2476	if(unpunt && (i=atoi(argv[1])) !=0) {
2477	i--; /* Accept 1-based indexing */
2478	if(i < owl_list_get_size(fl)) {
2479	f = owl_list_get_element(fl, i);
2480	owl_list_remove_element(fl, i);
2481	owl_filter_delete(f);
2482	return;
2483	} else {
2484	owl_function_error("No such filter number: %d", i+1);
2485	}
2486	}
2487	text = owl_sprintf("filter %s", argv[1]);
2488	owl_function_punt(text, unpunt);
2489	owl_free(text);
2490	} else {
2491	owl_function_punt(skiptokens(buff, 1), unpunt);
2492	}
2493	}
2494
2495
2496	char owl_command_getview(int argc, const char const argv, const char buff)
2497	{
2498	const char *filtname;
2499	if (argc != 1) {
2500	owl_function_makemsg("Wrong number of arguments for %s", argv[0]);
2501	return NULL;
2502	}
2503	filtname = owl_view_get_filtname(owl_global_get_current_view(&g));
2504	if (filtname) return owl_strdup(filtname);
2505	return NULL;
2506	}
2507
2508	char owl_command_getvar(int argc, const char const argv, const char buff)
2509	{
2510	char tmpbuff[1024];
2511	if (argc != 2) {
2512	owl_function_makemsg("Wrong number of arguments for %s", argv[0]);
2513	return NULL;
2514	}
2515	if (owl_variable_get_tostring(owl_global_get_vardict(&g),
2516	argv[1], tmpbuff, 1024)) {
2517	return NULL;
2518	}
2519	return owl_strdup(tmpbuff);
2520	}
2521
2522	char owl_command_getfilter(int argc, const char const argv, const char buf)
2523	{
2524	const owl_filter *f;
2525	if (argc != 2) {
2526	owl_function_makemsg("Wrong number of arguments for %s", argv[0]);
2527	return NULL;
2528	}
2529	f = owl_global_get_filter(&g, argv[1]);
2530	if (!f) {
2531	return NULL;
2532	}
2533	return owl_filter_print(f);
2534	}
2535
2536	char owl_command_search(int argc, const char const argv, const char buff)
2537	{
2538	int direction;
2539	const char *buffstart;
2540
2541	direction=OWL_DIRECTION_DOWNWARDS;
2542	buffstart=skiptokens(buff, 1);
2543	if (argc>1 && !strcmp(argv[1], "-r")) {
2544	direction=OWL_DIRECTION_UPWARDS;
2545	buffstart=skiptokens(buff, 2);
2546	}
2547
2548	if (argc==1 \|\| (argc==2 && !strcmp(argv[1], "-r"))) {
2549	owl_function_search_helper(OWL_SEARCH_CONTINUE, direction);
2550	} else {
2551	owl_function_set_search(buffstart);
2552	owl_function_search_helper(OWL_SEARCH_MATCH_CURRENT, direction);
2553	}
2554
2555	return(NULL);
2556	}
2557
2558	char owl_command_setsearch(int argc, const char const argv, const char buff)
2559	{
2560	const char *buffstart;
2561
2562	buffstart=skiptokens(buff, 1);
2563	owl_function_set_search(*buffstart ? buffstart : NULL);
2564
2565	return(NULL);
2566	}
2567
2568	char owl_command_aimlogin(int argc, const char const argv, const char buff)
2569	{
2570	if ((argc<2) \|\| (argc>3)) {
2571	owl_function_makemsg("Wrong number of arguments to aimlogin command");
2572	return(NULL);
2573	}
2574
2575	/* if we get two arguments, ask for the password */
2576	if (argc==2) {
2577	owl_editwin *e = owl_function_start_password("AIM Password: ");
2578	owl_editwin_set_cbdata(e, owl_strdup(argv[1]), owl_free);
2579	owl_editwin_set_callback(e, owl_callback_aimlogin);
2580	return(NULL);
2581	} else {
2582	owl_function_aimlogin(argv[1], argv[2]);
2583	}
2584
2585	/* this is a test */
2586	return(NULL);
2587	}
2588
2589	char owl_command_aimlogout(int argc, const char const argv, const char buff)
2590	{
2591	/* clear the buddylist */
2592	owl_buddylist_clear(owl_global_get_buddylist(&g));
2593
2594	owl_aim_logout();
2595	return(NULL);
2596	}
2597
2598	char owl_command_getstyle(int argc, const char const argv, const char buff)
2599	{
2600	const char *stylename;
2601	if (argc != 1) {
2602	owl_function_makemsg("Wrong number of arguments for %s", argv[0]);
2603	return NULL;
2604	}
2605	stylename = owl_view_get_style_name(owl_global_get_current_view(&g));
2606	if (stylename) return owl_strdup(stylename);
2607	return NULL;
2608	}
2609
2610	char owl_command_error(int argc, const char const argv, const char buff)
2611	{
2612	buff = skiptokens(buff, 1);
2613	owl_function_error("%s", buff);
2614	return NULL;
2615	}
2616
2617	char owl_command_message(int argc, const char const argv, const char buff)
2618	{
2619	buff = skiptokens(buff, 1);
2620	owl_function_makemsg("%s", buff);
2621	return NULL;
2622	}
2623
2624	void owl_command_yes(void)
2625	{
2626	owl_message *m;
2627	const owl_view *v;
2628	const char *cmd;
2629
2630	v = owl_global_get_current_view(&g);
2631
2632	/* bail if there's no current message */
2633	if (owl_view_get_size(v) < 1) {
2634	owl_function_error("No current message.");
2635	return;
2636	}
2637
2638	m = owl_view_get_element(v, owl_global_get_curmsg(&g));
2639	if(!owl_message_is_question(m)) {
2640	owl_function_error("That message isn't a question.");
2641	return;
2642	}
2643	if(owl_message_is_answered(m)) {
2644	owl_function_error("You already answered that question.");
2645	return;
2646	}
2647	cmd = owl_message_get_attribute_value(m, "yescommand");
2648	if(!cmd) {
2649	owl_function_error("No 'yes' command!");
2650	return;
2651	}
2652
2653	owl_function_command_norv(cmd);
2654	owl_message_set_isanswered(m);
2655	return;
2656	}
2657
2658	void owl_command_no(void)
2659	{
2660	owl_message *m;
2661	const owl_view *v;
2662	const char *cmd;
2663
2664	v = owl_global_get_current_view(&g);
2665
2666	/* bail if there's no current message */
2667	if (owl_view_get_size(v) < 1) {
2668	owl_function_error("No current message.");
2669	return;
2670	}
2671
2672	m = owl_view_get_element(v, owl_global_get_curmsg(&g));
2673	if(!owl_message_is_question(m)) {
2674	owl_function_error("That message isn't a question.");
2675	return;
2676	}
2677	if(owl_message_is_answered(m)) {
2678	owl_function_error("You already answered that question.");
2679	return;
2680	}
2681	cmd = owl_message_get_attribute_value(m, "nocommand");
2682	if(!cmd) {
2683	owl_function_error("No 'no' command!");
2684	return;
2685	}
2686
2687	owl_function_command_norv(cmd);
2688	owl_message_set_isanswered(m);
2689	return;
2690	}
2691
2692	/*********************************************************************/
2693	/************************ EDIT SPECIFIC **************************/
2694	/*********************************************************************/
2695
2696	void owl_command_edit_cancel(owl_editwin *e)
2697	{
2698	owl_history *hist;
2699
2700	owl_function_makemsg("Command cancelled.");
2701
2702	if(owl_editwin_get_echochar(e) == 0) {
2703	hist=owl_editwin_get_history(e);
2704	owl_history_store(hist, owl_editwin_get_text(e));
2705	owl_history_reset(hist);
2706	}
2707
2708	owl_global_pop_context(&g);
2709	}
2710
2711	void owl_command_edit_history_prev(owl_editwin *e)
2712	{
2713	owl_history *hist;
2714	const char *ptr;
2715
2716	hist=owl_editwin_get_history(e);
2717	if (!owl_history_is_touched(hist)) {
2718	owl_history_store(hist, owl_editwin_get_text(e));
2719	owl_history_set_partial(hist);
2720	}
2721	ptr=owl_history_get_prev(hist);
2722	if (ptr) {
2723	owl_editwin_clear(e);
2724	owl_editwin_insert_string(e, ptr);
2725	} else {
2726	owl_function_beep();
2727	}
2728	}
2729
2730	void owl_command_edit_history_next(owl_editwin *e)
2731	{
2732	owl_history *hist;
2733	const char *ptr;
2734
2735	hist=owl_editwin_get_history(e);
2736	ptr=owl_history_get_next(hist);
2737	if (ptr) {
2738	owl_editwin_clear(e);
2739	owl_editwin_insert_string(e, ptr);
2740	} else {
2741	owl_function_beep();
2742	}
2743	}
2744
2745	char owl_command_edit_insert_text(owl_editwin e, int argc, const char const argv, const char *buff)
2746	{
2747	buff = skiptokens(buff, 1);
2748	owl_editwin_insert_string(e, buff);
2749	return NULL;
2750	}
2751
2752	void owl_command_edit_done(owl_editwin *e)
2753	{
2754	owl_history *hist=owl_editwin_get_history(e);
2755
2756	if (hist) {
2757	owl_history_store(hist, owl_editwin_get_text(e));
2758	owl_history_reset(hist);
2759	}
2760
2761	/* Take a reference to the editwin, so that it survives the pop
2762	* context. TODO: We should perhaps refcount or otherwise protect
2763	* the context so that, even if a command pops a context, the
2764	* context itself will last until the command returns. */
2765	owl_editwin_ref(e);
2766	owl_global_pop_context(&g);
2767
2768	owl_editwin_do_callback(e);
2769	owl_editwin_unref(e);
2770	}
2771
2772	void owl_command_edit_done_or_delete(owl_editwin *e)
2773	{
2774	if (owl_editwin_is_at_end(e)) {
2775	owl_command_edit_done(e);
2776	} else {
2777	owl_editwin_delete_char(e);
2778	}
2779	}
2780
2781
2782	/*********************************************************************/
2783	/********************* POPLESS SPECIFIC **************************/
2784	/*********************************************************************/
2785
2786	void owl_command_popless_quit(owl_viewwin *vw)
2787	{
2788	owl_popwin *pw;
2789	pw = owl_global_get_popwin(&g);
2790	owl_global_set_popwin(&g, NULL);
2791	/* Kind of a hack, but you can only have one active viewwin right
2792	* now anyway. */
2793	if (vw == owl_global_get_viewwin(&g))
2794	owl_global_set_viewwin(&g, NULL);
2795	owl_viewwin_delete(vw);
2796	owl_popwin_delete(pw);
2797	owl_global_pop_context(&g);
2798	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: