sub read_all { return read_recursiv($_[0]); }

sub read_recursiv {
  my $url=shift;
  my $list=$plm->readFilesAndDirs($url);
  for(@$list) {
    $_->{FOLDER} = read_recursiv($_->{LINK}) if($_->{isDIR});
  }
  return $list;
}