#!/usr/bin/perl

package IkiWiki;

use warnings;
use strict;
use IkiWiki;
use Encode;

my %backlinks;
my $backlinks_calculated=0;

sub calculate_backlinks () { #{{{
    return if $backlinks_calculated;
    %backlinks=();
    foreach my $page (keys %links) {
        foreach my $link (@{$links{$page}}) {
            my $bestlink=bestlink($page, $link);