[perl]skrypt do IRSSI

witam

kolejny problem ze skryptem.
w sumie sa 2 warianty rozwiazania tego, ale zadnego nie moge "wymeczyc".

mam 2 skrypty jeden to xdccget.pl -> http://irssi.org/scripts/html/xdccget.pl.html

skrypt generalnie powinien kolejkowac paczki sciagane z bota po prostu trzeba wpisac "/zdccget query nick_bota nr nr ..." i problem w tym, ze niestety nie jest w stanie "rozroznic" czy plik sie juz sciagnal czy nie i co za tym idzie zawiesza sie.

14:42 DCC received file Congo_Natty-Blackstar-RAS8X-2002-sour.tar [13MB] from [DB]-MoNTY in 00:00:48 [289.17kB/s] tak wyglada linijka, ktora ma zostac odczytana jako informacja o skonczeniu sciagania, natomiast w kodzie skryptu wyglada to tak:

	} elsif (/\*\*\* Transfer Completed/i) {
    	    print CLIENTCRAP "%R>>%n XDCC-Transfer completed";
	    # Mark the transfer as completed
	    $queue[0]->{'status'} = 4;

probowalem to przerabiac, ale niestety nie dziala. Jest ktos w stanie pomoc ?

Drugie rozwiazanie wymyslilem tak, ze chcialem dodac do drugiego skryptu linijke, ktora wysylalaby po skonczonym sciaganiu komende do skryptu xdccget.pl usuwajaca 1 element z kolejki sciagania.

#! /usr/bin/perl
#
#    $Id: dccmove.pl,v 1.3 2004/03/08 21:32:11 peder Exp $
#
# Copyright (C) 2003 by Peder Stray <[email protected]>
#

use Irssi;
use vars qw{$VERSION %IRSSI};
($VERSION) = '$Revision: 1.3 $' =~ / (\d+\.\d+) /;
%IRSSI = (
          name        => 'dccmove',
          authors     => 'Peder Stray',
          contact     => '[email protected]',
          url         => 'http://ninja.no/irssi/dccmove.pl',
          license     => 'GPL',
          description => 'Move completed dcc gets to the subfolder done',
         );

sub sig_dcc_closed {
    my($dcc,$server) = @_;
    my($dir,$file);


    return unless $dcc->{type} eq 'GET';
    return unless -f $dcc->{file};

    ($dir,$file) = $dcc->{file} =~ m,(.*)/(.*),;
    $dir .= "/dcc";

    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);

    $server->command("xdccget cancel 1");
}

Irssi::signal_add('dcc closed', 'sig_dcc_closed');

no i oczywiscie tez nie dziala.

chcialem zeby w tej linijce po prostu wysylal komende "/xdccget cancel 1"

$server->command("xdccget cancel 1");

jest ktos kto pomoze?