version 1.434, 2009/12/03 17:43:19
|
version 1.437, 2010/02/21 02:02:51
|
Line 3129 sub dump_with_regexp {
|
Line 3129 sub dump_with_regexp {
|
if ($clientversion =~ /^(\d+)\.(\d+)$/) { |
if ($clientversion =~ /^(\d+)\.(\d+)$/) { |
my $major = $1; |
my $major = $1; |
my $minor = $2; |
my $minor = $2; |
next if (($major < 2) || (($major == 2) && ($minor < 10))); |
next if (($major < 2) || (($major == 2) && ($minor < 9))); |
} |
} |
} |
} |
} |
} |
Line 3870 sub dump_course_id_handler {
|
Line 3870 sub dump_course_id_handler {
|
$items->{'cloners'} = $cloneruname.':'.$clonerudom; |
$items->{'cloners'} = $cloneruname.':'.$clonerudom; |
$valchange = 1; |
$valchange = 1; |
} |
} |
|
unless ($canclone) { |
|
if ($items->{'owner'} =~ /:/) { |
|
if ($items->{'owner'} eq $cloner) { |
|
$canclone = 1; |
|
} |
|
} elsif ($cloner eq $udom.':'.$items->{'owner'}) { |
|
$canclone = 1; |
|
} |
|
if ($canclone) { |
|
$items->{'cloners'} = $cloneruname.':'.$clonerudom; |
|
$valchange = 1; |
|
} |
|
} |
} |
} |
} |
} |
if ($unpack || !$rtn_as_hash) { |
if ($unpack || !$rtn_as_hash) { |
Line 6553 sub rewrite_password_file {
|
Line 6566 sub rewrite_password_file {
|
|
|
# Returns the authorization type or nouser if there is no such user. |
# Returns the authorization type or nouser if there is no such user. |
# |
# |
sub get_auth_type |
sub get_auth_type { |
{ |
|
|
|
my ($domain, $user) = @_; |
my ($domain, $user) = @_; |
|
|
Debug("get_auth_type( $domain, $user ) \n"); |
Debug("get_auth_type( $domain, $user ) \n"); |