Hi,
I am using a perl program to invoke a small javascript to first open a new
window,
and then another javascript to write some text or form to the new window.
I can't get it to work in Netscape 4.72
I will open a window but won't write to it.
It works fine in IE 5.0
The problem is between ------- lines below.
Any help is appreciated.
Edgar.
===================================================================
#!/usr/bin/perl
$|=1;
use 5.004;
use CGI ':all';
print header;
print start_html(-title=>'Test',
-bgcolor=>'FFFFFF'
);
# print some text to the main page
print "first page<BR>";
# call function to pop up a new window with some text or form
do_java();
print end_html;
exit(1);
sub do_java {
$text="here is the text for the popup window";
print <<start_heredoc;
<SCRIPT>
var nwin = window.open("","nwin","height=400,width=400");
</SCRIPT>
start_heredoc
#-----------------------------------------------------
# write to the window.
#THIS WILL NOT WORK FOR NETSCAPE 4.72
#IT WILL OPEN THE WINDOW BUT WILL NOT WRITE OUT THE TEXT.
print <<start_heredoc;
<SCRIPT>
nwin.document.write("$text");
</SCRIPT>
start_heredoc
#-----------------------------------------------------
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
