- if($path->isdir())
- {
- return(".", "..", $path->dirents(), 0);
- }
- return -ENOTDIR();
+ return(-ENOTDIR()) unless($path->isdir());
+ my @dents=(".", "..");
+ my($dirs, $files)=$path->dirents();
+ push(@dents, grep { $self->hascontents($filename, $_); } @$dirs);
+ push(@dents, @$files);
+ return(@dents, 0);
+}
+
+sub hascontents
+{
+ return 1;
+ # FIXME
+ my($self, $base, $dir)=@_;
+ print "hascontents: $base / $dir\n";
+ my $path=ID3FS::Path->new($self->{db}, "$base/$dir");
+ print "VALID: ", $path->isvalid(), "\n";
+ return 1 unless($path->isvalid());
+ my($subdirs,$subfiles)=$path->dirents();
+ print "SUBDIRS: ", join(", ", @$subdirs), "\n";
+ print "SUBFILES: ", join(", ", @$subfiles), "\n";
+ return 1 if(@$subdirs || @$subfiles);
+ return 0;