Chris,
Thank you so much. I won't get to this until next week. The first part of this project
is setting up mysql databases on OS X. They are the ultimate destinations of the
information about the images. I've got mysql running on OS X, and I'm creating the
databases right now. I'm feeling very optimistic about this project now.
Thanks again,
Kathy
--- Chris Nandor wrote:
At 12:46 -0400 2001.04.25, Katherine Richmond wrote:
>I want to replace an AppleScript with a Perl stand-alone program. The
>AppleScript allowed a user to drag and drop an image file on it. It then
>presented a couple dialogs asking the user for a small amount of
>information. The script stores the information in the file's comment
>field. Then the script copied the image file over to a folder on another
>computer. Do you know if I can do this with MacPerl?
#!perl -w
use File::Basename;
use File::Copy;
use Mac::MoreFiles;
use strict;
my($dest) = "Williams:Desktop Folder:";
my($file) = @ARGV;
my($color) = MacPerl::Ask("What is your favorite color?");
FSpDTSetComment($file, "Color: $color");
copy($file, $dest . basename($file));
__END__
And this script works with MacPerl 5.6.1a1, too! :-)
Note: it assumes the target volume is mounted. Set the location variable
($dest) to the proper folder, and add in whatever questions you want, and
format the Comment string however you want.
--
Chris Nandor [EMAIL PROTECTED] http://pudge.net/
Open Source Development Network [EMAIL PROTECTED] http://osdn.com/
--- end of quote ---
