1 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
2 <%= include('header') %>
4 <FONT SIZE=4>Change password</FONT><BR><BR>
7 $OUT .= qq!<FONT SIZE="+1" COLOR="#ff0000">$error</FONT><BR><BR>!;
10 <FORM ACTION="<%= $selfurl %>" METHOD="POST">
11 <INPUT TYPE="hidden" NAME="session" VALUE="<%= $session_id %>">
12 <INPUT TYPE="hidden" NAME="action" VALUE="process_change_password">
14 <TABLE BGCOLOR="#cccccc">
17 <TH ALIGN="right">Change password for account: </TH>
19 <SELECT NAME="svcnum">
20 <%= foreach my $svc ( @svcs ) {
21 $OUT .= '<OPTION VALUE="'. $svc->{'svcnum'}. '"'.
22 ( $svc->{'svcnum'} eq $svcnum ? ' SELECTED' : '' ). '>'.
23 $svc->{'label'}. ': '. $svc->{'value'}. "\n";
31 <TH ALIGN="right">New password: </TH>
32 <TD><INPUT TYPE="password" NAME="new_password" SIZE="18"></TD>
36 <TH ALIGN="right">Re-enter new password: </TH>
37 <TD><INPUT TYPE="password" NAME="new_password2" SIZE="18"></TD>
43 <INPUT TYPE="submit" VALUE="Change password">
48 <%= include('footer') %>