password_form.cgi

   1 #!/usr/local/bin/perl
   2 # password_form.cgi
   3 # Display the form that allows users to change their passwords at login time
   4
   5 BEGIN { push(@INC, ".."); };
   6 use WebminCore;
   7
   8 $pragma_no_cache = 1;
   9 $ENV{'MINISERV_INTERNAL'} || die "Can only be called by miniserv.pl";
  10 &init_config();
  11 &ReadParse();
  12 &header(undef, undef, undef, undef, 1, 1);
  13
  14 print "<center>\n";
  15 if ($in{'expired'} == 2) {
  16         print &ui_subheading($text{'password_temp'});
  17         }
  18 else {
  19         print &ui_subheading($text{'password_expired'});
  20         }
  21
  22 # Start of the form
  23 print "$text{'password_prefix'}\n";
  24 print &ui_form_start("$gconfig{'webprefix'}/password_change.cgi", "post");
  25 print &ui_hidden("user", $in{'user'});
  26 print &ui_hidden("pam", $in{'pam'});
  27 print &ui_hidden("expired", $in{'expired'});
  28 print &ui_table_start($text{'password_header'}, undef, 2);
  29
  30 # Current username
  31 print &ui_table_row($text{'password_user'},
  32         &html_escape($in{'user'}));
  33
  34 # Old password
  35 print &ui_table_row($text{'password_old'},
  36         &ui_password("old", undef, 20));
  37
  38 # New password, twice
  39 print &ui_table_row($text{'password_new1'},
  40         &ui_password("new1", undef, 20));
  41 print &ui_table_row($text{'password_new2'},
  42         &ui_password("new2", undef, 20));
  43
  44 # End of form
  45 print &ui_table_end();
  46 print &ui_form_end([ [ undef, $text{'password_ok'} ] ]);
  47 print "</center>\n";
  48 print "$text{'password_postfix'}\n";
  49
  50 &footer();
  51