Re: [MacPerl] A command line shell for the Mac ?

[Chris Nandor <pudge@pobox.com>]

At 2:41 -0400 1999.08.17, Joshua Juran wrote:
>>sign     Set the type and creator of a file based on an internal table for
>>suffixes
>>           eg if suffis is ".doc" make it a Word document, ".gif" and
>>".jpg" belong
>>           to Graphics Converter, ".htm" to BBedit, etc.
>
>Another good idea.  I'd base it on Internet Config.  In the meantime, I
>invite you to try out the droplet SpaceAliens (as in "Space aliens stole my
>icons!").  Written by the Internet Config authors, SpaceAliens sets type
>and creator based on filename extension according to IC.

It is really a simple matter with Mac::InternetConfig.

    use Mac::InternetConfig;
    $map = $InternetConfigMap{$file};
    MacPerl::SetFileInfo($map->file_creator, $map->file_type, $file);

Appropriate error-checking not included.

-- 
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-request@macperl.org