![[BACK]](/icons/back.gif){kind=icon}
Return to courseprefs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to courseprefs.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.134, 2025/03/15 01:03:33 | version 1.135, 2025/05/13 04:07:07 |
|---|---|
| Line 1941 sub get_credentials { | Line 1941 sub get_credentials { |
| 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'); |
| } | } |
| } | } |
| } | } |