#! /usr/local/bin/perl

require "support.pl";

%form = getFormData();

if ($form{continue}) {
  $continue = $form{continue};
  $continue = "../../$continue" unless ($continue =~ m!^([a-z]+:|/)!);
  Location($continue);
}

if ($form{type}) {
  my $location = "read.cgi?type=$form{type}";
  $location .= "&key=$form{key}" if $form{key};
  Location($location);
}

ShowFile("login","%user%"=>$ENV{REMOTE_USER});

1;