Register forum user name Search FAQ

Gammon Forum

Notice: Any messages purporting to come from this site telling you that your password has expired, or that you need to verify your details, confirm your email, resolve issues, making threats, or asking for money, are spam. We do not email users with any such messages. If you have lost your password you can obtain a new one by using the password reset link.

Due to spam on this forum, all posts now need moderator approval.

 Entire forum ➜ Dawn of Time ➜ Configuration ➜ Running Perlscript on the client site

Running Perlscript on the client site

It is now over 60 days since the last post. This thread is closed.     Refresh page


Posted by Abdulla Chekfa   USA  (2 posts)  Bio
Date Thu 23 Jan 2003 12:23 AM (UTC)
Message
I am accessing an .shtml page on my web server running on W2K.

I built it using perl program, the page is an html page,
with embedded perl script.
Below is the content of the page.
I am not able to call Play_onclick when I press
"Play" button
Any Suggestion.

Note:
- when I use onclick= "script.Play_onclick()", or "window.script.Play_onclick()"
I am getting script is undefined.It looks that the my browser is not recognizing my script.


-when I move the page into client site and run as
localhost/records.shtml.
I had no problem executing the build in perl script.

Any suggestion, I had tried everything for the last 2 days.
without any luck.
Thanks,


======================
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Content-Language" content="en-us">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>UpdatePage</title>
</head>
<body topmargin="100" leftmargin="100">

<script LANGUAGE="PerlScript">
$window->alert("HI! from PerlScript");
</script>
<script LANGUAGE="PerlScript">
sub Main::Play_onClick(){
my $_ItemRef= $window->document->Main;
$_SetRef=[ #This is an array of referencde but do not asking why:-)
$_ItemRef->Ess ->{'value'}, #0
$_ItemRef->Sss ->{'value'}, #1
$_ItemRef->Emmm->{'value'}, #2
$_ItemRef->Smmm->{'value'}, #3

$_ItemRef->EDD->{'value'}, #4
$_ItemRef->SDD->{'value'}, #5

$_ItemRef->EMM->{'value'}, #6
$_ItemRef->SMM->{'value'}, #7

$_ItemRef->Ehh->{'value'}, #8
$_ItemRef->Shh->{'value'}, #9

$_ItemRef->EYYYY->{'value'}, #10
$_ItemRef->SYYYY->{'value'} #11
];
# Below came out as a reference to an Array
my $_String= [
" End:ss ",
" Start:ss ",
" End:mm ",
" Start:mm "
];
my $_Message= "Please: Enter number between 0-59 for";
my $_Item;

foreach $_Item (0..3)
{
if ( ($$_SetRef[$_Item] > 59) || ( $$_SetRef[$_Item] < 0 ))
{
$_Message = $_Message .$$_String[$_Item]."field";
$window->alert( $_Message);
return;
}
}

$_String= [ # This is came out as a reference to an Array
" End:DD ",
" Start:DD ",
];
$_Message= "Please: Enter number between 1-31 for";

foreach $_Item (4..5)
{
if ( ($$_SetRef[$_Item] > 31) || ( $$_SetRef[$_Item] < 1 )) # we need a special day for Feb
{
$_Message = $_Message .$$_String[$_Item - 4]."field";
$window->alert( $_Message);
return;
}

}

$_String= [ # This is came out as a reference to an Array
" End:MM ",
" Start:MM ",
];
$_Message= "Please: Enter number between 1-12 for";

foreach $_Item (6..7)
{
if ( ($$_SetRef[$_Item] > 12) || ( $$_SetRef[$_Item] < 1 ))
{
$_Message = $_Message .$$_String[$_Item - 6]."field";
$window->alert( $_Message);
return;
}
}

$_String= [ # This is came out as a reference to an Array
" End:hh ",
" Start:hh ",
];
$_Message= "Please: Enter number between 00-23 for";

foreach $_Item (8..9)
{
if ( ($$_SetRef[$_Item] > 23) || ( $$_SetRef[$_Item] < 00 ))
{
$_Message = $_Message .$$_String[$_Item - 8]."field";
$window->alert( $_Message);
return;
}
}

$_String= [ # This is came out as a reference to an Array
" End:YYYY ",
" Start:YYYY ",
];
$_Message= "Please: Enter number between 2000-3000 for";

foreach $_Item (10..11)
{
if ( ($$_SetRef[$_Item] > 3000) || ( $$_SetRef[$_Item] < 2000 ))
{
$_Message = $_Message .$$_String[$_Item - 10]."field";
$window->alert( $_Message);
return;
}
}
}#endof PlayImages

#sub Play_onclick(){
# $window->alert("Hello World");
# Play_onClick()
#}
</script>
<form method="POST" name="Main">

<p align="center">Start:<input type="text" name="SYYYY" size="4" maxlength="4" style="text-align: Center" value= 2003>:
<input type="text" name="SMM" size="4" maxlength="2" style="text-align: Center" value= 01>:
<input type="text" name="SDD" size="4" maxlength="2" style="text-align: Center" value= 14>:
<input type="text" name="Shh" size="4" maxlength="2" style="text-align: Center" value= 09>:
<input type="text" name="Smmm" size="4" maxlength="2" style="text-align: Center" value= 26>:
<input type="text" name="Sss" size="4" maxlength="2" style="text-align: Center" value= 20>
<input type="submit" value="Update" name="B1" ></p>
<p align="center"><font face="Times New Roman" size="2">YYYY:MM:DD:hh:mm:ss</font></p>
<p align="center">End :<input type="text" name="EYYYY" size="4" maxlength="4" style="text-align: Center" value= 2003>:
<input type="text" name="EMM" size="4" maxlength="2" style="text-align: Center" value= 01>:
<input type="text" name="EDD" size="4" maxlength="2" style="text-align: Center" value= 22>:
<input type="text" name="Ehh" size="4" maxlength="2" style="text-align: Center" value= 16>:
<input type="text" name="Emmm" size="4" maxlength= "2" style="text-align: Center" value= 15>:
<input type="text" name="Ess" size="4" maxlength="2" style="text-align: Center" value= 09>
<input name="Play" type=Button value=" Play " onClick= "script.Play_onClick()"></input>
</p>
</form>


</body>
</html>

==================== End of page================

Sr. Network software engineer
Top

Posted by Abdulla Chekfa   USA  (2 posts)  Bio
Date Reply #1 on Sat 25 Jan 2003 12:14 AM (UTC)
Message
I was ablt to solve my own problem, I thought it may be a good idea to pass the solution so others can benefit from.

It turns out that the default setup for perlscipt, I am using the latest version for Activestate, in the registry is as follow:

HKEY_LOCAL_MACHNE\SOFTWARE\ActiveState\perlscript\1.0
REG_DWORD:EnabledZones= 0x0010(default)

values:
-Enable all 0x0001
-Eable local 0x0010
-Enable Internet 0x0020
-Enable Trusted 0x0040
-Enable Restricted 0x0080 ( for the perverse)

All what I need to do is use Enable Trusted, user has to be very careful to use Enable all and Enable Internet.
Then, I enterd my own server IP as trusted in the IE browser.
Now I can have my perscript executed like a charm.

Sr. Network software engineer
Top

Posted by Ganieda   USA  (3 posts)  Bio
Date Reply #2 on Wed 12 Mar 2003 10:53 AM (UTC)
Message
...I hope I never have to anything with PERL *dies*
Top

The dates and times for posts above are shown in Universal Co-ordinated Time (UTC).

To show them in your local time you can join the forum, and then set the 'time correction' field in your profile to the number of hours difference between your location and UTC time.


19,568 views.

It is now over 60 days since the last post. This thread is closed.     Refresh page

Go to topic:           Search the forum


[Go to top] top

Information and images on this site are licensed under the Creative Commons Attribution 3.0 Australia License unless stated otherwise.