sub save {
	my $self = shift;
print STDERR $ENV{QUERY_STRING}, "\n";
#	$CGI::PERLEX = 1;
	my $q = new CGI;
	my $result;
	foreach my $sect ($self->{config}->sectionNames()) {
		foreach my $item ($self->{config}->sectionKeys($sect)) {
print STDERR "Found:\t", $q->param("$sect|$item"), "\n";
			$self->{config}->put($item, $q->param("$sect|$item"), $sect);		}
	}
#	$q->_reset_globals();
	if (!$self->{config}->save()) { 
		return "Error saving config file: $!";
	} else {
		return $self->default();
	}
}