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