[MacPerl-Modules] gluescriptadds problems (again)

["Muggli, Ricardo T. (CCC)" <rtmuggli@carlsoncraft.com>]

I don't know what went wrong with the last post. Hope this works.. 
(Also note some of the paths are not as they would be with the normal 
gluescriptadds script. 


---------OSAX not scriptable
-this is the error seen:
# Application '10:Desktop Folder:adds:Script Debugger Glue' 
    is not scriptable (App.pm)
File 'Dev:Pseudo'; Line 40

-at this point in gluescriptadds:
    $aete = Mac::AETE::App->new( $osax );

-App.pm will do the following if the "OSAX" is not scriptable:
croak("Application '$self->{_target}' is not scriptable (App.pm)");

-?? Is there some way to do this so it will return something we can 
check in the gluescriptsadds script to see if it worked okay? This way
it will not error out rather print out a message saying it didn't work 
correctly but continue on it way.

---------File name too long
-this is the error seen:
# Can't create file '10:MacPerl ƒ:site_perl:Mac:Glue:glues:additions:
   Menu_Events_Scripting_Addition.pod': File name too long.
File '10:MacPerl ƒ:site_perl:Mac:AETE:Format:Glue.pm'; Line 171

-at this point in gluescriptadds:
    $conv->finish();

-MacPerl ƒ:site_perl:Mac:AETE:Format:Glue.pm will error a!
t this point:
  sysopen FILE, "$$self{OUTPUT}.pod", O_CREAT|O_WRONLY|O_EXCL
        or die "Can't create file '$$self{OUTPUT}.pod': $!";
        
-?? Should something be put in there to truncate the file name to 27 
   characters? This way there will be room for the .pod extension.
        
---------File exists
-this is the error seen:
# MLDBM error: Second level tie failed, "File exists"
File '10:MacPerl ƒ:site_perl:Mac:AETE:Format:Glue.pm'; Line 152
# Can't tie to '10:MacPerl ƒ:site_perl:Mac:Glue:glues:additions:
   Make_Alias': File exists.
File '10:MacPerl ƒ:site_perl:Mac:AETE:Format:Glue.pm'; Line 153

-as this point in gluescriptadds:
    $conv->finish();
    
-MacPerl ƒ:site_perl:Mac:AETE:Format:Glue.pm will warn at this point:
    if (!tie %dbm, 'MLDBM', $self->{OUTPUT}, O_CREAT|O_RDWR|O_EXCL, 0640) {
        warn "Can't tie to '$self->{OUTPUT}': $!";
        return;
    }
    
-?? Is there someway to simply overwrite the file?

I didn't really have a chance to hack up!
 any solutions to these because I'm
not
sure if the suggestions I have for them would be okay.
Comments please.

Thanks,
Ricardo Muggli

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