|
Lines 116-122
sub checkpw_shib {
Link Here
|
| 116 |
sub _autocreate { |
116 |
sub _autocreate { |
| 117 |
my ( $config, $match ) = @_; |
117 |
my ( $config, $match ) = @_; |
| 118 |
|
118 |
|
| 119 |
my %borrower = ( shibbolethMatchField => $match ); |
119 |
my %borrower = ( $config->{matchpoint} => $match ); |
| 120 |
|
120 |
|
| 121 |
while ( my ( $key, $entry ) = each %{$config->{'mapping'}} ) { |
121 |
while ( my ( $key, $entry ) = each %{$config->{'mapping'}} ) { |
| 122 |
$borrower{$key} = ( $entry->{'is'} && $ENV{ $entry->{'is'} } ) || $entry->{'content'} || ''; |
122 |
$borrower{$key} = ( $entry->{'is'} && $ENV{ $entry->{'is'} } ) || $entry->{'content'} || ''; |