1395 USBMass1 for a network shares ... on an Apple Mac

[markstuartwalker]

I would like to use this plugin to write to a network share i.e. a drive letter mapped to a shared folder on another machine. This allows me to export a subset of my tracks and playlists to another laptop. In my case it's an Apple Mac.

This may seem to be an abomination of the original plugin design scope but the analogy is very close - they both present a drive letter to MM.

There are a few things which don't work logically
* The Device Name doesn't get applied when it is changed.
* Scanning behaviour when the drive letter isn't mapped causes huge timeouts. It would be better interpretted as 'device not attached'.
* Find Device and Device Label are illogical

Could these be fixed?

[nohitter151]

There are a few things which don't work logically
* The Device Name doesn't get applied when it is changed.

Have you tried on the latest builds? Because it was just fixed:
http://www.ventismedia.com/mantis/view.php?id=7999

* Find Device and Device Label are illogical

Could these be fixed?

Can you explain how? What do you mean?

[markstuartwalker]

I was on 1395. I'll try later.

Find Device clearly can't work for a network share as it looks for USB devices ... and there is none for a network share.

Device label is also USB oriented. For a network share it could take the volume name or the share name.

[nohitter151]

Find Device clearly can't work for a network share as it looks for USB devices ... and there is none for a network share.

Device label is also USB oriented. For a network share it could take the volume name or the share name.

Ok? But what's your point? The USB mass is clearly not only for network shares, it can also be used for USB.

[markstuartwalker]

Find Device clearly can't work for a network share as it looks for USB devices ... and there is none for a network share.

Device label is also USB oriented. For a network share it could take the volume name or the share name.

Ok? But what's your point? The USB mass is clearly not only for network shares, it can also be used for USB.

I'd like a device driver for network shares!

[Lowlander]

You can use USBMass on a mapped network share.

[markstuartwalker]

Yes, I know. But there are anomalies due to it being designed for USB. I was hoping that some of these might be addressed.

[rusty]

Hi,

Not really an abomination--I kind of like the idea. It's something that we've even thrown around in the past (to kind of munge the Virtual CD and Sync functionality, since virtual CD is really just a reverse sync).

In any case, I'm copying this to the wishlist for future consideration.

-Rusty

[markstuartwalker]

Thanks very much.

I have now got an applescript that will take the playlist and music files from this exported network share and import them into iTunes on my Mac.

For this to work the Device Configuration must be set to
* Library Playlists
* Destination directory = \
* Force Relative Paths
* Use Unicode
* Use Linux Folder Separator

Code: Select all

(*
*)


on readFile(unixPath)
   set foo to (open for access (POSIX file unixPath))
   set txt to (read foo for (get eof foo))
   close access foo
   return txt
end readFile

tell application "Finder"
   activate
   
   set playlistFolder to choose folder with prompt "Please choose the folder containing the Playlists"
   set playlistFiles to name of every file of folder playlistFolder
   set playlistcount to count of files in folder playlistFolder
   --display dialog playlistcount
   
end tell
--
--
tell application "iTunes"
   activate
   
   set root to playlistFolder as string
   
   repeat with i from 1 to the playlistcount
      
      -- the filename
      set theFile to item i of playlistFiles
      --if type of theFile is file then
      set theSuffix to text ((offset of "." in theFile) + 1) thru -1 of theFile
      --display dialog theSuffix
      
      if theSuffix = "m3u" then
         
         tell application "iTunes"
            
            -- build the playlist name            
            set theName to text 1 thru ((offset of "." in theFile) - 1) of theFile
            display dialog "Playlist to import " & theName giving up after 10
            
            -- find or create the playlist in iTunes
            try
               set new_playlist to (some playlist whose name is theName)
            on error errmesg number errn
               --display dialog errmesg & return & return & "error number: " & ¬
               (errn as text)
               log "Create " & theName
               set new_playlist to (make new user playlist with properties {name:theName})
            end try
            
         end tell
         
         -- read the file contents
         set thePlaylist to {root & theFile} as alias
         my readFile(POSIX path of thePlaylist)
         set thecontents to result
         set thelines to every paragraph of thecontents
         
         my checkLInes(thelines)
         set thePathCount to result
         
         -- loop through the lines
         tell application "iTunes"
            set i to 1
            
            -- Get the list of tracks
            set theTracks to (get a reference to every track of new_playlist)
            set k to count of items of theTracks
            --display dialog k
            --display dialog thePathCount
            
            if not k = thePathCount then
               repeat with j from 1 to the count of thelines
                  
                  set thetrack to (item j of thelines) as string
                  if not thetrack = "" then
                     
                     set thetrack to POSIX path of (root) & thetrack
                     
                     repeat while (i ≤ k)
                        -- Find the path on this track
                        set theLocation to (location of (item i of theTracks)) as text
                        set theLocation to POSIX path of theLocation
                        --log i & k
                        --log thetrack & " " & theLocation
                        
                        -- compare the new and old location
                        if not theLocation = thetrack then
                           -- remove the offending track
                           log "delete " & i & theLocation
                           delete item i of theTracks
                           set k to k - 1
                        else
                           exit repeat
                        end if
                     end repeat
                     
                     if not (i ≤ k) then
                        try
                           set thetrack to POSIX file thetrack as string
                           
                           log "Add " & thetrack
                           --display dialog "Add " & thetrack
                           add thetrack to new_playlist
                        end try
                     end if
                     set i to i + 1
                  end if
               end repeat
            end if
         end tell
      end if
   end repeat
   
   
end tell

on checkLInes(thelines)
   
   set k to 0
   repeat with j from 1 to the count of thelines
      set thetrack to (item j of thelines) as string
      if not thetrack = "" then
         set k to k + 1
      end if
      
   end repeat
   
   return k
   
end checkLInes


While we're on the subject of wishlisting it would be good to be able to trigger scripts before or after synchronisation too.

[markstuartwalker]

Updated script

Code: Select all

(*
*)


on readFile(unixPath)
   set foo to (open for access (POSIX file unixPath))
   set txt to (read foo for (get eof foo))
   close access foo
   return txt
end readFile

-- Where all the playlists are
set playlistFolder to choose folder with prompt "Please choose the folder containing the Playlists"
set playlistFiles to my getPlaylistNames(playlistFolder)


--
--
--set root to playlistFolder as string
set addCount to 0

set playlistcount to count of playlistFiles
repeat with i from 1 to the playlistcount
   
   -- the filename
   set theFile to item i of playlistFiles
   
   -- build the playlist name
   set theName to my nameOf(POSIX path of theFile)
   display dialog "Playlist to import " & theName giving up after 1
   
   -- find or create the playlist in iTunes
   tell application "iTunes"
      try
         set new_playlist to (some playlist whose name is theName)
      on error errmesg number errn
         --display dialog errmesg & return & return & "error number: " & ¬
         (errn as text)
         log "Create " & theName
         set new_playlist to (make new user playlist with properties {name:theName})
      end try
      
   end tell
   
   -- read the file contents
   set thecontents to my readFile(POSIX path of theFile)
   set thelines to every paragraph of thecontents
   
   set thePathCount to my checkLInes(thelines)
   
   -- loop through the lines
   tell application "iTunes"
      set i to 1
      
      -- Get the list of tracks
      set theTracks to (get a reference to every track of new_playlist)
      set k to count of items of theTracks
      --display dialog k
      --display dialog thePathCount
      
      if not k = thePathCount then
         repeat with j from 1 to the count of thelines
            
            set thetrack to (item j of thelines) as string
            if not thetrack = "" then
               
               set thetrack to POSIX path of (playlistFolder) & thetrack
               
               repeat while (i ≤ k)
                  -- Find the path on this track
                  set theLocation to (location of (item i of theTracks)) as text
                  set theLocation to POSIX path of theLocation
                  --log i & k
                  --log thetrack & " " & theLocation
                  
                  -- compare the new and old location
                  if not theLocation = thetrack then
                     -- remove the offending track
                     log "delete " & i & theLocation
                     delete item i of theTracks
                     set k to k - 1
                  else
                     exit repeat
                  end if
               end repeat
               
               if not (i ≤ k) then
                  try
                     set thetrack to POSIX file thetrack as string
                     
                     log "Add " & thetrack
                     --display dialog "Add " & thetrack
                     add thetrack to new_playlist
                     set addCount to addCount + 1
                  end try
               end if
               set i to i + 1
            end if
         end repeat
      end if
   end tell
end repeat

display dialog "Complete. Added=" & addCount


on checkLInes(thelines)
   
   set k to 0
   repeat with j from 1 to the count of thelines
      set thetrack to (item j of thelines) as string
      if not thetrack = "" then
         --set j to j - 1
         set k to k + 1
      end if
      
   end repeat
   --set k to count of thelines
   
   return k
   
end checkLInes

on extOf(theFile)
   set theSuffix to text ((offset of "." in theFile) + 1) thru -1 of theFile
   return theSuffix
end extOf

on nameOf(thePath)
   set n to (offset of "/" in (reverse of characters of thePath) as string) - 1
   set theFile to text ((length of (thePath)) - n + 1) thru -1 of thePath
   set theName to text 1 thru ((offset of "." in theFile) - 1) of theFile
   return theName
end nameOf

on getPlaylistNames(playlistFolder)
   tell application "Finder"
      activate
      set playlistFiles to name of every file of folder playlistFolder
   end tell
   
   set root to playlistFolder as string
   
   set thePlaylistAliasList to {}
   set playlistcount to count of playlistFiles
   log playlistcount
   repeat with i from 1 to the playlistcount
      
      -- the filename
      set theFile to item i of playlistFiles
      --if type of theFile is file then
      
      set theSuffix to my extOf(POSIX path of theFile)
      --display dialog "Suffix " & theSuffix
      
      if theSuffix = "m3u" then
         
         set thePlaylist to {root & theFile} as alias
         
         copy thePlaylist to the end of thePlaylistAliasList
         
      end if
   end repeat
   return thePlaylistAliasList
end getPlaylistNames