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