chiark / gitweb /
Obsidian: Add islands where chart scraper is confused
[ypp-sc-tools.db-live.git] / yarrg / web / navbar
1 <a href="lookup">YARRG</a> -
2  Yet Another Revenue Research Gatherer
3 <%perl>
4
5 $_= <<END;
6 intro   user guide
7 upload  uploading
8 docs    experts' docs
9 devel   development
10 END
11
12 my $name= $m->request_comp()->name();
13
14 while (s/^(\w+)\t(.*)$//m) {
15         my ($tname, $thtml) = ($1,$2);
16         if ($tname eq $name) {
17                 print "| <b>$thtml</b>\n";
18         } else {
19                 print "| <a href=\"$tname\">$thtml</a>\n";
20         }
21 }
22 </%perl>