1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
#
# Copyright (C) 2003-2021 by Peder Stray <peder.stray@gmail.com>
#
use strict;
use Irssi;
use vars qw{$VERSION %IRSSI};
($VERSION) = '$Revision: 1.4.1 $' =~ / (\d+(\.\d+)+) /;
%IRSSI = (
name => 'dccmove',
authors => 'Peder Stray',
contact => 'peder.stray@gmail.com',
url => 'https://github.com/pstray/irssi-dccmove',
license => 'GPL',
description => 'Move completed dcc gets to the subfolder done',
);
sub sig_dcc_closed {
my($dcc) = @_;
my($dir,$file);
return unless $dcc->{type} eq 'GET';
return unless -f $dcc->{file};
($dir,$file) = $dcc->{file} =~ m,(.*)/(.*),;
$dir .= "/done";
if ($dcc->{transfd} < $dcc->{size}) {
printf('%%gDCC aborted %%_%s%%_, %%R%d%%%%%%g remaining%%n',
$file,
$dcc->{size} ? 100 - $dcc->{transfd}/$dcc->{size}*100 : 0,
);
return;
}
mkdir $dir, 0755 unless -d $dir;
rename $dcc->{file}, "$dir/$file";
printf('%%gDCC moved %%_%s%%_ to %%_%s%%_%%n', $file, $dir);
}
Irssi::signal_add_last('dcc closed', 'sig_dcc_closed');
|
