&check_login; if(!$Admin_Login){error("Admin not logged in");} if(!$parent){$doupdates=""} if($max_wid){$max_widxmax_hei=$max_wid."x".$max_hei} open(CONFG,">$path_to_config"); print CONFG qq~\$default_file_name = '$default_file_name'; \$account_email = '$default_email'; \$support_email = '$support_email'; \@allowable_binary_extensions = qw($binaries); \@allowable_ascii_extensions = qw($asciis); \$disallow = '$unallow'; \$url_to_common = '$common'; \$DOMAIN_LICENSE = '$LICENSE'; \$editblock_color = '$ecolor' \$includeblock_color = '$icolor' \$font_faces = '$font_faces' \$font_sizes = '$font_sizes' \$font_pixels = '$font_pixels' \$check_for_updates='$doupdates' \$default_colors='$default_colors' \$thislang='$thislang' \$max_img_size='$max_widxmax_hei' \$strip_urls=$strip_urls \$no_imc=$no_imc \$tidy=$tidy ~; close(CONFG); $alert=qq~alert("Site instellingen opgeslagen");top.unselect("forbids")~; if($change_admin_password && $new_password ne ''){ $new_password=crypt($new_password,"ce"); open(USERS,"$path_to_users"); while(){ if(/admin=/){$_="admin=$new_password\n"} $USERS.=$_; } open(USERS,">$path_to_users"); print USERS "$USERS"; close(USERS); $alert=qq~alert("Site instellingen opgeslagen en Beheerders wachtwoord gewijzigd")~; $nu=substr($new_password,2); $new_password=crypt($nu,"Vb"); print "Set-Cookie: Admin_Login=admin|$new_password|Vb;path=/\n"; } print "Content-type: text/html\n\n"; print qq~ ~; 1;