Mailing List Archive

Author: richter
Date: Thu Jan 30 08:25:32 2014
New Revision: 1562718

URL: http://svn.apache.org/r1562718
Log:
Do not write passwords in html text

Modified:
perl/embperl/trunk/Embperl/Form/Control/password.pm
perl/embperl/trunk/Embperl/Form/Control/passwordonce.pm

Modified: perl/embperl/trunk/Embperl/Form/Control/password.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/password.pm?rev=1562718&r1=1562717&r2=1562718&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/password.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/password.pm Thu Jan 30 08:25:32 2014
@@ -20,8 +20,60 @@ package Embperl::Form::Control::password
use strict ;
use base 'Embperl::Form::Control' ;

+use vars qw{%fdat} ;
+
use Embperl::Inline ;

+
+
+# ------------------------------------------------------------------------------------------
+#
+# init_data - daten aufteilen
+#
+
+sub init_data
+ {
+ my ($self, $req, $parentctrl) = @_ ;
+
+ my $fdat = $req -> {docdata} || \%fdat ;
+ my $name = $self->{name} ;
+
+ $fdat->{$name} = $fdat->{$name}?'********':'' ;
+
+ my $retype_name = $self->{retype_name} ;
+ $fdat->{$retype_name} = $fdat->{$name} if ($retype_name) ;
+ }
+
+# ------------------------------------------------------------------------------------------
+#
+# prepare_fdat - daten zusammenfuehren
+#
+
+sub prepare_fdat
+ {
+ my ($self, $req) = @_ ;
+
+ my $fdat = $req -> {form} || \%fdat ;
+ my $name = $self->{name} ;
+
+ delete $fdat -> {$name} if ($fdat -> {$name} eq '********') ;
+ }
+
+# ---------------------------------------------------------------------------
+#
+# get_validate_auto_rules - get rules for validation, in case user did
+# not specify any
+#
+
+sub get_validate_auto_rules
+ {
+ my ($self, $req) = @_ ;
+
+ return if (!$self->{retype_name}) ;
+ return [ "same", $self->{retype_name} ] ;
+ }
+
+
1 ;

__EMBPERL__
@@ -45,7 +97,7 @@ __EMBPERL__
# show_control_readonly - output the control as readonly
#]

-[$ sub show_control_readonly ($self) $]*****[$endsub$]
+[$ sub show_control_readonly ($self) $][$ if ($fdat{$self->{name}}) $]********[$endif$][$endsub$]



@@ -90,6 +142,13 @@ Will be used as label for the text input

Gives the size in characters

+=head3 retype_name
+
+Name of control that is used to repeat the password.
+An automatic validation rule will be generated, to make
+sure both inputs are equal.
+
+
=head3 maxlength

Gives the maximun length in characters

Modified: perl/embperl/trunk/Embperl/Form/Control/passwordonce.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/passwordonce.pm?rev=1562718&r1=1562717&r2=1562718&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/passwordonce.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/passwordonce.pm Thu Jan 30 08:25:32 2014
@@ -18,10 +18,14 @@
package Embperl::Form::Control::passwordonce ;

use strict ;
-use base 'Embperl::Form::Control' ;
+use base 'Embperl::Form::Control::password' ;

use Embperl::Inline ;

+
+
+
+
1 ;

__EMBPERL__



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org