diff options
| author | Jules <jules@asdf.us> | 2015-01-18 04:11:04 -0500 |
|---|---|---|
| committer | Jules <jules@asdf.us> | 2015-01-18 04:11:04 -0500 |
| commit | 43ccccbf6a1055d48640fed175b360655968118c (patch) | |
| tree | c9b1f115b9d015cdc7e9851020ee57abfd66a767 | |
| parent | 97143b05493fb5e7e7c62fd4ceb09d3027ed990c (diff) | |
| parent | cb8a2d291815764d47f65687110b7d73661879d9 (diff) | |
Merge branch 'master' of asdf.us:xdcc
| -rwxr-xr-x | xdcc.pl | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -4,7 +4,7 @@ use strict; use Irssi; use vars qw($VERSION %IRSSI); -$VERSION = "1.02"; +$VERSION = "1.03"; %IRSSI = ( authors => 'Julie LaLa', @@ -59,7 +59,8 @@ People can request files from you using these commands: /ctcp <nickname> XDCC list /ctcp <nickname> XDCC get 1 /ctcp <nickname> XDCC batch 2-4 -/ctcp <nickname> XDCC queue +/ctcp <nickname> XDCC remove 3 +/ctcp <nickname> XDCC help Only one file will be sent at a time. Additional requests are added to a queue. @@ -189,13 +190,14 @@ sub xdcc_batch { my ($from, $to) = split("-", $index, 2); $from = int $from; $to = int $to; - if ($from > $to || $from < 1 || $to < 1 || $from > @files || $to > @files) { + if ($from >= $to || $from < 1 || $to < 1 || $from > @files || $to > @files) { xdcc_message( $server, $nick, 'illegal_index' ); return; } for (var $i = $from; $i <= $to; $i++) { xdcc_enqueue($server, $nick, $i); } + xdcc_message($dcc->{server}, $dcc->{nick}, 'xdcc_autoget_tip'); } sub xdcc_remove { my ($server, $nick, $index) = @_; |
