Blob


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