&get_input; open(USR,"$path_to_users"); while(){ if(/^$param1=/){ s/[\r\n]//; ($un,$pw,$user_root,$buttons,$imagesize,$usermb,$user_files,$user_email,$super,$auths,$usrtype,$mode)=split(/=/); last; } } $user_root=~s!/$!!;$user_root.="/"; $user_root=~s!http://.+?/!$path_to_domain/!;$user_root=~s!/$!!; ($type,$nom)=split(/&/,$param2,2); &record_submission; print "Location: $submission_redirect\n\n"; exit; 1;