[WM] Figuring out the order of processing.

jlm17 jlm17 at lucent.com
Wed Apr 28 20:44:37 IST 2004


I'm new to using webmake, and I am trying to create a new tag, <nsrlink> (a non-self-referential 
link). Useability experts say that web pages shouldn't have links in them to themselves. I want to 
follow this advice, so I want to be able to do something like this:

<nsrlink href="index.html">Home</nsrlink>

instead of:

<a href="index.html">Home</a>

and know that if the tag was placed into the index.html file it would not be a link, but if it was 
placed in any other file it would be.

Ok, so here is my perl function for doing this:

     sub nsrlink
     {
       my $tag=shift(@_);
       return("") if($tag ne "nsrlink");
       my $attributes=shift(@_);
       my $text=shift(@_);
       my $this=get_current_main_content();
       my $url=get_url($this.".html");
       my $href=${$attributes}{"href"};
       $href=expand($href);
       if($url eq $href) { return($text); }
       else { return("<a href=\"$href\">".$text."</a>"); }
     }

The key problem is with that get_current_main_content() function. According to the documentation 
that function is only guarenteed to be valid if called from within a deferred content reference. I'm 
about at my wits end trying to get a deferred content reference to then execute some perl code.

My idea was to have the function called by the custom tag <nsrlink> to write out something like:
<{set foo="<{perl nsrlink(\"nsrlink\", { \"href\" => \"index.html\" }, \"dud\");}\>"}> $[foo]

I also tried <wmmeta> instead of <{set}>

Then the evaluation of $[foo] would be deferred, it resolves to a perl block which is then executed. 
I can't get this to work. First off, inside the perl block I have quotes. How do I escape them, 
since quotes delimit the foo="..." stuff? Also It seems that I can't have the '>' in my perl block 
either, as that makes webmake unable to parse. What I have been doing is backslashing all of these 
things, but I'm not certian if this is the correct direction to go in.

Right now this works:
<{set dud="<{perl nsrlink("nsrlink", { "href" => "index.htm" }, "dud");}>"}> $[dud]
But I can't get a perl block to output that text.

I hope I am explaining this clearly. I think what I need is when webmake sees this:
<nsrlink href="index.html">dud</nsrlink>
It calls a function which outputs this:
<{set foo="<{perl nsrlink("nsrlink", { "href" => "index.htm" }, "dud");}>"}> $[foo]
And when $[foo] is evaluated get_current_main_content() is valid and nsrlink returns the html that I 
want it to return.

Is this even possible? I see that the navtree plugin requires that it be added to the html as a 
deferred content reference.

Thanks for your time.


More information about the Webmake-talk mailing list