[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] Anarchie FTP question



In attempting to convert a batch FTP script from unix to Mac, I have run
into a problem. I think I'm doing everything right, but I get AppleEvent
timeouts. It's supposed to take a partial file location like:
	gui/glidel-38.hqx
or
	[Archived as /info-mac/gui/glidel-38.hqx; 36K]
and get it from the Info-Mac mirror in $base (hard coded for now). I run
the script, Anarchie launches, and the download starts, but the script
stops because of a
	# OS error -1712 (Error message file not available)
	File 'The Tick:Desktop Folder:batchFTP.pl'; Line 19
Which MacOS Errors lists as "AppleEvent Manager-the AppleEvent timed out".

Am I doing something wrong here? This is my first attempt at a
MacPerl-specific script, although I've written several large scripts under
Unix Perl.

batchFTP.pl:

#!perl

use Mac::Apps::Anarchie;

$ftp = new Mac::Apps::Anarchie;

# change to droplet soon, so I can drop the file of items to get
open (DL, "The Tick:Desktop Folder:dl") or die "no dl";
open (DLNEW, ">The Tick:Desktop Folder:dlnew") or die "no dlnew";
chdir "The Tick:Desktop Folder:";
$base = "ftp://mirrors.apple.com/mirrors/info-mac/";
$basedest = "Arthur:Desktop Folder:Stuff: fetchstuff:";
for $file (<DL>) {
	$file =~ s/\; .*K\]//;
	$file =~ s/\[Archived as \/info-mac\///;
	@path = split /\//,$file;
	$macfile = $file;
	$macfile =~ s/\//:/g;
	print "ftp $path[$#path]";
	$ftp->geturl("$base$file", "$basedest$macfile");
	unless (-e "Arthur:Desktop Folder:$path[$#path]") {
		print DLNEW "$file";
		print "$path[$#path] not downloaded...\n";
		print "$error";
	}
}
close DLNEW;
close DL;

unlink "The Tick:Desktop Folder:dl";
rename "The Tick:Desktop Folder:dlnew", "The Tick:Desktop Folder:dl";
Dan Bongert                   | Hire the Morally Handicapped--It's More Fun!
dbongert@students.wisc.edu    | National Institute for the Morally Handicapped
herkimer@upl.cs.wisc.edu      | http://www.upl.cs.wisc.edu/~herkimer

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch