my %FORM = $q->Vars('topic','words','pass','textsize','topicsize','edit');


##</code><code>##

my @labels = qw(topic words pass name textsize topicsize);
my %form = map { $_ => $q->param($_) } @labels;


##</code><code>##

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()
	}
}