![[BACK]](/icons/back.gif){kind=icon}
Return to domainprefs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to domainprefs.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.451, 2025/03/13 14:28:53 | version 1.452, 2025/05/13 04:07:07 |
|---|---|
| Line 16578 sub get_priv_creds { | Line 16578 sub get_priv_creds { |
| my $privkey = $privhash{'key'}; | my $privkey = $privhash{'key'}; |
| $privnum = $privhash{'version'}; | $privnum = $privhash{'version'}; |
| if (($privnum) && ($privkey ne '')) { | if (($privnum) && ($privkey ne '')) { |
| $cipher = Crypt::CBC->new({'key' => $privkey, | $cipher = Crypt::CBC->new(-pass => $privkey, |
| 'cipher' => 'DES'}); | -cipher => 'Crypt::DES'); |
| } | } |
| } | } |
| } | } |