Make sure that your web server can read and write the file that you are using for passwords.

Also my personal approach to this kind of problems is to read the complete file first, then modify it, and then to write it back. Something along these lines: 

open (IN,"<$myfile") or die "open failed for read: $!";
my @lines = <IN>;
close (IN);

open (OUT, ">$myfile") or die "open failed for write: $!";
foreach (@lines) {
  chomp;
  my ($user,$pass) = split(/=/);
  # Check username
  if ($user eq $i_user) {
    # Check password
    if ($pass eq $i_pass) {
      # Check the confirmation of the new password
      if ($i_newpass eq $i_cnewpass) {
        print OUT "$user=$i_newpass\n";
      }
    }
  }
  else {
    print OUT "$user=$pass\n";
  }
}
close (IN);

[download]

These, of course, looks childish, but it's extremely easy to read and follow. If this one works, then you can rewrite it in a more compact way. :)

P.S.: Code is untested of course. :)

Leonid Mamtchenkov aka TVSET

In reply to Re: changing password by TVSET
in thread changing password by bory

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.