[MacPerl] QuickTime 3.0

[pudge@pobox.com (Chris Nandor)]

I just read something disturbing in the licensing guidelines for QuickTime 3.0.

5.2 Waiver of License Fees . Apple waives the license fee payable under
Paragraph 5.1 for each copy of Licensee Programs that include all or any part of
the Apple Software that satisfies all of the requirements of this Paragraph 5.2
(an ÒExempt ProgramÓ). An Exempt Program must meet the following criteria:

(a) Upon installation of such Licensee Program, the installer program must
cause the file ÒGet QuickTime ProÓ (for Licensee Programs that operate
under MacOS) or ÒGet QuickTime Pro.movÓ (for Licensee Programs
that operate under Windows) to be played for the End User; and

(b) Each time such Licensee Program is launched by the End User, the
Licensee Program must cause the file ÒGet QuickTime ProÓ (for
Licensee Programs that operate under MacOS) or ÒGet QuickTime
Pro.movÓ (for Licensee Programs that operate under Windows) to be
installed on the desktop of the system on which the Licensee Program is
being used unless (i) the file is already there, or (ii) the End User has
QuickTime 3.0 Pro installed on his or her system.

There is no stipulation that the file must be visible, as a friend of mine
pointed out.  So here is a script that should need to be run only once; it
will make the existing file invisible, or create one and then make it
invisible.

#!perl -wl
# Fight the power!
use Mac::Files;
use strict;
my($file, $fileCat, $fileInfo);

$file = FindFolder(kOnSystemDisk(), kDesktopFolderType())
        . ':Get QuickTime Pro';
FSpCreate($file, qw/TVOD MooV/) if (! -e $file);
$fileCat  = FSpGetCatInfo($file)     or die($^E);
$fileInfo = $fileCat->ioFlFndrInfo() or die($^E);
$fileInfo->fdFlags(0x4000 | $fileInfo->fdFlags());
$fileCat->ioFlFndrInfo($fileInfo)    or die($^E);
FSpSetCatInfo($file, $fileCat)       or die($^E);
__END__

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10  1FF7 7F13 8180 B6B6'])
#==               New Book:  MacPerl: Power and Ease               ==#
#==    Publishing Date: Early 1998. http://www.ptf.com/macperl/    ==#



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