to resolve the problem of
how to contrive a portable Perl script incorporating a
'MacPerl::DoAppleScript call?
Suggestions would be most welcome.
Alan Fry
--
Chris Nandor
pu...@pobox.com
http://pudge.net/
expansion project soon, and
will be looking for wishlist items. Stay tuned.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
.
This is nice in that it doesn't depend on external processes (sw_vers,
Finder) or files.
use Mac::Gestalt qw(%Gestalt gestaltSystemVersion);
(my $version = sprintf(%x, $Gestalt{gestaltSystemVersion()})) =~
s/^(\d+)(\d)(\d)$/$1.$2.$3/;
--
Chris Nandor [EMAIL PROTECTED
worthy
than some of the other grants they've done.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
At 16:12 -0400 2007.04.09, Sherm Pendley wrote:
On Mar 28, 2007, at 7:57 PM, Chris Nandor wrote:
What cpan requires File::HomeDir::Darwin? CPAN.pm, or some
script ... ?
The latest CPAN.pm requires File::HomeDir, which in turn requires
File::HomeDir::Darwin. I'm not certain when that change
ppc -nostdinc
# -B/Developer/SDKs/MacOSX10.4u.sdk/usr/include/gcc
# -B/Developer/SDKs/MacOSX10.4u.sdk/usr/lib/gcc
# -isystem/Developer/SDKs/MacOSX10.4u.sdk/usr/include
# -F/Developer/SDKs/MacOSX10.4u.sdk/System/Library/Frameworks
# -fno-strict-aliasing -pipe
# -Wdeclaration-after-statement
--
Chris
tell application app_name
set win_count to count of windows
if (win_count is greater than 0) then
set win_name to name of window 1
end if
end tell
end try
Tim.
--
Chris Nandor
Mac::Glue;
my $finder = new Mac::Glue 'Finder';
$finder-obj(file = $alias)-update;
Cheers,
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
, '') or die $Mac::Errors::MacError;
CloseResFile($res);
# set alias attribute
my $finfo = FSpGetFInfo($alias) or die $Mac::Errors::MacError;
$finfo-fdFlags( $finfo-fdFlags | kIsAlias );
FSpSetFInfo($alias, $finfo) or die $Mac::Errors::MacError;
--
Chris Nandor
, in ex/eudora_send_mail, along with a bunch of other examples.
Feel free to ask any such questions, though you might want to Cc: me when
you mail the list, since I only glance at the list about once a week or so.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open
At 19:03 +0100 2006.08.10, John Delacour wrote:
At 8:45 pm -0700 9/8/06, Chris Nandor wrote:
For the latter part, you may wish to just use Mac::Glue to script iCal. You
can create calendars, add new events, and so on.
Chris, where do I get glue for BBEdit and other things? My glues
directory
the CPAN, then
... I dunno, it probably should be in your path. It wouldn't hurt to
install latest Mac::Glue (and Mac::Carbon too), if you are using the one
that shipped with Tiger (esp. if you have an Intel Mac, since the one that
shipped doesn't work!).
--
Chris Nandor [EMAIL
calendar.
For the latter part, you may wish to just use Mac::Glue to script iCal. You
can create calendars, add new events, and so on.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
instead of the speakers, which I am using for my online radio
show (podcast to some of you), where I generate questions from people
using speech synthesis (http://pudge.net/ask/).
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL
, rather than making people upgrade their Test::More for this one
test, I reverted it back to a plain require() for 0.76, which is on your
CPAN shelves now.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http
Thanks for all the input, I got a lot of small bugs fixed, in tests and
docs mostly, and a small one in code. No major code changes, no
Intel-specific code changes.
The Intel box goes back to Apple in a few days, so ... test now!
--
Chris Nandor [EMAIL PROTECTED]http
.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
together to make it work.
Finally, you can hardcode the path to helper.pl in desc.t and event.t and
run the tests again.
Thanks,
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
. It is currently broken on Intel, too.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
::Glue, does not work yet on Intel; my
port should be done in a week.)
Hope that helps,
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
perl -MMac::Carbon -e1
real0m0.938s
user0m0.570s
sys 0m0.093s
Of course, Mac::Carbon does not work on Intel systems ... not for another
couple of weeks anyway.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL
at Apple. So by then, I
plan to have new Intel-compatible releases of the
Mac::Carbon/AppleEvents/OSA/Glue modules on the CPAN, along with my notes
and so on.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http
means Mac::Glue doesn't work.
I don't have real access to an Intel Mac, so I have no hope of fixing it
anytime soon.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
= IsRunning('com.apple.dock');
kill SIGTERM, GetProcessPID($psn);
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
, you need version 1.90; 1.91 is
included in Tiger, so you should be fine if you're using that. Older
versions of the module can still handle the four-char code syntax.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED
In article [EMAIL PROTECTED],
[EMAIL PROTECTED] (Chris Nandor) wrote:
Oops, typo. This:
print 1 if grep 'Photoshop', `ps auxw`;
should be:
print 1 if grep /Photoshop/, `ps auxw`;
And I forgot to mention -- just because it may be useful -- you can also
convert between PID and PSN
-dependent); the combined close with saving
## is the most efficient method
# $pdf-save;
$pdf-close(saving = enum('yes'));
}
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
scalar on derference, JPEG8BIM, is not really what it appears, as it has
packed bits for fdFlags and fdLocation, and is length 16, not 8.
OK, yes, it is a bit odd to use a SCALAR ref for that, but you should be
using the methods so you don't need to care. :-)
--
Chris Nandor
to have to wrap every perl script in
Apllescript :-(
I noticed the same thing, but have not yet had a chance to try to debug it.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
, $time)),
)-get;
# check our work
for (@tracks) {
print $_-prop('name')-get, : ;
print scalar localtime $_-prop('played date')-get, \n;
}
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
Perl and XS will run on Mac OS
X/Intel!
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
, especially). But I've no reason to think that we
won't be able to take care of what needs to be taken care of.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
for a small feature addition in
0.72, so there's really no great reason to wait for 0.73.
Thanks,
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
In article [EMAIL PROTECTED],
[EMAIL PROTECTED] (Joel Rees) wrote:
Anyone know why
http://www.perl.org/community.html
describes the macperl list as Mac Perl - OS 7-9 and X discussion
Probably just old. You could try to contact whoever controls the page.
--
Chris Nandor
At 1:48 -0400 2005.05.02, Sherm Pendley wrote:
*However*, there's a note at the top of Carbon.h mentioning that type
cast, so I assume you had a good reason for adding it in the first
place...
I should find out who wrote that note and ask him why he did it.
--
Chris Nandor
.
The scripts needed to do so are included too.
cd /System/Library/Perl/Extras/bin/
sudo ./gluedialect
sudo ./gluescriptadds
sudo ./gluemac '/System/Library/CoreServices/System Events.app'
sudo ./gluemac /System/Library/CoreServices/Finder.app
--
Chris Nandor
-1.23.tar.gz
-- NOT OK
Running make test
Can't test without successful make
Running make install
make had returned bad status, install seems impossible
Somewhere in the snipped output, there would be the make output, showing an
error.
--
Chris Nandor [EMAIL
look
too hard to get an accurate and complete list of $state values. It's 0 when
not connected, 8 when connected, and 1-7 while in different connection
phases (dialing, authentication, etc.).
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology
In article [EMAIL PROTECTED],
[EMAIL PROTECTED] (Mark Wheeler) wrote:
Thanks for the input. I'll start working on it and see what I can come
up with. One question: Is Mac::Sound a module? I've not heard of it.
It's included with Mac-Carbon, which is a prereq for Mac::Glue.
--
Chris Nandor
be of some interest.
(Also perhaps of interest: the Makefile.PL automatically creates a glue for
Growl, for Mac::Glue to use, so the user doesn't have to ... feel free to
take that or give tips to me on how it can be improved.)
--
Chris Nandor [EMAIL PROTECTED]http
editor. :-)
Anyway, it's on SourceForge.net if you care.
http://sf.net/projects/pudge/
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
): The date of the photo. (read-only)
In Script Editor, you will see this as:
date Unicode text [r/o] -- The date of the photo.
There ain't nothing Mac::Glue can do to fix that problem.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology
At 9:49 -0600 2005.02.15, Ken Williams wrote:
Would be nice if the error was
/Applications/AddressBook.app - no such file or directory
then.
You are most wise. :)
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Technology Group [EMAIL
-summarize($mytext);
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
need to make one explicitly.
$mboxes = [ $account-obj('mailboxes')-get ];
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
; make install manually from the shell from
there.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
.
This didn't happen before. (that is, it worked on an older machine)
I think you entered the filename incorrectly. There's a space:
% sudo gluemac /Applications/Address\ Book.app
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network
BBEdit for perl development, but didn't want to buy
it, then now's your chance.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
the right idea with the memory thing.
If it continues to be a problem, I can try to hop on a dual G5 and try it
out myself.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
. It printed 3.1.2 and then
brought Address Book to the front.
My wild offhand guess is that you have a different mod_perl than installed
perl: different version, or architecture, or something.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development
. (This was somewhat documented in the Mac::Glue
POD, using iPhoto as an example, for a different problem.)
Good luck,
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
Where can I find the application glue for Growl? This is what I'm
getting:
You have to create it, as per the Mac::Glue docs, with gluemac.
GrowlHelperApp is located in
/Library/PreferencePanes/Growl.prefPane/Contents/Resources/.
--
Chris Nandor [EMAIL PROTECTED]http
do we do if it is not? :-) Any ideas? Is the source for
PerlObjCBridge available? Could it use CamelBones instead ... ? I saw it
has a Carbon API too, I think, so maybe I could use that ...
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development
= 1
);
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
trying to work on the next, the order is messed up and you have an
invalid object, as the actual AEDesc in each $phone object in that loop
references an index (phone number 1, phone number 2, etc.).
Cheers,
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source
.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
-v
Server version: Apache/1.3.29 (Darwin)
Server built: Feb 4 2004 10:31:58
(That is, it's the default Apache, default perl, default mod_perl, etc.
Everything is default, and Apache::MP3 is the latest.)
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source
statements to Apache::MP3
and watch the error log, find out where it is going wrong.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
is
being wasted.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
At 18:23 +0100 2004.07.21, John Delacour wrote:
At 10:12 am -0700 21/7/04, Chris Nandor wrote:
Can you give the complete error message? My brain reminds me you don't like
to use the CPAN shell, which means you might not have all the modules
installed, which means that you likely got an error
.
Writing Makefile for Mac::Glue
Perhaps I was wrong to assume you had ulterior motives, but this has come
up twice in the last year from you, and both times you snipped the part
where you were told which module was missing.
--
Chris Nandor [EMAIL PROTECTED]http
')-get;
}
To set:
for my $email ($person-prop('emails')-get) {
my $value = $email-prop('value');
(my $text = $value-get) =~ s/\@/[EMAIL PROTECTED]/;
print $value-set(to = $text);
}
Hope that helps,
--
Chris Nandor [EMAIL PROTECTED]http
:)
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
= 'Wonder'] ))-get;
That returns for a card for the name Stevie Wonder, with no other info. If
I change it to Sn Wonder, I get an uninitialized value warning in the
print.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL
Photo Gallery with
iPhoto and Perl hack.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
am I doing wrong here? (Other than using a Mac...)
:p
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
to which part of speech, and tell blocks are one of the
prime examples. Why isn't last calendar the direct object of make, but
instead, of end? Computer languages aren't supposed to make you guess this
much. :)
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open
further trap all attempts to climb the directory tree in the uri.
You can use Mac::InternetConfig to disable the protocol handlers. But
RCDefaultApp is a better solution for this.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network
) password prompt not hide
your typed password? Yeesh!
$ security unlock-keychain
password to unlock default: adsdasd^C
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
, or being online, any longer. You
can back up to any local volume (including shared volumes over the network).
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
At 22:50 -0500 2004.04.20, Ken Williams wrote:
On Apr 14, 2004, at 2:57 PM, Chris Nandor wrote:
I've been called out! ;-) Here's a version with Mac::Glue.
...
Say, I built the Address_Book glue and looked through its docs, but I
don't see methods to search the database for entries that have
')),
with_properties = {
street = '123 Main St.',
city = 'New York',
state = 'NY',
label = 'home',
}
);
__END__
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
with Address Book is in ex/.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
alignment line in.
Hope that helps; if there's something you don't understand, please ask.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
problems with AppleScript: it doesn't grok Unix paths natively.
There's something you can do like POSIX path to ... I forget the syntax.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
see it. I'd write to the XSpell author and
complain.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
In article [EMAIL PROTECTED],
[EMAIL PROTECTED] (Rick Measham) wrote:
On 18 Mar 2004, at 6:06 AM, Chris Nandor wrote:
This works:
my $obj = $finder-obj(folder = '/Users/pudge/Movies');
my $size = $finder-data_size($obj);
Chris, what is the data_size?
Beats me; I took
, where I have absolutely
no
problem with commercial software postings. :-)
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
that may arise.
After reading through it and getting a general understanding, please feel
free to ask any Mac OS X-perl-specific questions here.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
, but Mac::Glue will get that coerced to plain text on the way
out normally, and yes, nonstandard chars will often end up as '?' or such.
If you need other options, let me know, we can discuss what you need.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source
the current song).
http://dev.macperl.org/files/scripts/happening
http://dev.macperl.org/files/scripts/np.pl
The former was discussed some in a recent perl.com article:
http://www.perl.com/pub/a/2004/01/23/macglue.html
Hope that helps,
--
Chris Nandor [EMAIL
-check_for_new_mail;
__END__
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
/a/2004/01/23/macglue.html
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
---
Processes/t/Processes.t2 512 62 33.33% 5-6
Scrolling up I find the following:
Processes/t/Processes..ok 4/6# Failed test
Try running the tests with 'make test TEST_VERBOSE=1'.
--
Chris
). What am I doing wrong?
Not giving me more information with which I could diagnose the problem! :-)
What is enters a loop of running the test files? Do you have logs?
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL
, based on gcc version 2.95.2 19991024
(release)
[EMAIL PROTECTED] pudge]$ sudo gcc_select 3.3
Default compiler has been set to:
gcc version 3.3 20030304 (Apple Computer, Inc. build 1495)
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development
for more information.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
: 0 (0x0)
interaction level: 64 (0x40)
reply required: 1 (0x1)
remote: 0 (0x0)
See what the values for the AppleScript and Mac::Glue versions are.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED
-prop('comment')-get;
Of course, the problem remains, how does AppleScript know that it can't use
the same value that iPhoto returned? Note that the aete for iPhoto says
nothing about types comp OR float, it says to use typeLongInteger for ID, so
that doesn't help. :-)
--
Chris Nandor
';
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
'); # ?
$document-close;
Cheers,
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
)
remote: 0 (0x0)
target:
{ 1 } 'psn ': 8 bytes {
{ 0x0, 0x120001 } (Finder)
}
optional attributes:
empty record
event data:
{ 1 } 'aevt': - 0 items {
}
}
--oo end of event oo--
--
Chris Nandor [EMAIL PROTECTED]http
, this is not as efficient as the perl at the top, which gets
everything in a single event.
Hope that helps,
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
it to folders too! Next version of Mac::Glue will allow:
$finder-obj(folder = '/Users/SomeUser/folder')-update;
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
http://www.perl.com/lpt/a/2004/01/23/macglue.html
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
In article [EMAIL PROTECTED],
[EMAIL PROTECTED] (Sherm Pendley) wrote:
Off-topic, I know, and I apologize for that in advance.
Today I received two emails, both with forged headers. One appeared to
come from Pudge (Chris Nandor), and the other from Mattias Neeracher.
Both included virus
and
Disk and Domain Constants under Constants.
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development Network[EMAIL PROTECTED] http://osdn.com/
object include set(), append(), size(). e.g.,
$ perl -MMac::Memory -le '
$a = new Handle foo;
print $a-size;
print $a-get;
$a-append(bar);
print $a-size;
print $a-get;
'
3
foo
6
foobar
Cheers,
--
Chris Nandor [EMAIL
= new Mac::Glue 'Mail';
my $source = $mail-prop(
source =
message = $message_index,
mailbox = $mailbox,
account = $account
);
print $source-get;
See the thread on Mac::Carbon Profiling for some performance comparisons
between Mac::Glue and AppleScript.
--
Chris
installing Mac-Carbon, adding use MacPerl; to the
script, and using it as-is. If you don't want to install all of Mac-Carbon,
Mac-AppleScript is your best bet. Stay away from osascript.
Cheers,
--
Chris Nandor [EMAIL PROTECTED]http://pudge.net/
Open Source Development
1 - 100 of 252 matches
Mail list logo