1 ac42bb6c 2022-01-28 op #!/usr/bin/env perl
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 = ();
13 ac42bb6c 2022-01-28 op @pages = (@pages, $_);
17 ac42bb6c 2022-01-28 op for (@pages) {
18 ac42bb6c 2022-01-28 op my ($href, $text) = m/^([^\s]*)\s*(.*)$/;
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";
31 ac42bb6c 2022-01-28 op if ($href eq $page) {
32 ac42bb6c 2022-01-28 op print "$text ";
34 ac42bb6c 2022-01-28 op print "<a href='$href'>$text</a> ";