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;