[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl-Modules] Users & Groups



At 16.42 -0400 1999.06.18, Vicki Brown wrote:
>Should I go read the Glue readme?

Yes, even if not for this task!  :)

Anyway, I got a script working to do it.  The good news is it works just
like the AppleScript version does.  The bad news is that neither one
changes the owner or group.  :(

#!perl -wl
use strict;
use Mac::Glue ':all';
my $f = new Mac::Glue 'Finder';

my_chown('Pudge', 'Peoples', 'Bourque:Desktop Folder:regents:');


sub my_chown {
    my($owner, $group, @list) = @_;
    foreach my $fol (@list) {
        my $folder = $f->obj(folder => $fol);
        $f->set( $f->prop(owner => $folder), to => $owner);
        warn $^E if $^E;
        $f->set( $f->prop(group => $folder), to => $group);
        warn $^E if $^E;
    }
}

__END__

Right now I have owner Peoples and group Pudge.  If I do a get owner of
folder (in AppleScript or Perl), I get those answers.  But if I try to set
them, nothing.  I don't know if it is a bug in the Finder or what.  If
someone can get me three lines of AppleScript to set the owner or group,
that would do it.  I have:

  tell app "Finder"
    set group of folder "folder" to "group name"
  end tell

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-modules-request@macperl.org