View Full Version : Change PassWord (WWIM Integration-FLAT FILE)


andersen
03-18-2006, 01:27 AM
Do you think we can modify here for changing password from WWMessenger and automatically edit & changes the password on WWim reg.cgi file?

### Process Profile editing
sub Proc_Edit_Profile {
Validate_User_Id($user,$pass);
my($do_pass);
if ($form{'QUESTION1'} eq "") { Edit_Profile($message{7}); }
elsif ($form{'QUESTION2'} eq "") { Edit_Profile($message{8}); }
else {
if ($form{'PASSWORD'}) {
if ($form{'PASSWORD'} ne $pass) { Edit_Profile($message{13}); exit; }
if ($form{'PASSWORD1'} eq "") { Edit_Profile($message{5}); exit; }
if ($form{'PASSWORD1'} ne $form{'PASSWORD2'}) { Edit_Profile($message{4}); exit; }
my $cookie_value = Encrypt("$user|$form{'PASSWORD1'}",$pub_key,$pub_key);
my $cookie = new CGI::Cookie(-name=>'name',-value=>$cookie_value);
print "Set-Cookie: $cookie\n";
}
Update_Reg($user,$pass,$form{'PASSWORD'},$form{'PA SSWORD1'},$form{'QUESTION1'},$form{'QUESTION2'},$f orm{'QUESTION3'},$form{'QUESTION4'},$form{'QUESTIO N5'},$form{'QUESTION6'},$form{'QUESTION7'},$form{' QUESTION8'},$form{'QUESTION9'},$form{'QUESTION10'} );
if ($form{'PASSWORD'}) { $pass = $form{'PASSWORD1'}; }
Edit_Profile($message{60});
}
}

andersen
03-20-2006, 12:01 PM
Really no one interest to addon on changing WWim password at WWMessenger?

May I know where can user change WWim password???