Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (22 sloc) 589 Bytes
# Copyright 2017 Interchange Development Group
# https://www.interchangecommerce.org/
# Licensed under the GNU GPL v2. See file LICENSE for details.
CodeDef match OrderCheck 1
CodeDef match Description Matches another CGI variable, possibly for password verify
CodeDef match Routine <<EOR
sub {
my($ref, $name, $value, $msg) = @_;
$msg =~ s/^\s*(\w[-\w]*)\s*//
or return undef;
my $other = $1;
if($ref->{$other} ne $value) {
$msg = errmsg(
"%s doesn't match %s.",
$name,
$other,
) if ! $msg;
return(0, $name, $msg);
}
return (1, $name, '');
}
EOR
You can’t perform that action at this time.