1 1c1e3e26 2022-09-08 op #!/usr/bin/env perl
 2 1c1e3e26 2022-09-08 op 
 3 1c1e3e26 2022-09-08 op use v5.10;
 4 1c1e3e26 2022-09-08 op use strict;
 5 1c1e3e26 2022-09-08 op use warnings;
 6 1c1e3e26 2022-09-08 op 
 7 1c1e3e26 2022-09-08 op my $page = shift or die 'missing page';
 8 1c1e3e26 2022-09-08 op my @pages = ();
 9 1c1e3e26 2022-09-08 op 
10 1c1e3e26 2022-09-08 op while (<>) {
11 1c1e3e26 2022-09-08 op 	chomp;
12 1c1e3e26 2022-09-08 op 	@pages = (@pages, $_);
13 1c1e3e26 2022-09-08 op }
14 1c1e3e26 2022-09-08 op 
15 1c1e3e26 2022-09-08 op say "<nav>";
16 1c1e3e26 2022-09-08 op my $did = 0;
17 1c1e3e26 2022-09-08 op for (@pages) {
18 1c1e3e26 2022-09-08 op 	if (!$did) {
19 1c1e3e26 2022-09-08 op 		$did = 1;
20 1c1e3e26 2022-09-08 op 	} else {
21 1c1e3e26 2022-09-08 op 		print "| ";
22 1c1e3e26 2022-09-08 op 	}
23 1c1e3e26 2022-09-08 op 
24 1c1e3e26 2022-09-08 op 	my ($href, $text) = m/^([^\s]*)\s*(.*)$/;
25 1c1e3e26 2022-09-08 op 	if ($href eq $page) {
26 1c1e3e26 2022-09-08 op 		print "<strong>$text</strong> ";
27 1c1e3e26 2022-09-08 op 	} else {
28 1c1e3e26 2022-09-08 op 		print "<a href='$href'>$text</a> ";
29 1c1e3e26 2022-09-08 op 	}
30 1c1e3e26 2022-09-08 op }
31 1c1e3e26 2022-09-08 op 
32 1c1e3e26 2022-09-08 op say "</nav>";