&get_input; open(TL,"$path_to_lang/$thislang/basic_auth.txt"); while(){push(@LaNg,$_)} &exec_lang; if($folder_url){ $folder=$folder_url; $folder =~ s`http://$host`$path_to_domain`; } $htp=$folder."/.htpasswd"; if($users ne ''){ open(HTP,"$htp"); while(){ if(/^$users\b/){ $_=""; } $SAVE.=$_; } $jsnote="$jsnote2 - $users\\n"; open(HTP,">$htp"); print HTP "$SAVE"; close(HTP); } if($nu_username ne ""){ if($^O !~ /mswin32/i){ $salt=substr($pword1,0,2); $pw=crypt($pword1,$salt); }else{ $pw=$pword1; } $entry="$nu_username:$pw:$email"; open(HTP,"$htp"); while(){ if(/^$nu_username\b/){ $user_fnd=1; last; } } if(!$user_fnd){ open(HTP,">>$htp"); print HTP "$entry\n"; close(HTP); $jsnote.="$jsnote1 - $nu_username\\n"; }else{ $jsnote.="$jsnote5 - $nu_username\\n"; } } if($folder_url && $user_fnd){ print "Content-type: text/html\n\n"; print qq~$nu_username $htm_text25~; exit } if($folder_url){ print "Location: $folder_url\n\n"; exit }else{ print "Content-type: text/html\n\n"; print qq~~; }