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