sub
browser {
my
(
$self
,
$c
) =
@_
;
my
$result
=
$c
->plugin(
'Validate'
)->browser();
$self
->_success(
$c
)
if
(
$result
== 0);
}
sub
currency {
my
(
$self
,
$c
) =
@_
;
my
$result1
=
$c
->plugin(
'Validate'
)->currency(
'1.99'
);
my
$result2
=
$c
->plugin(
'Validate'
)->currency(
'x.99'
);
my
$result3
=
$c
->plugin(
'Validate'
)->currency(
'9.999'
);
$self
->_success(
$c
)
if
(
$result1
== 1 &&
$result2
== 0 &&
$result2
== 0);
}
sub
date {
my
(
$self
,
$c
) =
@_
;
my
$result1
=
$c
->plugin(
'Validate'
)->date(
'2009-01-01'
);
my
$result2
=
$c
->plugin(
'Validate'
)->date(
'20-01-0100'
);
my
$result3
=
$c
->plugin(
'Validate'
)->date(
'YYYY-01-01'
);
$self
->_success(
$c
)
if
(
$result1
== 1 &&
$result2
== 0 &&
$result2
== 0);
}
sub
date_is_future {
my
(
$self
,
$c
) =
@_
;
my
$result1
=
$c
->plugin(
'Validate'
)->date_is_future(
'2020-02-16'
);
my
$result2
=
$c
->plugin(
'Validate'
)->date_is_future(
'2009-01-01'
);
$self
->_success(
$c
)
if
(
$result1
== 1 &&
$result2
== 0);
}
sub
date_is_past {
my
(
$self
,
$c
) =
@_
;
my
$result1
=
$c
->plugin(
'Validate'
)->date_is_past(
'2020-02-16'
);
my
$result2
=
$c
->plugin(
'Validate'
)->date_is_past(
'2009-01-01'
);
$self
->_success(
$c
)
if
(
$result1
== 0 &&
$result2
== 1);
}
sub
domain {
my
(
$self
,
$c
) =
@_
;
my
$result1
=
$c
->plugin(
'Validate'
)->domain(
'domain.com'
);
my
$result2
=
$c
->plugin(
'Validate'
)->domain(
'www.domain.com'
);
$self
->_success(
$c
)
if
(
$result1
== 1 &&
$result2
== 0);
}
sub
email {
my
(
$self
,
$c
) =
@_
;
my
$result1
=
$c
->plugin(
'Validate'
)->email(
'user@domain.com'
);
my
$result2
=
$c
->plugin(
'Validate'
)->email(
'user_domain.com'
);
my
$result3
=
$c
->plugin(
'Validate'
)->email(
'user@domain'
);
$self
->_success(
$c
)
if
(
$result1
== 1 &&
$result2
== 0 &&
$result3
== 0);
}
sub
integer {
my
(
$self
,
$c
) =
@_
;
my
$result1
=
$c
->plugin(
'Validate'
)->integer(
'1'
);
my
$result2
=
$c
->plugin(
'Validate'
)->integer(
'X'
);
my
$result3
=
$c
->plugin(
'Validate'
)->integer(
' '
);
$self
->_success(
$c
)
if
(
$result1
== 1 &&
$result2
== 0 &&
$result3
== 0);
}
sub
html {
my
(
$self
,
$c
) =
@_
;
my
$result1
=
$c
->plugin(
'Validate'
)->html(
'<html> ... </html>'
);
my
$result2
=
$c
->plugin(
'Validate'
)->html(
'XXX ... /XXX'
);
$self
->_success(
$c
)
if
(
$result1
== 1 &&
$result2
== 0);
}
sub
url {
my
(
$self
,
$c
) =
@_
;
$self
->_success(
$c
)
if
(
$result1
== 1 &&
$result2
== 1 &&
$result3
== 0);
}
sub
_success {
my
(
$self
,
$c
) =
@_
;
$c
->request->content_type(
'text/html'
);
print
"success"
;
exit
;
}
1;