… | … | ||
---|---|---|---|
98 | }; | 98 | }; |
99 | 99 | ||
100 | () | 100 | () |
101 | } | 101 | } |
102 | 102 | ||
103 | sub on_user_command { | ||
104 | my ($self, $cmd) = @_; | ||
105 | 103 | ||
106 | if ($cmd eq "selection-pastebin:remote-pastebin") { | ||
107 | $self->upload_paste; | ||
108 | } | ||
109 | |||
110 | () | ||
111 | } | ||
112 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |