1 | use strict; |
---|
2 | use warnings; |
---|
3 | |
---|
4 | package BarnOwl::Complete::Zephyr; |
---|
5 | |
---|
6 | use BarnOwl::Completion::Util qw(complete_flags); |
---|
7 | |
---|
8 | our %classes = (); |
---|
9 | our %realms = map {$_ => 1} qw(ATHENA.MIT.EDU ANDREW.CMU.EDU ZONE.MIT.EDU); |
---|
10 | our %users = (); |
---|
11 | |
---|
12 | sub complete_class { keys %classes } |
---|
13 | sub complete_instance { } |
---|
14 | sub complete_realm { keys %realms } |
---|
15 | sub complete_opcode { } |
---|
16 | sub complete_user { keys %users; } |
---|
17 | |
---|
18 | sub complete_zwrite { |
---|
19 | my $ctx = shift; |
---|
20 | return complete_flags($ctx, |
---|
21 | [qw(-n -C -m)], |
---|
22 | { |
---|
23 | "-c" => \&complete_class, |
---|
24 | "-i" => \&complete_instance, |
---|
25 | "-r" => \&complete_realm, |
---|
26 | "-O" => \&complete_opcode, |
---|
27 | }, |
---|
28 | \&complete_user |
---|
29 | ); |
---|
30 | } |
---|
31 | |
---|
32 | sub complete_viewclass { |
---|
33 | my $ctx = shift; |
---|
34 | return unless $ctx->word == 1; |
---|
35 | return complete_class(); |
---|
36 | } |
---|
37 | |
---|
38 | sub complete_viewuser { |
---|
39 | my $ctx = shift; |
---|
40 | return unless $ctx->word == 1; |
---|
41 | return complete_user(); |
---|
42 | } |
---|
43 | |
---|
44 | sub complete_unsub { |
---|
45 | my $ctx = shift; |
---|
46 | return unless $ctx->word == 1; |
---|
47 | return complete_class(); |
---|
48 | } |
---|
49 | |
---|
50 | sub on_message { |
---|
51 | my $m = shift; |
---|
52 | return unless $m->type eq 'zephyr'; |
---|
53 | $classes{lc $m->class} = 1; |
---|
54 | $realms{lc $m->realm} = 1; |
---|
55 | $users{lc BarnOwl::Message::Zephyr::strip_realm($m->sender)} = 1; |
---|
56 | } |
---|
57 | |
---|
58 | BarnOwl::Completion::register_completer(zwrite => \&complete_zwrite); |
---|
59 | BarnOwl::Completion::register_completer(zcrypt => \&complete_zwrite); |
---|
60 | |
---|
61 | # Aliases should really be taken care of by the core completion code. |
---|
62 | BarnOwl::Completion::register_completer(viewclass => \&complete_viewclass); |
---|
63 | BarnOwl::Completion::register_completer(vc => \&complete_viewclass); |
---|
64 | BarnOwl::Completion::register_completer(viewuser => \&complete_viewuser); |
---|
65 | BarnOwl::Completion::register_completer(vu => \&complete_viewuser); |
---|
66 | |
---|
67 | BarnOwl::Completion::register_completer(unsub => \&complete_unsub); |
---|
68 | |
---|
69 | $BarnOwl::Hooks::newMessage->add("BarnOwl::Complete::Zephyr::on_message"); |
---|
70 | |
---|
71 | 1; |
---|