#!/usr/bin/env perl
# for use when old bookmarks in use - place in /usr/lib/cgi-bin/hili3
use CGI qw/:standard/;
$css = qq!
h2 { color: #00f }
dl { margin: 1.5em; line-height: 1.5em }
dt { font-family: sans-serif, verdana }
dd { font-family: Consolas, Monaco, Lucida Console, Liberation Mono,
DejaVu Sans Mono, Bitstream Vera Sans Mono, Courier New, monospace }
!;
$start_html = start_html( -style => { -code => $css } );
$start_html =~ s/<!DOCTYPE.*?>/<!DOCTYPE html>/s;
print
header(),
$start_html,
h1('THIS IS THE VOID ..........'),
h2('You should not be here - please update your bookmarks/favourites to
use the following address:'),
dl(
dt( 'From outside Leeds:', dd( 'https://nww.hmds.leedsth.nhs.uk' ) ),
dt( 'From a Leeds location:', dd( 'http://nww.hmds.leedsth.nhs.uk' ) ),
dt( 'From HMDS:', dd( 'see Richard !!' ) ),
),
p( '[location: /usr/lib/cgi-bin/hili3]' ),
end_html();