reenadpatel
New User
Jan 23, 2003, 11:20 AM
Post #1 of 2
(39265 views)
|
|
calling javascript function from perl
|
Can't Post
|
|
calling javascript funtion from html part of perl script
i am trying to open a file using Perl and then calling a javascript function in the body onload to set values to variables..but the onload does not seem to work..
pl. help..(script attached)
Reena
#!/usr/bin/perl
# environment variables
$request_method = $ENV{'REQUEST_METHOD'};
# HTTP Content Header
print("Content-type: text/html\n\n");
#check request method
if($request_method eq "POST") # Post method start
{
binmode(STDIN);
@inx = <STDIN>;
@filetest = <STDIN>;
$str = @inx[1];
$str1 = reverse $str;
$filename1 = "";
$currchar = "";
$offset = 3;
while ($currchar !~ /\\/) {
$currchar = substr($str1, $offset, 1);
if ($currchar !~ /\\/) {
$filename1 = "$filename1$currchar";
$offset++;
}
}
$filename2 = reverse $filename1;
splice(@inx,0,4);
splice(@inx,$#inx,1);
$in = join("",@inx);
$in = substr($in,0,length($in) - 2);;
print ("<html>\n");
print ("<head>\n");
print ("<script language=\"Javascript\">\n");
print ("function add(){\n");
print ("alert(\'$in\')\;\n");
#print ("var range =opener.parent.right.document.body.createTextRange()\;\n");
#print ("alert(opener.parent.oldhtml)\;\n");
#print ("opener.parent.oldhtml = opener.parent.oldhtml + \'$in\'\;\n");
#print ("alert(opener.parent.oldhtml)\;\n");
#print ("range.pasteHTML(opener.parent.oldhtml)\;\n");
print ("}\;\n");
print ("<\/script>\n");
print ("<\/head>\n");
#This line is giving an error
print ("<body onload=add()>\n");
print ("check\n");
print ("<\/body>\n");
print ("<\/html>\n");
}
#exit main script
exit 0;
|
MAIN
SEARCH
WHO'S 
LOG 