open(TL,"$path_to_lang/$thislang/get_user.txt"); while(){push(@LaNg,$_)} &exec_lang; &check_login; if(!$Admin_Login){error("Admin niet ingelogd");} open(US,"$path_to_users"); if($password ne ''){ $password=crypt($password,'ce'); }else{ $password=$user_password; } if("@buttons" =~ /link$/){push(@buttons,"unlink")} if($pubtype eq "auth"){push(@buttons,"auth")} if($pubtype eq "pub"){push(@buttons,"pub")} @buttons=sort(@buttons); $buttons = join("|",@buttons); $auths=join("|",@AUTHS); $user_files=join("|",@FILES); if(!$user_folder){$user_folder=$url_to_domain} if($usrtype eq "super"){$super="super"} $insert=qq~$user_name=$password=$user_folder=$buttons=$kb=$mb^$fn=$user_files=$user_email=$super=$auths=$usrtype=$mode\n~; open(USERS,"$path_to_users"); while(){ if(/^$user_name=/){$_=$insert;$fnd=1} $SAVE.=$_; } if($fnd){ $return=qq~$ini1 $user_name $ini2~; open(USERS,">$path_to_users"); print USERS "$SAVE"; }else{ $return=qq~Gebruiker $user_name toegevoegd~; open(USERS,">>$path_to_users"); print USERS "$insert"; } print "Content-type: text/html\n\n"; print qq~ ~;