Paste: svn symlink sanity checker

Author: atax1a
Mode: factor
Date: Fri, 18 Feb 2022 19:32:46
Plain Text | 
` svn ls --xml https://svn.example.net/rpms/7` string>xml
"list" tag-named "entry" tags-named
[ [ "kind" attr "dir" = ] 
  [ "name" tag-named children>string "OWNERS" = ]
   bi or ] reject
[ "name" tag-named children>string
  [  ]
  [ "svn cat https://svn.example.net/rpms/7/" prepend
    utf8 [ contents ] with-process-reader ]
  [ "https://yum.local.example.net/7/" "/OWNERS" surround 
    [ http-get ] [ drop "" ] recover 
    "\n" split harvest nip ]
    tri 3array ] map
[ second "link ../" head? ] filter
[ pprint nl ] without-limits

New Annotation

Summary:
Author:
Mode:
Body: