version 1.24, 2007/08/31 12:33:35
|
version 1.25, 2007/09/12 19:49:37
|
Line 597 sub inst_usertypes {
|
Line 597 sub inst_usertypes {
|
} |
} |
|
|
############################### |
############################### |
|
# sub username_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 |
|
# authtype => (krb5,krb4,int, or loc) |
|
# authentication type for rule |
|
# authparm => authentication parameter for rule |
|
# authparmfixed => 1 if authparm used when |
|
# creating user for rule must be authparm |
|
# authmsg => Message to display describing |
|
# authentication to use for this rule |
|
# |
|
# (c) $rulesorder - reference to array containing rule names |
|
# in order to be displayed |
|
|
|
# |
|
# returns 'ok' if no processing error. |
|
# |
|
############################### |
|
|
|
sub username_rules { |
|
my ($dom,$ruleshash,$rulesorder) = @_; |
|
my $outcome; |
|
return $outcome; |
|
} |
|
|
|
############################### |
|
# sub check_username |
|
# |
|
# Incoming data: four arguments |
|
# (a) $dom - domain (scalar) |
|
# (b) $uname - username 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 username_check { |
|
my ($dom,$uname,$to_check,$resultshash) = @_; |
|
my $outcome; |
|
return $outcome; |
|
} |
|
|
|
############################### |
# sub AUTOLOAD |
# sub AUTOLOAD |
# |
# |
# Incoming data: none |
# Incoming data: none |