Thread: perl or shell script to change the password

i want a perl or shell script so that the user of ftp can change their won password.

Perl code:

Code:

#!/usr/bin/perl 
use Unix::PasswdFile;

$pw = new Unix::PasswdFile "/etc/passwd";
$pw->passwd("monk", $pw->encpass("My-New-Password"));
$pw->commit();
undef $pw;

See:
Change root password using perl script?

Shell script code:

Code:

 echo $PASSWORD | /usr/bin/passwd --stdin $USERNAME

Now, you can write your own logic...

Thankyou,

i have another question, i am using proftpd and my password file is in different location /etc/proft.passwd and i need shell script to change that password without changing /etc/passwd file.