in reply to Re: Perl & JavaScript
in thread Perl & JavaScript

Don't forget the hard working JavaScript programmer, you don't wanna mess up his stuff ;-) 
<HTML><HEAD><TITLE>All Hail The JavaScript Perl Programmer</TITLE>
<SCRIPT language="JavaScript">
<!--//
function markForJS() {
    for (var x = 0; x < document.links.length; x++)
    {
        d_href = document.links[x].href;

        // if there are no javascript links
        // add the cgi stuff, otherwise pee into the wind

        if((d_href.indexOf("javascript:")+0)==-1)
        {
            document.links[x].href = document.links[x].href + '?hasjs=
+1';
        }
    }
}
// -->
</SCRIPT>
</HEAD><BODY bgcolor="#ffffff" onLoad="markForJS()">
<A href="script-1.cgi">Link 0</A><BR>
<A href="script-2.cgi">Link 1</A><BR>
<A href="script-5.cgi">Link 4</A><BR>
<A href="javascript:alert('chorg!');">Link javascript</A>
<A href="javascript:alert('zort!');">Link javascript2</A>
</BODY></HTML>

[download]

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

In Section Seekers of Perl Wisdom