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

Re: [MacPerl] HEEEEEELLLLLLPPPP!!!!!!



At 09.17 9/27/97, Alan Fry wrote:
>#!perl
>use Mac::Processes;
>use Mac::AppleEvents;
>
>foreach $psn (keys %Process) {
>    $proc = $Process{$psn};
>    $sig = $proc->{processSignature};
>    if ($sig =~ /PFPI|MACS|McPL/) {next} # apps to keep running
>    else {quit($sig)}
>}
>
>sub quit {
>    my $sig = shift;
>    #print $sig, "\n";
>    $evt = AEBuildAppleEvent(
>              'aevt', 'quit', typeApplSignature, $sig, 0, 0, ""
>           ) or die $^E;
>    $rep = AESend($evt, kAEWaitReply) or die $^E;
>
>    AEDisposeDesc $evt;
>    AEDisposeDesc $rep;
>}

This looks familiar.  :-)

What is PFPI, and why don't we want it to quit?

--
Chris Nandor             pudge@pobox.com             http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10  1FF7 7F13 8180 B6B6'])



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