On Sun, 27 Oct 2002 08:31:53 +0200 [EMAIL PROTECTED] wrote:
> I don't know if this is the right place to ask about it (and if not- please
> tell me where to ask it), but I have a page like:
>
> <HTML><!-- Lotus-Domino (Release 5.0.9a - January 7, 2002 on Solaris
> Sparc)
> --><HEAD>
>
> <SCRIPT LANGUAGE="JavaScript">
> <!--
document._domino_target = "_self";
function _doClick(v, o, t) {
> var
> url="/desktop.nsf?OpenDatabase&Click=" + v;
if (o.href != null)
> o.href = url;
else {
if (t == null)
t = document.
> _domino_target;
window.open(url, t);
}
}
// -->
> </SCRIPT></HEAD><BODY TEXT="000000" BGCOLOR="FFFFFF">
>
> <FORM><DIV ALIGN=center><FONT SIZE=7 COLOR="0000FF" FACE="Times New Roman
> (Hebrew)">User: </FONT><FONT COLOR="0000FF"> </FONT><FONT SIZE=7 COLOR
> ="0000ff" FACE="Times New Roman (Hebrew)">Yossi Itzkovich</FONT></DIV>
> <MAP NAME="136.map">
> <AREA HREF="" onClick="return _doClick
> ('0db713158cfe1cb2422568c0003dfc43/$ViewMapLayout/0.3C18', this, null)"
> SHAPE=rect COORDS="478,93,601,218">
> <AREA HREF="" onClick="return _doClick
> ('0db713158cfe1cb2422568c0003dfc43/$ViewMapLayout/0.3AF8', this, null)"
> SHAPE=rect COORDS="290,91,404,214">
> <AREA HREF="" onClick="return _doClick
> ('0db713158cfe1cb2422568c0003dfc43/$ViewMapLayout/0.39D8', this, null)"
> SHAPE=rect COORDS="106,93,206,213"></MAP>
> <A
> HREF="/desktop.nsf/0db713158cfe1cb2422568c0003dfc43?OpenNavigator"><IMG
> SRC
> ="/desktop.nsf/0db713158cfe1cb2422568c0003dfc43/$NavImagemap/0.52?OpenEle
> ment&FieldElemFormat=gif"
>
>
> WIDTH=632 HEIGHT=219 USEMAP="#136.map" BORDER=0 ISMAP></A><BR>
> <BR></FORM></BODY></HTML>
>
>
> How Do I make the last onClick to be "clicked" ? using form->click()
> doesn't help because it doesn't have the correcdt tag.
> Thanks
You don't. Many have considered creating a Javascript interpreter for Perl
and I haven't heard of anyone actually doing it. If you do, you'll be a
hero for the masses.
On the other hand, your need is simpler. If you can get your script to
figure out what URL the script is building, it can retreive it itself.
If you Parsed the rest of the HTML before you try to figure out what URL to
get next, all the values should be available in your Perl script.
--
Mac :})
** I normally forward private questions to the appropriate mail list. **
Ask Smarter: http://www.tuxedo.org/~esr/faqs/smart-questions.html
Give a hobbit a fish and he eats fish for a day.
Give a hobbit a ring and he eats fish for an age.
