!;
$exit = 1;
}
eval q{use URI::Escape;};
if($@ ne ''){
print "Content-type: text/html\n\n";
print qq!
URI::Escape perl library is not found in your installation.
This is a requirement to be able to run ODP++.
!;
$exit = 1;
}
exit if($exit == 1);
my $help = get("http://www.portalscripts.com/odp/help.txt");
my %HELP = grep{length} split("", $help);
chdir("..");
require "tools.pm";
my %formdata = &Parse_Form;
my %CONFIG = &read_config;
if($CONFIG{'MAX_LOGS'} > 1000){
$CONFIG{'MAX_LOGS'} = 1000;
}
print "Content-type: text/html\n\n";
if(exists $formdata{'current_admin_password'}){
if($formdata{'current_admin_password'} eq $CONFIG{'ADMIN_PASSWORD'}){
delete $formdata{'current_admin_password'};
delete $formdata{'submit'};
update_conf(\%formdata);
print qq!
Your changes are saved. Click here to continue modifying your configuration.
!;
}
else{
print "authorization incorrect";
}
exit;
}
if(exists $formdata{'enterance_pass'}){
if($formdata{'enterance_pass'} eq $CONFIG{'ADMIN_PASSWORD'}){
my $out = "";
$out .= qq!
ODP++
ODP++ Admin
!;
print $out;
}
else{
print "authorization incorrect";
}
exit;
}
print qq!
!;
sub update_conf {
my ($formdata) = @_;
open(LIST, ">system.conf");
flock(LIST, 2);
for (keys %$formdata){
print LIST "$_ == $formdata->{$_}\n";
}
flock(LIST, 8);
close(LIST);
}