#!/usr/bin/perl
## Program Name: news.cgi


if ($ENV{'QUERY_STRING'} eq '') {
	print "Location: http://www.nbaa.org/update\n\n";
} else {
	&GetFormInput;
	#
	if ($field{'url'} =~ /\w+/) {
		print "Location: $field{'url'}\n\n";
	} else {
		print "Location: $ENV{'QUERY_STRING'}\n\n";
	}
}

exit();


sub GetFormInput {
	(*fval) = @_ if @_ ;
	local ($buf);
	if ($ENV{'REQUEST_METHOD'} eq 'POST') {
		read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
	} else {
		$buf=$ENV{'QUERY_STRING'};
	}
	if ($buf eq "") {
			return 0 ;
	} else {
 		@fval=split(/&/,$buf);
		foreach $i (0 .. $#fval){
			($name,$val)=split (/=/,$fval[$i],2);
			$val=~tr/+/ /;
			$val=~ s/%(..)/pack("c",hex($1))/ge;
			$name=~tr/+/ /;
			$name=~ s/%(..)/pack("c",hex($1))/ge;
			if (!defined($field{$name})) {
				$field{$name}=$val;
			} else {
				$field{$name} .= ",$val";
				# If you want multi-selects to goto into an array change to:
				# $field{$name} .= "\0$val";
			}
		}
	}
return 1;
}