--- rxvt-unicode/src/perl/selection-pastebin	2006/01/17 16:53:47	1.1
+++ rxvt-unicode/src/perl/selection-pastebin	2006/01/19 19:51:08	1.12
@@ -1,34 +1,22 @@
 #! perl
-use Digest::MD5 qw/md5_hex/;
 
-my $timers = {};
 my $pastebin_cmd;
 my $pastebin_url;
 
-sub on_start {
-   my ($self) = @_;
-   $pastebin_cmd =
-      $self->x_resource ("selection-pastebin-cmd")
-      or "scp -p % ruth:/var/www/www.ta-sa.org/files/txt/";
-
-   $pastebin_url = 
-      $self->x_resource ("selection-pastebin-url")
-      or "http://www.ta-sa.org/files/txt/";
-   ();
-}
-
 sub upload_paste {
    my ($self) = @_;
 
+   require Digest::MD5;
 
    my $txt = $self->selection;
-   my $filename = md5_hex ($txt) . ".txt";
+   my $filename = Digest::MD5::md5_hex ($txt) . ".txt";
 
    my $tmpfile = "/tmp/$filename";
 
-   my $msg = "uploaded $filename";
+   my $msg = "uploaded as $filename";
 
-   if (open my $o, ">" . $tmpfile) {
+   if (open my $o, ">", $tmpfile) {
+      chmod 0644, $tmpfile;
       print $o $txt;
       close $o;
    } else {
@@ -47,22 +35,40 @@
       $msg = "couldn't upload, '$cmd' failed";
    }
 
-   my $ov = $timers->{ov} = $self->overlay (-1, 0, length ($msg), 1, urxvt::OVERLAY_RSTYLE, 0);
+   unlink $tmpfile;
+
+   my $ov = $self->overlay (-1, 0, length $msg, 1, urxvt::OVERLAY_RSTYLE, 0);
    $ov->set (0, 0, $msg);
 
-   $timers->{t1} =
+   my $timer; $timer =
       urxvt::timer
               ->new
-              ->start ((int urxvt::NOW) + 5) # make sure we update "on" the second
-              ->interval (1)
-              ->cb (sub { delete $timers->{ov}; delete $timers->{t1}; });
+              ->after (5)
+              ->cb (sub { undef $timer; undef $ov; });
+}
+
+sub on_start {
+   my ($self) = @_;
+
+   $pastebin_cmd = $self->x_resource ("selection-pastebin.cmd")
+                   || "rcp -p % ruth:/var/www/www.ta-sa.org/files/txt/";
+
+   $pastebin_url = $self->x_resource ("selection-pastebin.url")
+                   || "http://www.ta-sa.org/files/txt/%";
+
+   push @{ $self->{term}{selection_popup_hook} }, sub {
+      ("pastebin upload" => sub { $self->upload_paste })
+   };
+
+   ()
 }
 
 sub on_keyboard_command {
    my ($self, $cmd) = @_;
 
-   $cmd eq "selection-pastebin:remote-pastebin"
-      and upload_paste ($self);
+   if ($cmd eq "selection-pastebin:remote-pastebin") {
+      $self->upload_paste;
+   }
 
    ()
 }