I am getting this error below. Undefined subroutine &main::GetOrPost called at ubb_new_topic.cgi line 136. What in the world would cause this neat error....lol I have checked the script 3 times now and all is fine as it was typed. What now? I did the below and double checked it even. ###============================== in ubb_new_topic.cgi ###==============================
###########find:
# show signature? if (($vars_display{AllowSignature} eq 'YES') && ($username ne '')) { $show_sig = qq( $vars_wordlets{show_signature}); }
########### add this before:
# show poll? require "$vars_config{VariablesPath}/vars_poll.cgi"; if ($vars_poll{UbbPoll} eq 'Admin') { # user must be an admin or mod #verify cookie id @user_profile = &verify_id_num($username, $password, $user_number);
# make sure user is an admin or moderator of this forum my $is_one = &is_admin_or_mod($in{f}, @user_profile);
if ($is_one ne "true") { $show_poll = 'no'; } else { $show_poll = 'yes'; } }
if ($vars_poll{UbbPoll} eq 'individ_user_level') { # user must be an admin or mod #verify cookie id @user_profile = &verify_id_num($username, $password, $user_number);
# make sure user is an admin or moderator of this forum my $is_one = &is_admin_or_mod($in{f}, @user_profile);
# get user perms ($j, $perms) = split(/&/, $user_profile[4]); if ($perms =~ /p/) { $is_one = "true"; }
if ($is_one ne "true") { $show_poll = 'no'; } else { $show_poll = 'yes'; }
} if ($vars_poll{UbbPoll} eq 'All') { $show_poll = 'yes'; } my $this_forum = "forum_$in{f}"; if ($vars_poll{$this_forum} eq 'no') { $show_poll = 'no'; } if (($vars_poll{UbbPoll} ne 'None') && ($show_poll eq 'yes')) { $show_poll_add = qq(  Poll: Check to Create a Poll With Topic     Number of Poll Options:
# perform disk space test: # this is in case disk quota is exceeded, to limit damage--
############ add this before:
# add poll if there is one if ($in{Poll} ne '') { for ($i=0; $i<$in{Poll_total_options}; $i++) { $this_option = "option_$i"; if ($in{$this_option} =~ /'/) { &StandardHTML('Poll options may not contain a ' (apostrophe).'); } if ($in{$this_option} eq '') { &StandardHTML('You did not fill out all options.'); } if ($i == 0) { $poll_options = $in{$this_option}; } else { $poll_options .= "|!!|$in{$this_option}"; } } require "$vars_config{CGIPath}/ubb_poll_lib.cgi"; &new_poll_thread($exact_path, $new_topic_number, $in{question}, $poll_options); }
Donate to UBBDev today to help aid in Operational, Server and Script Maintenance, and Development costs.
Please also see our parent organization VNC Web Services if you're in the need of a new UBB.threads Install or Upgrade, Site/Server Migrations, or Security and Coding Services.