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.12 by root, Thu Jan 19 19:51:08 2006 UTC vs.
Revision 1.21 by root, Sun Jun 10 17:39:54 2012 UTC

1#! perl 1#! perl
2 2
3my $pastebin_cmd; 3#:META:X_RESOURCE:%.cmd:string:the command to run create a new pastebin
4my $pastebin_url; 4#:META:X_RESOURCE:%.url:string:the url template for new pastebins
5
6=head1 NAME
7
8 selection-pastebin - automatic pastebin upload
9
10=head1 DESCRIPTION
11
12This is a little rarely useful extension that uploads the selection as
13textfile to a remote site (or does other things). (The implementation is
14not currently secure for use in a multiuser environment as it writes to
15F</tmp> directly.).
16
17It listens to the C<selection-pastebin:remote-pastebin> keyboard command,
18i.e.
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:
24
25 URxvt.selection-pastebin.cmd: rsync -apP % ruth:/var/www/www.ta-sa.org/files/txt/.
26
27And the default is likely not useful to anybody but the few people around
28here :)
29
30The name of the textfile is the hex encoded md5 sum of the selection, so
31the same content should lead to the same filename.
32
33After a successful upload the selection will be replaced by the text given
34in the C<selection-pastebin-url> resource (again, the % is the placeholder
35for the filename):
36
37 URxvt.selection-pastebin.url: http://www.ta-sa.org/files/txt/%
38
39I<Note to xrdb users:> xrdb uses the C preprocessor, which might interpret
40the double C</> characters as comment start. Use C<\057\057> instead,
41which works regardless of whether xrdb is used to parse the resource file
42or not.
43
44=cut
5 45
6sub upload_paste { 46sub upload_paste {
7 my ($self) = @_; 47 my ($self) = @_;
8 48
9 require Digest::MD5; 49 require Digest::MD5;
10 50
11 my $txt = $self->selection; 51 my $txt = $self->selection;
52
53 my $filename = $txt;
54 utf8::encode $filename;
12 my $filename = Digest::MD5::md5_hex ($txt) . ".txt"; 55 $filename = Digest::MD5::md5_hex ($filename) . ".txt";
13 56
14 my $tmpfile = "/tmp/$filename"; 57 my $tmpfile = "/tmp/$filename";
15 58
16 my $msg = "uploaded as $filename"; 59 my $msg = "uploaded as $filename";
17 60
18 if (open my $o, ">", $tmpfile) { 61 if (open my $o, ">:utf8", $tmpfile) {
19 chmod 0644, $tmpfile; 62 chmod 0644, $tmpfile;
20 print $o $txt; 63 print $o $txt;
21 close $o; 64 close $o;
22 } else { 65 } else {
23 $msg = "couldn't write $tmpfile: $!"; 66 $msg = "couldn't write $tmpfile: $!";
24 } 67 }
25 68
26 my $cmd = $pastebin_cmd; 69 my $cmd = $self->{pastebin_cmd};
27 $cmd =~ s/%/$tmpfile/; 70 $cmd =~ s/%/$tmpfile/;
28 71
29 if (system ($cmd) == 0) { 72 my $pid = $self->exec_async ($cmd);
30 my $url = $pastebin_url;
31 $url =~ s/%/$filename/;
32 73
33 $self->selection ($url); 74 $self->{pw} = urxvt::pw->new->start ($pid)->cb (sub {
34 } else { 75 my (undef, $status) = @_;
35 $msg = "couldn't upload, '$cmd' failed";
36 }
37 76
38 unlink $tmpfile; 77 delete $self->{pw};
39 78
40 my $ov = $self->overlay (-1, 0, length $msg, 1, urxvt::OVERLAY_RSTYLE, 0); 79 if ($status) {
41 $ov->set (0, 0, $msg); 80 $status >>= 8;
81 $msg = "ERROR: command returned status $status";
82 } else {
83 my $url = $self->{pastebin_url};
84 $url =~ s/%/$filename/;
42 85
43 my $timer; $timer = 86 $self->selection ($url);
87 }
88
89 unlink $tmpfile;
90
91 my $ov = $self->overlay (-1, 0, $self->strwidth ($msg), 1, urxvt::OVERLAY_RSTYLE, 0);
92 $ov->set (0, 0, $msg);
93
94 $self->{timer} =
44 urxvt::timer 95 urxvt::timer
45 ->new 96 ->new
46 ->after (5) 97 ->after (5)
47 ->cb (sub { undef $timer; undef $ov; }); 98 ->cb (sub { delete $self->{timer}; undef $ov; });
99 });
48} 100}
49 101
50sub on_start { 102sub on_start {
51 my ($self) = @_; 103 my ($self) = @_;
52 104
53 $pastebin_cmd = $self->x_resource ("selection-pastebin.cmd") 105 $self->{pastebin_cmd} = $self->x_resource ("%.cmd")
54 || "rcp -p % ruth:/var/www/www.ta-sa.org/files/txt/"; 106 || "rcp -p % ruth:/var/www/www.ta-sa.org/files/txt/";
55 107
56 $pastebin_url = $self->x_resource ("selection-pastebin.url") 108 $self->{pastebin_url} = $self->x_resource ("%.url")
57 || "http://www.ta-sa.org/files/txt/%"; 109 || "http://www.ta-sa.org/files/txt/%";
58 110
59 push @{ $self->{term}{selection_popup_hook} }, sub { 111 push @{ $self->{term}{selection_popup_hook} }, sub {
60 ("pastebin upload" => sub { $self->upload_paste }) 112 ("pastebin upload" => sub { $self->upload_paste })
61 }; 113 };
62 114
63 () 115 ()
64} 116}
65 117
66sub on_keyboard_command { 118sub on_user_command {
67 my ($self, $cmd) = @_; 119 my ($self, $cmd) = @_;
68 120
69 if ($cmd eq "selection-pastebin:remote-pastebin") { 121 if ($cmd eq "selection-pastebin:remote-pastebin") {
70 $self->upload_paste; 122 $self->upload_paste;
71 } 123 }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines