Posted to tcl by iobates at Sun Sep 20 14:47:51 GMT 2026view raw

  1. proc list-files-recur {path} {
  2. set books {}
  3. foreach fil [glob -dir $path *] {
  4. if {[file isdir $fil]} {
  5. list-files-recur $fil
  6. } else {
  7. lappend books $fil
  8. }
  9. }
  10. puts $books
  11. return $books
  12. }
  13.  
  14. proc insert-calibre {path} {
  15. foreach f [list-files-recur $path] {
  16. exec calibredb add $f
  17. }
  18. }
  19.  

Add a comment

Please note that this site uses the meta tags nofollow,noindex for all pages that contain comments.
Items are closed for new comments after 1 week