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 $ENV{'MINISERV_INTERNAL'} || die "Can only be called by miniserv.pl";
   9 &init_config();
  10 &ReadParse();
  11 &header(undef, undef, undef, undef, 1, 1);
  12
  13 print "<center>\n";
  14 if ($in{'expired'} == 2) {
  15         print &ui_subheading($text{'password_temp'});
  16         }
  17 else {
  18         print &ui_subheading($text{'password_expired'});
  19         }
  20
  21 # Start of the form
  22 print "$text{'password_prefix'}\n";
  23 print &ui_form_start("$gconfig{'webprefix'}/password_change.cgi", "post");
  24 print &ui_hidden("user", $in{'user'});
  25 print &ui_hidden("pam", $in{'pam'});
  26 print &ui_hidden("expired", $in{'expired'});
  27 print &ui_table_start($text{'password_header'}, undef, 2);
  28
  29 # Current username
  30 print &ui_table_row($text{'password_user'},
  31         &html_escape($in{'user'}));
  32
  33 # Old password
  34 print &ui_table_row($text{'password_old'},
  35         &ui_password("old", undef, 20));
  36
  37 # New password, twice
  38 print &ui_table_row($text{'password_new1'},
  39         &ui_password("new1", undef, 20));
  40 print &ui_table_row($text{'password_new2'},
  41         &ui_password("new2", undef, 20));
  42
  43 # End of form
  44 print &ui_table_end();
  45 print &ui_form_end([ [ undef, $text{'password_ok'} ] ]);
  46 print "</center>\n";
  47 print "$text{'password_postfix'}\n";
  48
  49 &footer();
  50