use CGI;
use CGI::Carp qw(fatalsToBrowser);
use HTML::Entities qw(encode_entities);

my $cgi = CGI->new;

# in Movies/Movie_by_alpha.pl
my $year   = $cgi->param('year')     ? encode_entities($cgi->param('year'),     '<>"') : '';
my $media  = $cgi->param('media')    ? encode_entities($cgi->param('media'),    '<>"') : '';
my $format = $cgi->param('format')   ? encode_entities($cgi->param('format'),   '<>"') : '';
my $genre  = $cgi->param('genre')    ? encode_entities($cgi->param('genre'),    '<>"') : '';
my $basis  = $cgi->param('based on') ? encode_entities($cgi->param('based on'), '<>"') : '';
my $title  = $cgi->param('title')    ? encode_entities($cgi->param('title'),    '<>"') : '';

# in Movies/Movies_by_genre.pl
my $select = encode_entities($cgi->param('genre'),'<>"');

# in Movies/Movies_by_series.pl
my $select = encode_entities($cgi->param('series'),'<>"');

# in Role_playing/Magic_items/spell_scrolls.pl
my $select = encode_entities($cgi->param('spell scroll'),'<>"');

# in Role_playing/Miscellany/Character_mutations_generator.pl
my $iterations = $cgi->param('iterations') ? encode_entities($cgi->param('iterations'),'<>"') : 1;

# in Role_playing/Miscellany/Word_finds.pl
my $select = encode_entities($cgi->param('word find'),'<>"');

# in Role_playing/Monsters/index.pl
my $select = $cgi->param('monster') ? encode_entities($cgi->param('monster'),'<>"') : undef;

# in Role_playing/Player_characters/Spellbooks.pl
my $select = encode_entities($cgi->param('spellbook'),'<>"');

# in Role_playing/Reference_tables/Proficiencies.pl
my $alpha   = $cgi->param('alpha') ? encode_entities($cgi->param('alpha'),'<>"') : '';
my @classes = $cgi->param('class') ? $cgi->param('class') : ''; # can't encode entities or array won't work.
my $slots   = $cgi->param('slots') ? encode_entities($cgi->param('slots'),'<>"') : '';
my $ability = $cgi->param('rel_ability') ? encode_entities($cgi->param('rel_ability'),'<>"') : '';

# in Role_playing/Reference_tables/Weapons.pl
my $broad = $cgi->param('broad') ? encode_entities($cgi->param('broad'),'<>"') : '';
my $tight = $cgi->param('tight') ? encode_entities($cgi->param('tight'),'<>"') : '';

# in working/Twitter/Follower_check.pl
my $follower = encode_entities($cgi->param('follower'),'<>"');
my $outreach = encode_entities($cgi->param('outreach'),'<>"');

# in working/Twitter/Tweet_a_message.pl
# can't encode entities on arrays since they won't work.
my @account_select = $cgi->param('account_select');
my @list_select = $cgi->param('list_select');
my $tweet = encode_entities($cgi->param('tweet'),'<>"');

# in working/Twitter/Twitter_lists_properties.pl
my $sort_by = encode_entities($cgi->param('sort'),'<>"');

# in working/Twitter/Twitter_mentions.pl
my $select = encode_entities($cgi->param('accounts'),'<>"');

# in working/Twitter/Twitter_people.pl
my $select = encode_entities($cgi->param('accounts'),'<>"');