Tadashi Okoshi
slash****@users*****
2005年 10月 24日 (月) 22:11:40 JST
Index: affelio/lib/Affelio/misc/WebInput.pm
diff -u affelio/lib/Affelio/misc/WebInput.pm:1.6 affelio/lib/Affelio/misc/WebInput.pm:1.7
--- affelio/lib/Affelio/misc/WebInput.pm:1.6 Fri Jul 1 11:00:10 2005
+++ affelio/lib/Affelio/misc/WebInput.pm Mon Oct 24 22:11:39 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: WebInput.pm,v 1.6 2005/07/01 02:00:10 slash5234 Exp $
+# $Id: WebInput.pm,v 1.7 2005/10/24 13:11:39 slash5234 Exp $
use strict;
package Affelio::misc::WebInput;
@@ -53,6 +53,23 @@
}
######################################################################
+ sub PTN_email{
+ my $self = shift;
+ my $in = shift;
+
+ $in =~ /([A-Za-z0-9\.\+\@\_]*)/;
+ return ($1);
+ }
+
+ ######################################################################
+ sub PTN_password{
+ my $self = shift;
+ my $in = shift;
+
+ return ($in);
+ }
+
+ ######################################################################
sub PTN_num{
my $self = shift;
my $in = shift;