Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub _writeTempFile2 {
- my ($self, $data) = @_;
- my $filename = "/storage/rtorrent/ $self->{ti}{torrentName}.torrent";
- open(my $fh, '>', $filename) or die "Could not open file '$filename' $!";
- print $fh $data;
- close $fh;
- $AutodlIrssi::g->{tempFiles}->add($filename);
- return $filename;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement