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

Comparing rxvt-unicode/src/perl/selection (file contents):
Revision 1.28 by elmex, Tue Jan 17 13:19:45 2006 UTC vs.
Revision 1.29 by root, Tue Jan 17 16:22:41 2006 UTC

… …
5my $pastebin_cmd; 5my $pastebin_cmd;
6my $pastebin_url; 6my $pastebin_url;
7 7
8sub on_start { 8sub 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
20sub upload_paste { 18sub upload_paste {

Diff Legend

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