[Date Prev][Date Next][Thread Prev][Thread Next]
[Search]
[Date Index]
[Thread Index]
: Re: [MacPerl] Plug-ins / Applets
Chris Nandor states:
Try this on for size (make sure Netscape is open first):
#!perl
use Mac::AppleEvents;
($dir = $INC[0]) =~ s/lib$/$1/;
$temp = $dir . time;
open(TEMP,">$temp") || die "can't create file: $!\n";
select TEMP;
print <<EOT;
<HTML><HEAD><TITLE>Test</TITLE></HEAD>
<BODY BGCOLOR="CCCCFF">
<H1>Hi there ...</H1>
</BODY></HTML>
EOT
close(TEMP);
$be = AEBuildAppleEvent('WWW!','OURL',typeApplSignature,'MOSS',0,0,'') or
die $^E;
AEPutParamDesc($be,'----',(AEBuild('TEXT(@)',"file:///$temp")));
AESend($be, kAEWaitReply) or die $^E;
unlink $temp;
sleep(15);
AEPutParamDesc($be,'----',(AEBuild('TEXT(@)',"http://pudge.net/"))); # ;-)
AESend($be, kAEWaitReply) or die $^E;
__END__
_____________________________________________________
I will. Looks interesting. Now I have two new paths to pursue.
This BB is outstangly helpful. I hope that I'll be able
to return the favor to someonelse in the future.
Ray Lauzzana
Penrose Press
1167 Pacific
San Francisco
CA 94133, USA
***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch