[MacPerl] list of volumes (was UnmountVol)

[Kevin Walker <kwalker@euclid.ucsd.edu>]

Thanks to those who submitted applescript solutions to the UnmountVol
problem (and, in advance, to Matthias for adding the toolbox call to the
next release of MacPerl).

Now I need a way to locate the (audio) CD that I want to unmount and eject.

(1) If I could obtain a list of noames of mounted volumes (or a list of
everything which shows up on the desktop, including the mounted volumes),
I'd be happy to search for the volume name via /^Audio CD [0-9]+$/, and
then plug into the above mentioned applescript methods.  But I can't figure
out how obtain such a list.  Is there a magic pathname I can plug into
opendir/readdir?

(2) I already have (from another source) the vRefNum for the CD I want to
unmount.  Is there a way to modify

  $alias = NewAliasMinimal("theVolume:");
  $evt = AEBuildAppleEvent('fndr', 'ptwy', 'sign', 'MACS', 0, 0,
  "'----':alis(\@\@)", $alias) or die $^E;

so that it works with a vRefNum instead of the name of the volume?




***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch