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

Comparing rxvt-unicode/src/perl/selection-pastebin (file contents):
Revision 1.15 by root, Wed Jan 25 15:33:43 2006 UTC vs.
Revision 1.16 by root, Fri Mar 10 21:36:16 2006 UTC

… …
4 my ($self) = @_; 4 my ($self) = @_;
5 5
6 require Digest::MD5; 6 require Digest::MD5;
7 7
8 my $txt = $self->selection; 8 my $txt = $self->selection;
9
10 my $filename = $txt;
11 utf8::encode $filename;
9 my $filename = Digest::MD5::md5_hex ($txt) . ".txt"; 12 $filename = Digest::MD5::md5_hex ($filename) . ".txt";
10 13
11 my $tmpfile = "/tmp/$filename"; 14 my $tmpfile = "/tmp/$filename";
12 15
13 my $msg = "uploaded as $filename"; 16 my $msg = "uploaded as $filename";
14 17

Diff Legend

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