version 1.26, 2007/09/12 19:50:47
|
version 1.27, 2007/11/10 03:10:49
|
Line 631 sub username_rules {
|
Line 631 sub username_rules {
|
} |
} |
|
|
############################### |
############################### |
|
# sub id_rules |
|
# |
|
# Incoming data: three arguments |
|
# (a) $dom - domain |
|
# (b) $ruleshash - reference to hash containing rules |
|
# (a hash of a hash) |
|
# keys of top level hash are short names |
|
# (e.g., netid, noncredit) |
|
# for each key, value is a hash |
|
# desc => long name for rule |
|
# rule => description of rule |
|
# |
|
# (c) $rulesorder - reference to array containing rule names |
|
# in order to be displayed |
|
|
|
# |
|
# returns 'ok' if no processing error. |
|
# |
|
############################### |
|
|
|
sub id_rules { |
|
my ($dom,$ruleshash,$rulesorder) = @_; |
|
my $outcome; |
|
return $outcome; |
|
} |
|
|
|
############################### |
# sub username_check |
# sub username_check |
# |
# |
# Incoming data: four arguments |
# Incoming data: four arguments |
Line 653 sub username_check {
|
Line 680 sub username_check {
|
} |
} |
|
|
############################### |
############################### |
|
# sub id_check |
|
# |
|
# Incoming data: four arguments |
|
# (a) $dom - domain (scalar) |
|
# (b) $id - ID to compare against rules (scalar) |
|
# (c) $to_check (reference to array of rule names to check) |
|
# (d) $resultshash (reference to hash of results) |
|
# hash of results for rule checked |
|
# - keys are rule names |
|
# - values are: 1 or 0 (for matched or unmatched) |
|
# |
|
# returns 'ok' if no processing error. |
|
# |
|
############################### |
|
|
|
sub id_check { |
|
my ($dom,$id,$to_check,$resultshash) = @_; |
|
my $outcome; |
|
return $outcome; |
|
} |
|
|
|
############################### |
# sub AUTOLOAD |
# sub AUTOLOAD |
# |
# |
# Incoming data: none |
# Incoming data: none |