sub parse_form {
	my %FORM = map { $_, @{[ param($_) ]} > 1 ? [ param($_) ] : param($_) } param();
	$name = $q->param('name') || "Agenda";
	$name =~ s/\s/_/g;
	$words = $q->param('words');
	$plain_words=$words;
	$words =~ s/\r\n/<BR>/g;
	while ($words=~ /<br>/gi ) {$line_break_count++}  
	$topic= $q->param('topic');
	$textcolor = $q->param('textcolor');
	$textsize = $q->param('textsize');
	$topicsize = $q->param('topicsize');
	$textface = $q->param('textface');
	$user = $ENV{'REMOTE_ADDR'};
	$pass = $q->param('pass');
	$edit = $q->param('edit');

	if ($edit eq "done") {
		send_edit_form();
	} elsif ($edit eq "yes") {
                make_edit_form();
	}
	if ($line_break_count > $max_break_count) {
		seperate_page()
	}
}