At 17.02 -0500 1999.08.06, Cameron Ashby wrote: >On Fri, 6 Aug 1999, Chris Nandor <pudge@pobox.com> wrote: > >> # need to send event to MacPerl >> $evt = build_event(qw(gtqp lgin McPL), q{'----':TEXT(@), >> pwrd:TEXT(@)}, >> $user, $pass); >> $evt->send_event(kAENoReply); # no reply is the only way to get it to >> work >> # reliably (well, queueing might work >> too) > >Ok. That works quite nicely. Thanks again. > >Obviously, I'd be more than happy to beta test any of your modules if you >can send them to me or point me to the new versions. > >In the mean time, I'll be working on handling the replies from remote >events >async. There is already facility for that, if I understand what you want. Install a handler for aevt\ansr, and send the events with kAEQueueReply. #!perl -wl use Mac::AppleEvents::Simple qw(:all); use Mac::Events; $AppleEvent{"aevt", "ansr"} = \&foo; $x = build_event(qw(syso ppcb R*ch)); $x->send_event(kAEQueueReply); print "fooo!"; WaitNextEvent until $done; sub foo { my($evt, $rep) = @_; print AEPrint $evt; print AEPrint $rep; $done = 1; 0; } -- 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