+++ /dev/null
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-my %rels;
-my $header = 0;
-my $printed = 0;
-
-while(<STDIN>){
- ($rels{$2} = $1) if /^<link href="([^#]*)[^"]*" rel="([^"]*)" title/;
- if(/^<div class="header">$/){
- print "$_<center><p>";
- if(defined $rels{"prev"}){
- print "<a href=\"$rels{'prev'}\" accesskey=\"p\" rel=\"prev\">[<<<]</a>";
- };
- if(defined $rels{"up"}){
- print "<a href=\"$rels{'up'}\" accesskey=\"u\" rel=\"up\">[^^^]</a>";
- };
- if(defined $rels{"next"}){
- print "<a href=\"$rels{'next'}\" accesskey=\"n\" rel=\"next\">[>>>]</a>";
- };
- $header++;
- };
- if($header && /^<.div>$/){
- print "</p></center>$_";
- $header--;
- };
- next if $header;
- print;
-};