Hello, I installed the password mod by phoenix. That password part is working fine (when adding URL) BUT... When I click on "Modify URL" I'm getting a "500 server error" Please help
I have gone over all the steps a billion times, can't figure it out.
I think the problem should be somewhere in the modify.cgi's sub main ?
Here is what I have:
###########
sub main {
# --------------------------------------------------------
local (%in) = &parse_form;
# We are processing the form.
if ($in{'Submit'}) {
&process_form;
}
# Otherwise we are displaying the form (in site_html.pl), displaying
# the entrance (Asks for Link ID and Password)
else {
if ($in{'ID'} =~ /^\d+$/) {
my (%rec) = &get_record ($in{'ID'});
if ($rec{$db_key} eq $in{'ID'}) {
if ($rec{'Password'} eq $in{'password'}) {
&site_html_modify_form (%rec);
}
else {
&site_html_modify_failure ("Password Invalid: $in{'password'}");
}
}
else {
&site_html_modify_failure ("Unkown Link ID: $in{'ID'}");
}
}
else {
&site_html_modify_first;
}
}
}
####
Here is the site_html_modify_first
#####
sub site_html_modify_first {
#---------------------------------------------------------
# displays the form for users to enter the ID number and
# Password for the Link they wish to modify
&html_print_headers;
print &load_template ('modify_first.html', {
%globals
});
}
#######
And the site_html_modify_form
#######
sub site_html_modify_form {
# --------------------------------------------------------
# This routine determines how the modify form page will look like.
my %rec = @_;
my $category = &build_select_field ("Category", "$rec{'Category'}");
&html_print_headers;
print &load_template ('modify.html', {
category => $category,
country => &build_select_field ("Country", "$rec{'Country'}"),
%rec,
%globals
});
}
#####
I know is right in front of me I just can't see it ???
[This message has been edited by Patricio (edited February 02, 2000).]
I have gone over all the steps a billion times, can't figure it out.
I think the problem should be somewhere in the modify.cgi's sub main ?
Here is what I have:
###########
sub main {
# --------------------------------------------------------
local (%in) = &parse_form;
# We are processing the form.
if ($in{'Submit'}) {
&process_form;
}
# Otherwise we are displaying the form (in site_html.pl), displaying
# the entrance (Asks for Link ID and Password)
else {
if ($in{'ID'} =~ /^\d+$/) {
my (%rec) = &get_record ($in{'ID'});
if ($rec{$db_key} eq $in{'ID'}) {
if ($rec{'Password'} eq $in{'password'}) {
&site_html_modify_form (%rec);
}
else {
&site_html_modify_failure ("Password Invalid: $in{'password'}");
}
}
else {
&site_html_modify_failure ("Unkown Link ID: $in{'ID'}");
}
}
else {
&site_html_modify_first;
}
}
}
####
Here is the site_html_modify_first
#####
sub site_html_modify_first {
#---------------------------------------------------------
# displays the form for users to enter the ID number and
# Password for the Link they wish to modify
&html_print_headers;
print &load_template ('modify_first.html', {
%globals
});
}
#######
And the site_html_modify_form
#######
sub site_html_modify_form {
# --------------------------------------------------------
# This routine determines how the modify form page will look like.
my %rec = @_;
my $category = &build_select_field ("Category", "$rec{'Category'}");
&html_print_headers;
print &load_template ('modify.html', {
category => $category,
country => &build_select_field ("Country", "$rec{'Country'}"),
%rec,
%globals
});
}
#####
I know is right in front of me I just can't see it ???
[This message has been edited by Patricio (edited February 02, 2000).]