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