Re: [MacPerl] Mac::Glue?

[Brian McNett <webmaster@mycoinfo.com>]

>Do you know how to do it in AppleScript?  I can only guess, since I don't
>use ClarisWorks.  It is an application-specific problem.  You could try
>omitting the direct object.  It says it is required, but maybe it is not.
>I dunno.

Uh, not "ClarisWorks", Chris...

I had to scrounge for an example, but I think it goes something like:

tell application "Claris Emailer 1.1v3"

  connect to "Internet" with checking and sending

end tell

Where "Internet" is what Emailer calls a "service," which in this case 
contains both of my primary accounts.  According to the docs I could 
replace that with an individual account name.

However, when I try:

#!perl -w
use strict;
use Mac::Glue;

my $obj = new Mac::Glue 'Claris_Emailer_1_1v3';
$obj->connect_to("Internet", [checking => 1, sending => 1]);

# 'Internet' parameter not available
File 'Dev:Pseudo'; Line 6

and this:

#!perl -w
use strict;
use Mac::Glue;
use vars qw( $obj @raw_accounts $i);

$obj = new Mac::Glue 'Claris_Emailer_1_1v3';
@raw_accounts = $obj->get_accounts();

foreach $i (@raw_accounts) { 
    $obj->connect_to($raw_accounts[$i], [checking => 1, sending => 1]);
}

produces:

# Argument "Linknet" isn't numeric in aelem.
File '<AppleEvent>'; Line 10
# 'Linknet' parameter not available
File 'Dev:Pseudo'; Line 10

There should be a few more things I can try.

>>BTW, Chris:  Great job. Even if it is still in beta, the fact that I can
>>get as far as I have with it (given my peculiar combination of genius and
>>cluelessness), says a lot for the hard work you've put into Mac::Glue.
>
>Heh, thanks.  I think.  ;-)

Hey, if it's simple enough so that I can understand it, you must be on to 
something!

--B

# Brian McNett                                      Fungal Parataxonomy
# Webmaster, Staff Writer               Mycology Information (Mycoinfo)
#                              **The World's First Mycology E-Journal**   
# <mailto:webmaster@mycoinfo.com>            <http://www.mycoinfo.com/>
# First they ignore you. Then they laugh at you. Then they fight you.
# Then you win.                                     --Mohandas Gandhi


# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org