Oleg Alexeenkov > Net-DirectConnect > lib/Net/DirectConnect/filelist.pm

Download:
Net-DirectConnect-0.14.tar.gz

Annotate this POD

CPAN RT

Open  0
View/Report Bugs
Source  

SYNOPSIS ^

generate dc++ xml filelist

perl filelist.pm /path/to/dir

eval "use lib '$root_path./stat/pslib'"; eval "use lib '$root_path./../../../examples/stat/pslib'; use psmisc; use pssql; use Net::DirectConnect; use base 'Net::DirectConnect'; "; #use Net::DirectConnect; #psmisc::use_try ('Net::DirectConnect');

        $self->{share_full}{$tth} = $full_local, $self->{share_tth}{$full_local} = $tth, $self->{share_tth}{$file} = $tth,
          if $tth;
        $self->{share_full}{$file} ||= $full_local;
syntax highlighting: