|
version 1.25.2.5.2.2, 2022/02/07 12:05:05
|
version 1.25.2.5.2.3, 2022/02/24 00:50:10
|
|
Line 375 sub handler {
|
Line 375 sub handler {
|
| $handle); |
$handle); |
| my $checklaunch; |
my $checklaunch; |
| if ($data{'origurl'} =~ m{^/tiny/$match_domain/\w+$}) { |
if ($data{'origurl'} =~ m{^/tiny/$match_domain/\w+$}) { |
| if ($env{'request.linkprot'} ne '') { |
unless ($env{'request.linkprot'} eq $data{'linkprot'}) { |
| unless ($env{'request.linkprot'} eq $data{'linkprot'}) { |
$checklaunch = 1; |
| $checklaunch = 1; |
|
| } |
|
| } |
} |
| if ($env{'request.linkkey'} ne '') { |
unless ($env{'request.linkkey'} eq $data{'linkkey'}) { |
| unless ($env{'request.linkkey'} eq $data{'linkkey'}) { |
$checklaunch = 1; |
| $checklaunch = 1; |
|
| } |
|
| } |
} |
| if ($env{'request.deeplink.login'}) { |
unless ($env{'request.deeplink.login'} eq $data{'deeplink.login'}) { |
| unless ($env{'request.deeplink.login'} eq $data{'deeplink.login'}) { |
$checklaunch = 1; |
| $checklaunch = 1; |
|
| } |
|
| } |
} |
| } |
} |
| if ($data{'linkprot'} ne '') { |
if ($data{'linkprot'} ne '') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to migrateuser.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth