… | |
… | |
11 | my $txt = $self->selection; |
11 | my $txt = $self->selection; |
12 | my $filename = Digest::MD5::md5_hex ($txt) . ".txt"; |
12 | my $filename = Digest::MD5::md5_hex ($txt) . ".txt"; |
13 | |
13 | |
14 | my $tmpfile = "/tmp/$filename"; |
14 | my $tmpfile = "/tmp/$filename"; |
15 | |
15 | |
16 | my $msg = "uploaded $filename"; |
16 | my $msg = "uploaded as $filename"; |
17 | |
17 | |
18 | if (open my $o, ">", $tmpfile) { |
18 | if (open my $o, ">:utf-8", $tmpfile) { |
19 | chmod 0644, $tmpfile; |
19 | chmod 0644, $tmpfile; |
20 | print $o $txt; |
20 | print $o $txt; |
21 | close $o; |
21 | close $o; |
22 | } else { |
22 | } else { |
23 | $msg = "couldn't write $tmpfile: $!"; |
23 | $msg = "couldn't write $tmpfile: $!"; |
… | |
… | |
42 | |
42 | |
43 | my $timer; $timer = |
43 | my $timer; $timer = |
44 | urxvt::timer |
44 | urxvt::timer |
45 | ->new |
45 | ->new |
46 | ->after (5) |
46 | ->after (5) |
47 | ->cb (sub {undef $timer; undef $ov; }); |
47 | ->cb (sub { undef $timer; undef $ov; }); |
48 | } |
48 | } |
49 | |
49 | |
50 | sub on_start { |
50 | sub on_start { |
51 | my ($self) = @_; |
51 | my ($self) = @_; |
52 | |
52 | |