Advertisement
Guest User

Untitled

a guest
Feb 21st, 2018
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.30 KB | None | 0 0
  1. sub _writeTempFile2 {
  2. my ($self, $data) = @_;
  3.  
  4. my $filename = "/storage/rtorrent/ $self->{ti}{torrentName}.torrent";
  5. open(my $fh, '>', $filename) or die "Could not open file '$filename' $!";
  6. print $fh $data;
  7. close $fh;
  8.  
  9. $AutodlIrssi::g->{tempFiles}->add($filename);
  10.  
  11. return $filename;
  12. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement