--- rxvt-unicode/src/urxvt.pm 2006/01/15 06:02:41 1.94 +++ rxvt-unicode/src/urxvt.pm 2006/01/17 16:53:47 1.97 @@ -68,7 +68,7 @@ You can look at the source of the selection extension to see more interesting uses, such as parsing a line from beginning to end. -This extension also offers the following bindable keyboard command: +This extension also offers following bindable keyboard commands: =over 4 @@ -164,6 +164,23 @@ window. Illustrates overwriting the refresh callbacks to create your own overlays or changes. +=item selection-pastebin + +Uploads the selection as textfile to a remote site. + + URxvt.keysym.C-M-e: perl:selection-pastebin:remote-pastebin + +To set the command to upload the file set this resource: + + URxvt.selection-pastebin-cmd: rsync -apP % ruth:/var/www/www.ta-sa.org/files/txt/. + +The % is the placeholder for the textfile. The name of the textfile is the hex encoded +md5 sum of the selection. +After an successful upload the selection will be replaced by the following url +(the % is the placeholder for the filename): + + URxvt.selection-pastebin-url: http://www.ta-sa.org/files/txt/% + =back =head1 API DOCUMENTATION @@ -483,12 +500,6 @@ Messages have a size limit of 1023 bytes currently. -=item $is_safe = urxvt::safe - -Returns true when it is safe to do potentially unsafe things, such as -evaluating perl code specified by the user. This is true when urxvt was -started setuid or setgid. - =item $time = urxvt::NOW Returns the "current time" (as per the event loop). @@ -613,7 +624,7 @@ open my $fh, "<:raw", $path or die "$path: $!"; - my $source = untaint + my $source = "package $pkg; use strict; use utf8;\n" . "use base urxvt::term::extension::;\n" . "#line 1 \"$path\"\n{\n"