… | |
… | |
5 | my $pastebin_cmd; |
5 | my $pastebin_cmd; |
6 | my $pastebin_url; |
6 | my $pastebin_url; |
7 | |
7 | |
8 | sub on_start { |
8 | sub on_start { |
9 | my ($self) = @_; |
9 | my ($self) = @_; |
10 | $pastebin_cmd = |
|
|
11 | (urxvt::untaint $self->x_resource ("selection-pastebin-cmd")) |
10 | $pastebin_cmd = $self->x_resource ("selection-pastebin-cmd") |
12 | or "scp -p % ruth:/var/www/www.ta-sa.org/files/txt/"; |
11 | or "scp -p % ruth:/var/www/www.ta-sa.org/files/txt/"; |
13 | |
12 | |
14 | $pastebin_url = |
|
|
15 | (urxvt::untaint $self->x_resource ("selection-pastebin-url")) |
13 | $pastebin_url = $self->x_resource ("selection-pastebin-url") |
16 | or "http://www.ta-sa.org/files/txt/"; |
14 | or "http://www.ta-sa.org/files/txt/"; |
17 | (); |
15 | (); |
18 | } |
16 | } |
19 | |
17 | |
20 | sub upload_paste { |
18 | sub upload_paste { |