Re: MacPerl::DoAppleScript and Perl v5.10.0

2011-03-07 Thread Chris Nandor
not sensible to restore the setting of > Prefer-32-Bit to 'No' at the end of the run because the owner may have > already set it to 'Yes' anyway. > > The second question is this. Is there a better way 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/

Re: Mac OS alias from Perl

2008-03-11 Thread Chris Nandor
finder = new Mac::Glue 'Finder'; print $finder->make( new => 'alias', at => $finder->prop('desktop'), to => $finder->obj(file => "/Users/peter/thefile.cpp") # or: # to => $finder->obj(alias =>

Re: Thanks Apple! You snubbed perl yet again!

2007-10-18 Thread Chris Nandor
am likely going to start a Mac::Glue feature 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/

Re: Thanks Apple! You snubbed perl yet again!

2007-10-18 Thread Chris Nandor
I run Slash (the code that runs Slashdot) on my Mac. Everything does Just Work for me. Perl, Apache, mod_perl, TT, MySQL. Although I build from the source on both Mac *and* Linux (except MySQL, which I get binaries from in both cases), so maybe that's the difference. Not sure what you m

Re: Detecting OS X version from perl

2007-10-15 Thread Chris Nandor
> between 10.3.3 and 10.3.4. 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/;

Re: CamelBones: Will hack for food!

2007-05-07 Thread Chris Nandor
ly this is more 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/

Re: Mac::Carbon issues

2007-04-10 Thread Chris Nandor
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::

Re: Mac::Carbon issues

2007-03-28 Thread Chris Nandor
SDKs/MacOSX10.4u.sdk/System/Library/Frameworks # -fno-strict-aliasing -pipe # -Wdeclaration-after-statement -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/

Re: Fwd: Code Examples for NewAlias

2007-01-18 Thread Chris Nandor
but from your code, you can also do: use 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/

Re: How to gather some basic info (front-most app and title)

2007-01-18 Thread Chris Nandor
if screen saver is running > -- is "SecurityAgent" if prompting for a password to unlock > end tell > > try > 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 [EMAIL PROTECTED]http://pudge.net/ Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/

Re: Code Examples for NewAlias

2006-11-06 Thread Chris Nandor
s::MacError; AddResource($alis, typeAlias, 0, '') 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($alia

Re: Eudora glue

2006-08-18 Thread Chris Nandor
;obj(mailbox => 'Out') insertionloc('end ', ['euMB'][":Out"]) is like location(end => $box) core.create('CSOm', 'euMS', ...) is like $eudora->make(new => 'message') etc. The full example of creating, composin

Re: iCal modules

2006-08-10 Thread Chris Nandor
rl/Extras/bin/. If you installed it from 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 shi

Re: iCal modules

2006-08-10 Thread Chris Nandor
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

Re: iCal modules

2006-08-09 Thread Chris Nandor
and put the > dates into an iCal 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/

Updates for Mac-Carbon, Mac-Glue, etc.

2006-07-07 Thread Chris Nandor
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

Re: Mac::Carbon for Intel ... Done?

2006-06-23 Thread Chris Nandor
At 8:10 -0500 2006.06.23, Ken Williams wrote: >On Jun 19, 2006, at 9:40 PM, Paul McCann wrote: > >> Hi Chris, >> >>> Go play with it, if you have an Intel Mac. Let me know if you find >>> anything wrong, and let me know soon, since I have less than a >>> week left >>> with this Intel Mac. >> >> Th

Mac-Carbon-0.76

2006-06-21 Thread Chris Nandor
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

Re: Mac::Carbon for Intel ... Done?

2006-06-20 Thread Chris Nandor
ich puzzles me, but not enough that I will spend much more time on it, I'll just throw something 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/

Re: Installation of Mac::Growl fails

2006-06-20 Thread Chris Nandor
wl.info/ticket/330 Please let me know whether that helps. -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/

Mac::Carbon for Intel ... Done?

2006-06-19 Thread Chris Nandor
owing. It is currently broken on Intel, too. -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/

Re: AppleScript Interface

2006-06-17 Thread Chris Nandor
-- -23% -75% doscript365/s 975% 193% 154% 151% 30% -- -68% applescptc 1136/s 3248% 811% 691% 682% 305% 211% -- (Note: much of Mac::Carbon, and Mac::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/

Re: file creator id, etc

2006-06-14 Thread Chris Nandor
ernetConfig, OSA, AppleEvents, Notification, Process, Resources, and so on -- on my PowerBook G4/1GHz: $ time 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. --

Porting Mac::Carbon to Intel

2006-06-01 Thread Chris Nandor
ue back 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

Intel Macs Break Mac::Glue etc.

2006-01-16 Thread Chris Nandor
in AESend(), in AppleEvents.xs). That also 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/

Re: How to find out if an application is running

2005-10-14 Thread Chris Nandor
7;; my $psn = IsRunning('com.apple.dock'); kill SIGTERM, GetProcessPID($psn); -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/

Re: How to find out if an application is running

2005-10-12 Thread Chris Nandor
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 c

Re: How to find out if an application is running

2005-10-12 Thread Chris Nandor
ccept a four-char code, in this case, IsRunning('8BIM'), like the Mac::Glue code does. For the Mac::Apps::Launch code to work, 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 cod

Re: Sendkeys

2005-08-30 Thread Chris Nandor
a look; this is the part that may need to ## be done with UI scripting # $pdf->prop('commenting')->set(to => 1); ## usually, you can close "with saving," but you may ## need to save explicitly, or you vice versa (again, ## app-depend

Re: Get/set file type/creator in plain Perl?

2005-08-03 Thread Chris Nandor
. The resulting 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

Re: Mac::Glue, g_t, and dates

2005-06-14 Thread Chris Nandor
; my $time = timelocal(0, 0, 0, 1, 0, 105); # jan 1 2005 my @tracks = $library->obj(track => whose(played_date => g_t => param_type(typeLongDateTime, $time)), )->get; # check our work for (@tracks) { print $_->prop('name')->get, ": "; print scalar lo

Re: Script menu no longer runs perl scripts in Tiger?

2005-06-14 Thread Chris Nandor
s to no avail. > > Any clues? I'd hate 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/

Re: ActiveState is announcing support for Mac OS X

2005-06-07 Thread Chris Nandor
ActiveState will make sure 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/

Re: Universal Binary vs. Perl5

2005-06-07 Thread Chris Nandor
y there aren't a lot of concerns, and Lord knows I have mine (the ones Dan raise here, 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/

Re: Macperl list false advertising?

2005-05-04 Thread Chris Nandor
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 contr

Re: Mac::Carbon installation woes

2005-05-03 Thread Chris Nandor
't personally recommend it). 0.72 and 0.73 have only build fixes, except 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/

Re: Mac::Glue and Tiger

2005-05-02 Thread 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. --

Mac::Glue and Tiger

2005-05-01 Thread Chris Nandor
reate your own. 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/CoreService

Re: Mac::Glue script

2005-04-28 Thread Chris Nandor
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Ted Zeng) wrote: > It is possible that it could not write out the > makefile. Then everything will fail after that. That seems unlikely ... it created that directory, and wrote files to it already during the untar process. --

Re: Mac::Glue script

2005-04-28 Thread Chris Nandor
nning make install >make had returned bad status, install seems impossible Note the pattern. The make is failing for everything, without even any make actually happening. My guess is you didn't install all the parts of the Developer Tools or whatever. Another possibil

Re: Mac::Glue script

2005-04-28 Thread Chris Nandor
ue-1.23 > >CPAN.pm: Going to build C/CN/CNANDOR/Mac-Glue-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 out

Re: Mac::Glue script

2005-04-26 Thread Chris Nandor
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 prere

Re: Mac::Glue script

2005-04-26 Thread Chris Nandor
the connection is > closed, Internet Connect quits and the script ends. Just keep checking $state->get until it is false, apparently. I didn't 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 diffe

Re: Installing Mac::Carbon / gcc

2005-04-16 Thread Chris Nandor
3.3. NB: Under Tiger, gcc 4 is in use, and Mac::Carbon will not build under gcc 4. One therefore also needs to set gcc to 3.3 under Tiger. Anyone who wants to take on this project of getting it to build under gcc 4 would be my own private hero. -- Chris Nandor [EMAIL PROT

Growl, PerlObjCBridge, Glue, etc.

2005-03-03 Thread Chris Nandor
igured it might 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 [EMAI

Re: What Perl editor do you recommend?

2005-03-02 Thread Chris Nandor
omeone knew your IP address and that you were running cenotaph, they could open any number of files to your 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/

Re: set photo properties in iPhoto

2005-02-21 Thread Chris Nandor
= $photo->prop( "date" ); printf( qq|date is "%s"\n|, $date->get ); $date->set( to => "..." ); But there is a bigger problem. From `gluedoc iPhoto`, under Classes => photo: date (idat/utxt): The date of the photo. (read-only) In Script Edit

Re: Next Problem...

2005-02-15 Thread Chris Nandor
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 Gro

Re: Questions about Perl and Mac::Glue

2005-02-14 Thread Chris Nandor
ever you want the mailboxes. But if you want a Perl reference to the list of all mailboxes, then you just 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/

Re: Question: glue for the Summarize service?

2005-02-14 Thread Chris Nandor
any other scriptable app print $finder->summarize($mytext); -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: Next Problem...

2005-02-11 Thread Chris Nandor
Mac/AETE/App.pm line 252, line 1. > > 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]

Re: Installing Mac::Glue

2005-02-11 Thread Chris Nandor
can type "look Mac::Glue" and then do the perl Makefile.PL ; make ; make test ; make install manually from the shell from there. -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: Mac::Glue and mod_perl

2005-01-27 Thread Chris Nandor
le users are running at once and a different user is active than the one you're trying to execute with, then perhaps. -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: installation weirdness with Mac::Glue

2005-01-20 Thread Chris Nandor
thing if you don't change something. I wonder if maybe Joel has 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/

TextWrangler

2005-01-20 Thread Chris Nandor
ve always liked 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/

Re: Mac::Glue and mod_perl

2005-01-14 Thread Chris Nandor
7;Address Book', 'bourque.local', undef, undef, 'pudge', 'pass'; print $book->prop('version')->get, "\n\n"; $book->activate; I went to the URL in my browser, and it worked. It printed "3.1.2" and the

Re: iTunes shell

2005-01-05 Thread Chris Nandor
at's very fast, assuming a. you can get the unique IDs, and b. they are reliably consistent for you. (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/

Re: Mac-Growl

2004-11-11 Thread Chris Nandor
>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 PROTECT

Re: Mac-Growl

2004-11-10 Thread Chris Nandor
...", icon_of_application => "Finder", sticky => 1 ); -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: Mac-Growl

2004-11-10 Thread Chris Nandor
he module was > compiled. So what 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]h

Re: Deleting fields from Address Book entries with Mac::Glue

2004-09-17 Thread Chris Nandor
if ($seen{$string}++) { $phone->delete; print ": Deleted"; } print "\n"; } __END__ Note that I do reverse in the for loop, because if you delete one entry before trying to work on the next, the order is messed up and you have an invalid object, as the

Re: pSync/Panther how?

2004-08-04 Thread Chris Nandor
build with gcc2. -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: pSync/Panther how?

2004-08-03 Thread Chris Nandor
runs psync under the hood, works fine > for me... It's precompiled. Chances are, the problem is getting it to compile. -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: Apache::MP3 no worky

2004-08-03 Thread Chris Nandor
he error log. No ideas offhand. I'd start adding print STDERR 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/

Re: Apache::MP3 no worky

2004-08-03 Thread Chris Nandor
tpd /usr/sbin/httpd $ httpd -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:

Re: Mac::Glue performance versus Mac::OSA::Simple

2004-07-31 Thread Chris Nandor
ness with translating the perl into raw Apple events, that's faster than compiling AppleScript. -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: Mac::Glue which syntax

2004-07-27 Thread Chris Nandor
ll'; my $itunes = new Mac::Glue 'iTunes'; my $id = 45; my $track = $itunes->obj( tracks => whose(database_id => equals => $id), playlist => 1 ); $track->play; __END__ I hope that helps a bit. BTW, I posted a Name That Tune script using iTunes and Mac::Glue. http://use.perl.org/~pudge/journal/19985 -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: Mac::Glue::VERSION

2004-07-21 Thread Chris Nandor
complete... Looks good Warning: prerequisite Mac::AppleEvents::Simple 1.14 not found. 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 mo

Re: Mac::Glue::VERSION

2004-07-21 Thread Chris Nandor
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

Re: Mac::Glue::VERSION

2004-07-21 Thread Chris Nandor
ule was not installed before you got the error about VERSION, which means my time is being wasted. -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: Mac::Glue::VERSION

2004-07-20 Thread Chris Nandor
ious > Test returned status 255 (wstat 65280, 0xff00) > DIED. FAILED tests 1-2 > Failed 2/2 tests, 0.00% okay > t/pod.ok > Failed Test Stat Wstat Total Fail Failed List of Failed -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: Mac::Glue and Address Book

2004-07-18 Thread Chris Nandor
l'; my $glue = new Mac::Glue 'Address Book'; my @found; my @people = $glue->obj('people')->get; for my $person (@people) { my @emails = $person->prop(value => 'emails')->get; push @found, $person if grep /aol/i, @emails; } -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: Mac::Glue and Address Book

2004-07-14 Thread Chris Nandor
il object, which you can then get and set with the value property. for my $email ($person->prop('emails')->get) { print $email->prop('value')->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://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: Mac::Glue and Address Book

2004-07-04 Thread Chris Nandor
your parens/brackets slightly): print my $person = $ab->obj( people => whose(AND => [ first_name => begins_with => 'S' ], [ last_name => equals => 'Wonder'] ))->get; That returns for a card for the name Stevie Wonder, with no other inf

Re: Krazy Mac::Glue entities

2004-07-04 Thread Chris Nandor
t common stuff that's slurped into each glue. > Is this, like, every four-letter Apple ID that has ever lived? Or can > I really find out how many degrees Kelvin my friends are? tell application "Address Book" get (count of people) as degrees Kelvin end tell ==> degrees Kelvin 614.0 :) -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Mac OS X Panther Hacks book

2004-07-01 Thread Chris Nandor
"Automate a Web Photo Gallery with iPhoto and Perl" hack. -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: Mixing MacPerl and Glue causes Halucinations

2004-06-12 Thread Chris Nandor
7;t need it after the next release of Mac::Glue. > What 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/

Re: ical glue

2004-05-30 Thread Chris Nandor
gt; { summary => "foo" } ); In theory, we could make $calendar->make work, but I am not sure of the best way to figure out the proper location() object and add $calendar to it. It would be a bit complicated. It's one more reason to be hateful of AppleScript: it's so har

Re: Anyone got a perl script to catch the disk: and help: uris in web browsers?

2004-05-26 Thread Chris Nandor
n re-writing it in perl, and maybe even > 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 PROTECTE

Mac::Carbon, Mac::Glue updates

2004-05-19 Thread Chris Nandor
$events = new Mac::Glue 'System Events'; $events->obj( menu_item => 'Close', menu=> 'File', menu_bar_item => 'File', menu_bar=> 1, process => 'Preview' )->click; (Mor

Re: Passwords

2004-05-13 Thread Chris Nandor
fo. Am I missing something, or does the security(1) 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/

Mac OS X and perl

2004-05-06 Thread Chris Nandor
y to be a bit more on-topic to increase the list's effectiveness. Cheers, -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: backing up system

2004-04-30 Thread Chris Nandor
available to .Mac subscribers, but the app itself does not require a .Mac account, 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/

Re: Merging into Address Book

2004-04-21 Thread Chris Nandor
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 s

Re: Merging into Address Book

2004-04-14 Thread Chris Nandor
value => '555-123-4567', label => 'work', } ); $ab->make(new => 'phone', at => location(end => $person->prop('phones')), with_properties => { value => '555-890-1234', label => 'home',

Re: Merging into Address Book

2004-04-09 Thread Chris Nandor
for working with Address Book is in ex/. -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: Mac::Glue and OmniGraffle

2004-04-02 Thread Chris Nandor
r change was adding ':all' to Mac::Glue, so you can get location(). Oh, also, I changed before to beginning. When debugging, I noticed you were using beginning in the AppleScript. They are different constants, but I don't think it made a difference at all. I also added your 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/

Re: Curiosity with osascript

2004-03-24 Thread Chris Nandor
you're in the Terminal, you 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/

Re: Preview.app opening multiple files

2004-03-24 Thread Chris Nandor
e standard dialect and additions, so I'll add that to my TODO list. As to your 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/

Re: Getting the size of a folder with Mac::Glue

2004-03-22 Thread Chris Nandor
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->da

Re: Mac::Glue Mail.app question reseting name field

2004-03-17 Thread Chris Nandor
nk in the field > from my prior versions. How can I reset the name field and have some > control over what goes in there? What is the "name"? It is not listed in the Mail.app dictionary for the outgoing message class. What is it supposed to do? -- Chris Nandor

Re: Getting the size of a folder with Mac::Glue

2004-03-17 Thread Chris Nandor
info on object descriptor records. This works: my $obj = $finder->obj(folder => '/Users/pudge/Movies'); my $size = $finder->data_size($obj); Or: my $obj = $finder->obj(folder => '/Users/pudge/Movies'); my $size = $obj->data_size; --

Re: Perl under OSX, what version of Unix to use

2004-03-11 Thread Chris Nandor
thing you need to know, and give you an idea of what to do on anything else 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/

Re: ANNOUNCE: Affrus 1.0 - a Perl Debugger

2004-03-11 Thread Chris Nandor
#x27;ll stand by your statement that it exists, when in fact, it does not. That's your prerogative. > continue to object to such postings until being told otherwise by > someone with authority. Waaaah! MOMMY! -- Chris Nandor [EMAIL PROTECTED]http://p

Affrus

2004-03-11 Thread Chris Nandor
! ;-) -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: ANNOUNCE: Affrus 1.0 - a Perl Debugger

2004-03-11 Thread Chris Nandor
ak an actual rule, which you did not -- was unwarranted. Also, please send your submission to http://use.perl.org/submit.pl, 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/

Re: Getting info from iTunes

2004-03-02 Thread Chris Nandor
of the track ... utxt is UTF-16, 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

Re: sending to Mail.app

2004-03-01 Thread Chris Nandor
'me', address => 'my address' } ); $message->send; # optional ... check for mail sleep 10; # make sure mail's had time to get back to me $mail->check_for_new_mail; __END__ -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

Re: Getting info from iTunes

2004-03-01 Thread Chris Nandor
lbum/name/rating, and also rate 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

Re: Soliciting opinions from Applescript refugees

2004-02-28 Thread Chris Nandor
e info on Mac::Glue, you might want to see the recent article on perl.com. http://www.perl.com/pub/a/2004/01/23/macglue.html -- Chris Nandor [EMAIL PROTECTED]http://pudge.net/ Open Source Development Network[EMAIL PROTECTED] http://osdn.com/

  1   2   3   4   >