From 537389377db7aed9f7778f0eb69ad14c46bc8422 Mon Sep 17 00:00:00 2001 From: Julie Lala Date: Sun, 18 Jan 2015 04:10:21 -0500 Subject: links --- xdcc.pl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'xdcc.pl') diff --git a/xdcc.pl b/xdcc.pl index 64e9ef6..f43d024 100755 --- a/xdcc.pl +++ b/xdcc.pl @@ -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 XDCC list /ctcp XDCC get 1 /ctcp XDCC batch 2-4 -/ctcp XDCC queue +/ctcp XDCC remove 3 +/ctcp 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) = @_; -- cgit v1.2.3-70-g09d2