cgi/pwuser.cgi

   1 #!/usr/bin/perl
   2 # (c) Zachary T Welch <zw@superlucidity.net>
   3 # (c) Petr Baudis <pasky@suse.cz>
   4 # GPLv2
   5
   6 use strict;
   7 use warnings;
   8
   9 use lib qw(/home/repo/repomgr/cgi);
  10 use Git::RepoCGI;
  11
  12 my $repo = Git::RepoCGI->new('Forgotten User Password');
  13
  14 my $name = $repo->sparam('name');
  15 my $user = Git::RepoCGI::User->load($name);
  16 my $mail = $user->{email};
  17
  18 if ($repo->sparam('y0')) {
  19         # submitted
  20         my $newpwd = genpwd();
  21
  22         my $domain = $repo->site_domain;
  23         my $subject = "[$domain] New password for user $name";
  24         open (M, '|-', 'mail', '-s', $subject, $mail)
  25                 or $repo->bye("Cannot spawn mail: $!");
  26         print M <<EOT;
  27 Hello,
  28
  29 Somebody requested the password for user '$name' to be reset,
  30 so you are receiving the new password:
  31
  32         $newpwd
  33
  34 If you did not request the password to be reset, then we apologize.
  35 In any event, you must now use this new password to change the settings
  36 for the '$name' account.
  37
  38 If you would like to change your password again, you can use this quick
  39 link to your account settings page:
  40
  41         http://$domain/m/edituser.cgi?name=$name
  42
  43 Have fun!
  44 EOT
  45         close M or $repo->bye("Sending mail to $mail for $name failed: $!");
  46
  47         $user->update_password($newpwd);
  48
  49         print "<p>Account password has been reset. Have a nice day.</p>\n";
  50         exit;
  51 }
  52
  53 print <<EOT;
  54 <p>
  55 If you have forgotten the password for your user account,
  56 it can be reset to a random string that will be mailed to your
  57 registered e-mail address.
  58 </p>
  59 <form method="post">
  60 <input type="text" name="name" value="$name" />
  61 <p><input type="submit" name="y0" value="Reset Password" /></p>
  62 </form>
  63 EOT