#!/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();