in reply to Re: Mason design issue.
in thread Mason design issue.
<%attr> http_title =>'Admin Widget' widget_title =>'Change Password' </%attr> <div class="window"> <div class="title"> <% $title %> </div> <div class="body"> <form method="post" action="<% $m->caller(0)->name %>"> <table style="width:100%"> <tr> <td style="width:50%"> New Password: <input type="password" name="password" size +="30" /> </td> <td> Confirm Password: <input type="password" name="password_c +onfirm" size="30" /> </td> </tr> <tr> <td colspan="2"> <input type="hidden" name="form" value="<% $m->current_com +p->name %>" /> <input type="submit" value="Change my Password" /> </td> </tr> </table> </form> </div> </div> <%init> if ( $form eq $m->current_comp->name ) { if ( defined $password && defined $password_confirm ) { if ( $password eq $password_confirm ) { $dbh->do( qq{UPDATE users SET "password" = ? WHERE "pkid" = ? +}, {}, sha1_base64($password), $S->{'pkid'} ); $title .= " || You have changed your password.", print $S->{pk +id}; } else { $title .= " || Passwords do not match."; } } else { $title .= " || Not enough information."; } } </%init> <%shared> use Digest::SHA1 q/sha1_base64/; my $title = $m->current_comp->attr('widget_title'); </%shared> <%args> $S $password_confirm => $m->caller_args(1)->{'password'} || undef $password => $m->caller_args(1)->{'password_confirm'} || u +ndef $form => $m->caller_args(1)->{'form'} || undef </%args>
|
|---|