#! /usr/local/bin/perl 
# 
# /* $Id: bcnu.cgi,v 1.5 2000/02/29 11:24:31 jap Exp jap $ 
# 
# * Copyright (c) 1998 John Phillips 
# * 
# * You may distribute under the terms of the Artistic License 
# * 
# */ 
# 
require "bcnu.inc"; 
require "bcnulib.pl"; 

# 
# main 
# 

&methodparse; 
$ighost=$in{"ignore"}; 
$noticehost=$in{"notice"}; 
$view=$in{"view"}; 

$insubmit=$in{"submit"}; 
@inacks=split('!',$in{"ackchk"}); 
@inreasons=split('!',$in{"reason"}); 

print &printhdr; 
print &header("Key",$errlevel,2); 
print &showkey(); 
print &ignoreform if $loginid; 
print &footer(); 


