cgi/pwproj.cgi

   1 #!/usr/bin/perl
   2 # (c) Petr Baudis <pasky@suse.cz>
   3 # GPLv2
   4
   5 use strict;
   6 use warnings;
   7
   8 use lib qw(/home/repo/repomgr/cgi);
   9 use Git::RepoCGI;
  10
  11
  12 sub genpwd {
  13         # FLUFFY!
  14         substr(crypt(rand, rand), 2);
  15 }
  16
  17
  18 my $repo = Git::RepoCGI->new('Forgotten Project Password');
  19 my $cgi = $repo->cgi;
  20
  21 my $name = $cgi->param('name');
  22
  23 unless (defined $name) {
  24         print "<p>I need the project name as an argument.</p>\n";
  25         exit;
  26 }
  27
  28 if (!valid_proj_name($name)) {
  29         print "<p>Invalid project name. Go away, sorcerer.</p>\n";
  30         exit;
  31 }
  32
  33 if (!Git::RepoCGI::Project::does_exist($name)) {
  34         print "<p>Sorry but this project does not exist. Now, how did you <em>get</em> here?!</p>\n";
  35         exit;
  36 }
  37
  38 if (!Git::RepoCGI::Project::available($name)) {
  39         print "<p>Sorry but your project has not finished mirroring yet. If it takes inordinate amount of time, please tell the administrator.</p>\n";
  40         exit;
  41 }
  42
  43 my $proj = Git::RepoCGI::Project->load($name);
  44 $proj or die "not found project $name, that's really weird!";
  45
  46 my $mail = $proj->{email};
  47
  48 if ($cgi->param('y0')) {
  49         # submitted
  50
  51         my $newpwd = genpwd();
  52
  53         open (M, '|-', 'mail', '-s', '[repo.or.cz] New password for project '.$name, $mail) or die "Cannot spawn mail: $!";
  54         print M <<EOT;
  55 Hello,
  56
  57 somebody asked for the password for project $name to be reset. Since you are
  58 the project admin, you get to know the new password:
  59
  60         $newpwd
  61
  62 In case you didn't request the password to be reset, we apologize. Nevertheless,
  63 you have to use the reset password now (possibly to change it back).
  64
  65 Quick-link to the edit project page:
  66
  67         http://repo.or.cz/m/editproj.cgi?name=$name
  68
  69 Have fun!
  70 EOT
  71         close M or die "mail $mail for $name died? $!";
  72
  73         $proj->update_password($newpwd);
  74
  75         print "<p>Project password has been reset. Have a nice day.</p>\n";
  76         exit;
  77 }
  78
  79 print <<EOT;
  80 <p>You are trying to make me reset password for project $name. I'll send the new
  81 password to the project admin &lt;$mail&gt;.</p>
  82 <form method="post">
  83 <input type="hidden" name="name" value="$name" />
  84 <p><input type="submit" name="y0" value="Reset Password" /></p>
  85 </form>
  86 EOT
  87