sub new {
  my $class = shift;
  my $query = shift;
  my $base = $query->url(-base => 1);
  my $cgi = $base;
  $cgi .= "/cgi-bin/";
  my $self = {};
  $self->{'base_url'} = $base;
  $self->{'rel_url'} = $query->url(-relative => 1);
  $self->{'cgi_url'} = $cgi;
  croak "Function new takes a an instance of class CGI as an argument - dying a nasty death!\n" 
    unless (defined $query);
  croak "Function new takes a an instance of class CGI as an argument - dying a nasty death!\n" unless $query->isa('CGI');
  my $session = shift;
  if ($session->is_expired()) {
    my $login_script = $base . "/login.html";
    print $query->redirect($login_script);
    return;
#    exit(0);
  }