Re: Mac::Glue script

Hi Chris,

I tried to install Mac::Glue and received an error. Here is the command  
I used:
cpan Mac::Glue

It looks like the cpan module initialiezed:

/Users/markwhee/.cpan/CPAN/MyConfig.pm initialized.

and then gave me the option for manual or auto configuration. I chose  
auto, as I am not familiar with this process. I've never installed a  
module using cpan before and thought I'd give it a try.

After automatically entering in info, it tried to download and install  
Mac::Glue. Here is the terminal output of that.
------------------------------------------------------------------------ 
---------------
Running install for module Mac::Glue
Running make for C/CN/CNANDOR/Mac-Glue-1.23.tar.gz
LWP not available
Fetching with Net::FTP:
   
ftp://ftp.perl.org/pub/CPAN/authors/id/C/CN/CNANDOR/Mac-Glue 
-1.23.tar.gz
CPAN: Digest::MD5 loaded ok
LWP not available
Fetching with Net::FTP:
  ftp://ftp.perl.org/pub/CPAN/authors/id/C/CN/CNANDOR/CHECKSUMS
Checksum for  
/Users/markwhee/.cpan/sources/authors/id/C/CN/CNANDOR/Mac-Glue 
-1.23.tar.gz ok
Scanning cache /Users/markwhee/.cpan/build for sizes
Mac-Glue-1.23/
Mac-Glue-1.23/Changes
Mac-Glue-1.23/ex/
Mac-Glue-1.23/ex/00_README
Mac-Glue-1.23/ex/address_book
Mac-Glue-1.23/ex/appleworks_stuff
Mac-Glue-1.23/ex/bettertelnet_login
Mac-Glue-1.23/ex/dialog_director_more_lists
Mac-Glue-1.23/ex/dialog_director_stuff
Mac-Glue-1.23/ex/eudora_make_hidden
Mac-Glue-1.23/ex/eudora_send_email
Mac-Glue-1.23/ex/filemaker_extract_data
Mac-Glue-1.23/ex/finder_clean_up
Mac-Glue-1.23/ex/finder_get_system_folder_files
Mac-Glue-1.23/ex/finder_label
Mac-Glue-1.23/ex/finder_label_and_beep
Mac-Glue-1.23/ex/finder_label_and_beep_cool_version
Mac-Glue-1.23/ex/finder_volume_names
Mac-Glue-1.23/ex/handle_errors
Mac-Glue-1.23/ex/interarchy_stuff
Mac-Glue-1.23/ex/itunes
Mac-Glue-1.23/ex/netscape_open_window
Mac-Glue-1.23/ex/progress_bar_stuff
Mac-Glue-1.23/ex/sherlock_search_drive
Mac-Glue-1.23/ex/sherlock_search_internet
Mac-Glue-1.23/ex/simple_text_and_prefab_player
Mac-Glue-1.23/ex/url_access
Mac-Glue-1.23/Glue.pm
Mac-Glue-1.23/lib/
Mac-Glue-1.23/lib/Mac/
Mac-Glue-1.23/lib/Mac/AETE/
Mac-Glue-1.23/lib/Mac/AETE/App.pm
Mac-Glue-1.23/lib/Mac/AETE/Dialect.pm
Mac-Glue-1.23/lib/Mac/AETE/Format/
Mac-Glue-1.23/lib/Mac/AETE/Format/Converter.pm
Mac-Glue-1.23/lib/Mac/AETE/Format/Dictionary.pm
Mac-Glue-1.23/lib/Mac/AETE/Format/Glue.pm
Mac-Glue-1.23/lib/Mac/AETE/Parser.pm
Mac-Glue-1.23/lib/Mac/Glue/
Mac-Glue-1.23/lib/Mac/Glue/Common.pm
Mac-Glue-1.23/make_glues
Mac-Glue-1.23/Makefile.PL
Mac-Glue-1.23/MANIFEST
Mac-Glue-1.23/MANIFEST.SKIP
Mac-Glue-1.23/README
Mac-Glue-1.23/scripts/
Mac-Glue-1.23/scripts/gluedialect.PL
Mac-Glue-1.23/scripts/gluedoc.PL
Mac-Glue-1.23/scripts/glueedit.PL
Mac-Glue-1.23/scripts/gluemac.PL
Mac-Glue-1.23/scripts/gluescriptadds.PL
Mac-Glue-1.23/scripts/show_glue_pods
Mac-Glue-1.23/t/
Mac-Glue-1.23/t/glue.t
Mac-Glue-1.23/t/pod.t

  CPAN.pm: Going to build C/CN/CNANDOR/Mac-Glue-1.23.tar.gz

Checking if your kit is complete...
Looks good
Warning: prerequisite MLDBM 0 not found.
Warning: prerequisite Mac::AppleEvents 1.3 not found.
Warning: prerequisite Mac::AppleEvents::Simple 1.14 not found.
Warning: prerequisite Mac::Apps::Launch 1.9 not found.
Warning: prerequisite Mac::Errors 0.91 not found.
Warning: prerequisite Mac::Files 1.09 not found.
Warning: prerequisite Mac::Processes 1.04 not found.
Warning: prerequisite Time::Epoch 0.02 not found.

Error: Unable to locate installed Perl libraries or Perl source code.

It is recommended that you install perl in a standard location before
building extensions. Some precompiled versions of perl do not contain
these header files, so you cannot build extensions. In such a case,
please build and install your perl from a fresh perl distribution. It
usually solves this kind of problem.

(You get this message, because MakeMaker could not find  
"/System/Library/Perl/5.8.1/darwin-thread-multi-2level/CORE/perl.h")
# Looks like your test died before it could output anything.
Running make test
  Make had some problems, maybe interrupted? Won't test
Running make install
  Make had some problems, maybe interrupted? Won't install
------------------------------------------------------------------------ 
---------
What am I missing? Do I need to install the Developer Tools? Any help  
would be appreciated.

Thanks very much,

Mark


On Apr 26, 2005, at 8:24 AM, Chris Nandor wrote:

In article <e609f105d8eef69c191f2386dc56ae2f@xxxxxxxxxxx>,
 musicarr@xxxxxxxxxxx (Mark Wheeler) wrote:

> The script will open Internet Connect, dial a number (given by the
> script).

I don't know if you can do that with Internet Connect.  This sorta  
works:

   my $ic     = new Mac::Glue 'Internet Connect';
   my $conn   = $ic->prop('BlueTooth configuration')->get;
   my $status = $conn->prop('status');
   my $state  = $status->prop('state');

   my $number = '*99#';

   $conn->connect(to_telephone_number => $number) if $state->get == 0;

   while (1) {
      last if $state->get == 8;
      sleep 1;
   }

(That works for my Bluetooth modem, you can try it with 'PPP  
configuration'
too, I'm sure it should work the same.)

But in my test, it dials the main configuration no matter what the  
value of
$number.  And I cannot select multiple configurations.  (These are  
apparent
limitations in Internet Config itself, not Mac::Glue.)


> When a connection is established, a sound file will be played
> 5 X (or what ever number of repetitions).

You can do this to some degree with Mac::Sound.  I think you can't do it
with any old sound, that you need to have it in a resource file.  The
Sound.t file shows an example.  Another option is to use SysBeep(30) or
somesuch, to just get the system beep.


> After the connection is lost
> (phone is hung up after listening to the sound file), 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 different connection
phases (dialing, authentication, etc.).

--
Chris Nandor                      pudge@xxxxxxxxx    http://pudge.net/
Open Source Technology Group       pudge@xxxxxxxx     http://ostg.com/