ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/selection-pastebin
(Generate patch)

Comparing rxvt-unicode/src/perl/selection-pastebin (file contents):
Revision 1.23 by root, Sat May 17 13:38:23 2014 UTC vs.
Revision 1.25 by sf-exg, Sat May 31 08:33:47 2014 UTC

5 5
6=head1 NAME 6=head1 NAME
7 7
8selection-pastebin - automatic pastebin upload 8selection-pastebin - automatic pastebin upload
9 9
10=head1 EXAMPLES
11
12 URxvt.keysym.C-M-e: selection-pastebin:remote-pastebin
13
10=head1 DESCRIPTION 14=head1 DESCRIPTION
11 15
12This is a little rarely useful extension that uploads the selection as 16This is a little rarely useful extension that uploads the selection as
13textfile to a remote site (or does other things). (The implementation is 17textfile to a remote site (or does other things). (The implementation is
14not currently secure for use in a multiuser environment as it writes to 18not currently secure for use in a multiuser environment as it writes to
15F</tmp> directly.). 19F</tmp> directly.).
16 20
17It listens to the C<selection-pastebin:remote-pastebin> keyboard command, 21It listens to the C<selection-pastebin:remote-pastebin> action, which,
18i.e. 22when activated, runs a command with C<%> replaced by the name of the
19
20 URxvt.keysym.C-M-e: perl:selection-pastebin:remote-pastebin
21
22Pressing this combination runs a command with C<%> replaced by the name of
23the textfile. This command can be set via a resource: 23textfile. This command can be set via a resource:
24 24
25 URxvt.selection-pastebin.cmd: rsync -apP % ruth:/var/www/www.ta-sa.org/files/txt/. 25 URxvt.selection-pastebin.cmd: rsync -apP % ruth:/var/www/www.ta-sa.org/files/txt/.
26 26
27And the default is likely not useful to anybody but the few people around 27And the default is likely not useful to anybody but the few people around
28here :) 28here :)
113 }; 113 };
114 114
115 () 115 ()
116} 116}
117 117
118sub on_user_command { 118sub on_action {
119 my ($self, $cmd) = @_; 119 my ($self, $action) = @_;
120 120
121 if ($cmd eq "selection-pastebin:remote-pastebin") { 121 $action eq "remote-pastebin"
122 $self->upload_paste; 122 and $self->upload_paste;
123 }
124 123
125 () 124 ()
126} 125}
127 126

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines