projects
/
mirror
/
userdir-ldap-cgi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
14f0717
)
fixed silly typos
author
tausq
<>
Thu, 9 Dec 1999 01:50:00 +0000
(
01:50
+0000)
committer
tausq
<>
Thu, 9 Dec 1999 01:50:00 +0000
(
01:50
+0000)
Util.pm
patch
|
blob
|
history
diff --git
a/Util.pm
b/Util.pm
index
d7ba4a7
..
96ad4cd
100644
(file)
--- a/
Util.pm
+++ b/
Util.pm
@@
-5,7
+5,7
@@
use strict;
my $blocksize = 8; # A blowfish block is 8 bytes
my $configfile = "/etc/userdir-ldap/userdir-ldap.conf";
my $blocksize = 8; # A blowfish block is 8 bytes
my $configfile = "/etc/userdir-ldap/userdir-ldap.conf";
-#my $configfile = "/home/randolph/
projects/userdir-ldap
/userdir-ldap.conf";
+#my $configfile = "/home/randolph/
html/debian/perl
/userdir-ldap.conf";
my %config = &ReadConfigFile;
my %config = &ReadConfigFile;
@@
-134,13
+134,13
@@
sub CheckAuthToken {
}
sub ClearAuthToken {
}
sub ClearAuthToken {
- my ($id, $hrkey) = split(/
:
/, shift, 2);
+ my ($id, $hrkey) = split(/
,
/, shift, 2);
$id =~ y/\//_/; # switch / to _
unlink "$config{authtokenpath}/$id" || &HTMLError("Error removing authtoken: $!");
}
sub UpdateAuthToken {
$id =~ y/\//_/; # switch / to _
unlink "$config{authtokenpath}/$id" || &HTMLError("Error removing authtoken: $!");
}
sub UpdateAuthToken {
- my ($id, $hrkey) = split(/
:
/, shift, 2);
+ my ($id, $hrkey) = split(/
,
/, shift, 2);
my $password = shift;
my $key = pack("H".(length($hrkey)), $hrkey);
$id =~ y/\//_/; # switch / to _
my $password = shift;
my $key = pack("H".(length($hrkey)), $hrkey);
$id =~ y/\//_/; # switch / to _