1 c8477a00 2022-01-23 op #!/usr/bin/env perl
7 c8477a00 2022-01-23 op my $page = shift or die 'missing page';
8 c8477a00 2022-01-23 op my @pages = ();
12 c8477a00 2022-01-23 op @pages = (@pages, $_);
16 c8477a00 2022-01-23 op for (@pages) {
23 c8477a00 2022-01-23 op my ($href, $text) = m/^([^\s]*)\s*(.*)$/;
24 c8477a00 2022-01-23 op if ($href eq $page) {
25 c8477a00 2022-01-23 op print "<strong>$text</strong> ";
27 c8477a00 2022-01-23 op print "<a href='$href'>$text</a> ";