From 426e5a7263770cee8138d44a8c66a257ed7665de Mon Sep 17 00:00:00 2001 From: einhverfr Date: Fri, 22 Jun 2007 00:24:12 +0000 Subject: session expired/password request screen now uses UI templates git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1299 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/pw.pl | 69 ++++++++++++++++++--------------------------------------------- 1 file changed, 20 insertions(+), 49 deletions(-) (limited to 'bin') diff --git a/bin/pw.pl b/bin/pw.pl index f03ed240..99020906 100644 --- a/bin/pw.pl +++ b/bin/pw.pl @@ -34,59 +34,30 @@ # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. #====================================================================== +use LedgerSMB::Template; + 1; # end of main sub getpassword { - my ($s) = @_; - - $form->{endsession} = 1; - - $sessionexpired = - qq|

| - . $locale->text('Session expired!') - . qq|

| - if $s; - - my $headeradd = qq| -|; - - $form->header( undef, $headeradd ); - print qq| - - - $sessionexpired - -

{script} name=pw> - - - - - - - -

\| . $locale->text('Password') . qq\|

- -|; - - for (qw(script endsession password)) { delete $form->{$_} } - $form->hide_form; - - print qq| -

- - - -|; - + $form->{sessionexpired} = shift @_; + @{$form->{hidden}}; + for (keys %$form){ + next if $_ =~ /(^script$|^endsession$|^password$)/; + my $attr = {}; + $attr->{name} = $_; + $attr->{value} = $form->{$_}; + push @{$form->{hidden}}, $attr; + } + my $template = Template->new( + user => \%myconfig, + locale => $locale, + path => 'UI', + template => 'get_password.html', + format => 'HTML' + ); + $template->render($form); + exit; } -- cgit v1.2.3