| … | |
… | |
| 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, ">", $tmpfile) { |
| 19 | chmod 0644, $tmpfile; |
19 | chmod 0644, $tmpfile; |
| 20 | print $o $txt; |
20 | print $o $txt; |
| 21 | close $o; |
21 | close $o; |
