Export hard drive dir as XML via AppleScript?

Question

Does anyone know of a utility (even an AppleScript) that can take my hard drive (or a specific folder therein) and write the whole directory out (including nested folder structures) as an XML document? Need it urgently!

Answer 1

global eof_character
global indent_string
set eof_character to the ASCII character of 0
set indent_string to " "
set thestartingpoint to choose folder with prompt "Pick a folder to list as (not-quite-)XML." with invisibles and showing package contents
set include_invisibles to (the button returned of (display dialog "Do you want to include invisible items in the listing?" buttons {"No", "Yes"} default button "Yes") is "Yes")
set show_permissions to (the button returned of (display dialog "Do you want to include permissions (file owner, read/write/execute, etc.) in the listing?" buttons {"No", "Yes"} default button "Yes") is "Yes")
set output_file to open for access (choose file name with prompt "Where should the pseudo-XML be written?" default name "Not Really XML.xml") with write permission
try
     set the_info to info for thestartingpoint
     set the_kind to "folder"
     if the kind of the_info is "Volume" then set the_kind to "volume"
     set permissions_info to getpermissions_info(the_startingpoint)
     set the_contents to ""
     set insufficientaccess_tolist to "true"
     if item 1 of permissions_info is "1" then
          set the_contents to xmlfolder(the_startingpoint, indent_string, include_invisibles, show_permissions)
          set insufficientaccess_tolist to missing value
     end if
     set permissions_pairs to {}
     if show_permissions then
          set permissions_pairs to {{"permissions", item 2 of permissions_info}, {"owner", item 3 of permissions_info}, {"owner_id", item 4 of permissions_info}, {"group", item 5 of permissions_info}, {"group_id", item 6 of permissions_info}}
     end if
     write xml_entity("", the_kind, {{"name", the name of the_info}, {"creation_date", the creation date of the_info}, {"modification_date", the modification date of the_info}, {"extension_hidden", the extension hidden of the_info}, {"visible", the visible of the_info}, {"insufficientaccess_tolist", insufficientaccess_tolist}} & permissions_pairs, the_contents) to output_file as string
     close access output_file
on error msg number num
     close access output_file
     error msg number num
end try
on xmlfolder(thefolder, the_indent, include_invisibles, show_permissions)
     set the_result to ""
     set the_path to (the_folder as alias) as string
     set the_list to list folder the_folder invisibles include_invisibles
     repeat with x in the_list
          set the_item to ((the_path & x) as alias)
          set the_info to info for the_item
          set permissions_info to getpermissions_info(theitem)
          set permissions_pairs to {}
          if show_permissions then
               set permissions_pairs to {{"permissions", item 2 of permissions_info}, {"owner", item 3 of permissions_info}, {"owner_id", item 4 of permissions_info}, {"group", item 5 of permissions_info}, {"group_id", item 6 of permissions_info}}
          end if
          set standard_pairs to {{"name", the name of the_info}, {"creation_date", the creation date of the_info}, {"modification_date", the modification date of the_info}, {"extension_hidden", the extension hidden of the_info}, {"visible", the visible of the_info}}
          if the alias of the_info then
               tell application "Finder" to set the_original to (the original item of alias file the_item) as alias
               set the_result to the_result & xmlentity(theindent, "alias", standard_pairs & {{"original", the_original}} & permissions_pairs, "")
          else
               if the folder of the_info then
                    set the_contents to ""
                    set insufficientaccess_tolist to "true"
                    if item 1 of permissions_info is "1" then
                         set the_contents to xmlfolder(theitem, the_indent & indent_string, include_invisibles, show_permissions)
                         set insufficientaccess_tolist to missing value
                    end if
                    set the_result to the_result & xmlentity(theindent, "folder", standard_pairs & {{"insufficientaccess_tolist", insufficientaccess_tolist}} & permissions_pairs, the_contents)
               else
                    set the_result to the_result & xmlentity(theindent, "file", standard_pairs & {{"locked", the locked of the_info}, {"size", the size of the_info}, {"type", the file type of the_info}, {"creator", the file creator of the_info}} & permissions_pairs, "")
               end if
          end if
     end repeat
     return the_result
end xml_folder
on xmlentity(theindent, the_name, the_attributes, the_contents)
     set the_result to ""
     repeat with x in the_attributes
          set the_result to the_result & xml_attribute(item 1 of x, item 2 of x)
     end repeat
     if the_contents is "" then
          set the_result to the_indent & "<"<">" & return & the_contents & the_indent & "</""
     else
          return " " & the_label & "=\"" & xmlescape(thevalue) & "\""
     end if
end xml_attribute
on xmlescape(thestring)
     set the_string to the_string as string
     if (the offset of eof_character in the_string) > 0 then
          return eofavoider(thestring)
     else
          return do shell script ("perl -e 'my $a = $ARGV[0]; $a =~ s/&/&/g; $a =~ s/</</g; $a =~ s/>/>/g; $a =~ s/\"/"/g; while ( $a =~ m/^(.)([\x01-\x1F])(.)$/s ) { $a = $1 . \"&#\" . ord($2) . \"" . $3; } print $a;' " & the quoted form of the_string)
     end if
end xml_escape
on eofavoider(thestring)
     if the_string is eof_character then
          return "&#0;"
     else
          set the_offset to the offset of eof_character in the_string
          if the_offset is 0 then
               return xmlescape(thestring)
          else
               if the_offset is 1 then
                    return "&#0;" & xml_escape(text 2 through -1 of the_string)
               else
                    return xml_escape(text 1 through (the_offset - 1) of the_string) & eof_avoider(text the_offset through -1 of the_string)
               end if
          end if
     end if
end eof_avoider
on getpermissions_info(theitem)
     return the paragraphs of (do shell script ("perl -e 'my @a = lstat($ARGV[0]); my @u = getpwuid($a[4]); my @g = getgrgid($a[5]); printf \"%d\\n%04o\\n%s\\n%d\\n%s\\n%d\", ( ( -r $ARGV[0] ) ? ( 1 ) : ( 0 ) ), $a[2] & 07777, $u[6], $u[2], $g[0], $g[2];' " & the quoted form of (the POSIX path of the_item)))
end getpermissionsinfo