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

Re: [MacPerl] AppleEvents with remote addresses



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