At 12:18 -0600 2001.03.02, Bion Pohl wrote:
>An alternate method would be just to tell Netscape to do it for you via
>an AppleScript.
># Get HTML page
># Use AppleScript to access Netscape to do the download
># because the Yahoo Mail needs the response of a cookie
># for login confirmation.
>sub getPage {
> my ($URLname, $filename) = @_;
>
> print "Saving page $URLname\ninto file $filename\n";
> MacPerl::DoAppleScript(<<"END_SCRIPT");
> tell application "Netscape Communicatorª"
> activate
> GetURL "$URLname" to file "$filename"
> end tell
>END_SCRIPT
>}
Just because TMTOWTDI:
#!perl -w
use Mac::Glue;
$ns = new Mac::Glue 'Netscape Communicator';
$ns->activate;
$ns->GetURL('https://sourceforge.net/',
to => 'Bourque:Desktop Folder:file.html');
Also, URL Access does HTTPS now.
#!perl -w
use Mac::Glue;
$ua = new Mac::Glue 'URL Access';
$ua->activate;
$ua->download('https://sourceforge.net/',
to => 'Bourque:Desktop Folder:file.html',
progress => 1);
Of course, Mac::Glue has some setup cost, installing a bunch of modules, etc.
--
Chris Nandor [EMAIL PROTECTED] http://pudge.net/
Open Source Development Network [EMAIL PROTECTED] http://osdn.com/
