version 1.30, 2008/02/24 22:59:20
|
version 1.31, 2008/02/29 21:01:43
|
Line 660 sub id_rules {
|
Line 660 sub id_rules {
|
} |
} |
|
|
############################### |
############################### |
# sub selfenroll_rules |
# sub selfcreate_rules |
# |
# |
# Incoming data: three arguments |
# Incoming data: three arguments |
# (a) $dom - domain |
# (a) $dom - domain |
Line 680 sub id_rules {
|
Line 680 sub id_rules {
|
############################### |
############################### |
|
|
|
|
sub selfenroll_rules { |
sub selfcreate_rules { |
my ($dom,$ruleshash,$rulesorder) = @_; |
my ($dom,$ruleshash,$rulesorder) = @_; |
my $outcome; |
my $outcome; |
return $outcome; |
return $outcome; |
Line 731 sub id_check {
|
Line 731 sub id_check {
|
} |
} |
|
|
############################### |
############################### |
# sub selfenroll_check |
# sub selfcreate_check |
# |
# |
# Incoming data: four arguments |
# Incoming data: four arguments |
# (a) $dom - domain (scalar) |
# (a) $dom - domain (scalar) |
# (b) $selfenrollname - e-mail proposed as username (compare against rules - scalar) |
# (b) $selfcreatename - e-mail proposed as username (compare against rules - scalar) |
# (c) $to_check (reference to array of rule names to check) |
# (c) $to_check (reference to array of rule names to check) |
# (d) $resultshash (reference to hash of results) |
# (d) $resultshash (reference to hash of results) |
# hash of results for rule checked |
# hash of results for rule checked |
Line 746 sub id_check {
|
Line 746 sub id_check {
|
# |
# |
############################### |
############################### |
|
|
sub selfenroll_check { |
sub selfcreate_check { |
my ($dom,$selfenrollname,$to_check,$resultshash) = @_; |
my ($dom,$selfcreatename,$to_check,$resultshash) = @_; |
my $outcome; |
my $outcome; |
return $outcome; |
return $outcome; |
} |
} |