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

[MacPerl] calling MacPerl via AEvents



I'm reasonably familar with Unix Perl, but am having trouble getting
started on the Mac. Any help you can offer is appreciated.

I am trying to run a MacPerl script from Tango, a database/cgi application.
I found this AppleScript in the MacPerl list archives:

---
property env : {"HOME", "Boot", "TEMP", "Boot:Temporary Items"}
property perlScript : "Boot:Scripting:MacPerl Ù:called_by_as_test.pl"
property opts : {"-n", "-x", "Boot:Scripting"}

tell application "MacPerl"
   try
      Do Script ({perlScript} & opts) mode batch environment env without
extract
   on error errorMessage number errorNumber
      return errorNumber
   end try
end tell
---

Tango doesn't send AppleScripts per se, but has the option to send
AppleEvents. I tried to render the above script in AppleEvents and got it
mostly working, except that %ENV and @ARGV are empty.

In Tango, these are the params and stuff that I sent. Is there something
wrong with how I'm sending it?
Tango dialog looks like this:

-------------------------------------------------------
Target Application:  :perl:MacPerl
Event Class Code:     misc    Event Code: dosc

Parameters:
----       web:perl:scripts:env.pl               (four dashes is the direct
param in Tango conventions)
MODE     BATC
ENVT      {"a","1","b","2"}
EXTR      false
--------------------------------------------------------

The script is obviously running -- I've even managed to send output back to
Tango, but %ENV is clearly empty ($#ENV = -1), and I can't work out a way
to include @ARGV arguments without causing errors.

TIA.




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