Change it in the other two places as well (thanks <user
name="exor674">!)
Patch by fu.
diffs (22 lines):
diff -r dbbcd403e86c -r e78fc8bfbcda cgi-bin/ljlib.pl
--- a/cgi-bin/ljlib.pl Fri Jan 21 15:07:37 2011 +0800
+++ b/cgi-bin/ljlib.pl Fri Jan 21 15:35:44 2011 +0800
@@ -915,7 +915,8 @@ sub auth_digest {
# sanity checks
unless ($authname eq 'Digest' && ( !defined $attrs{'qop'} || $attrs{'qop'}
eq 'auth' ) &&
- $attrs{'realm'} eq 'lj' && (!defined $attrs{'algorithm'} ||
$attrs{'algorithm'} eq 'MD5')) {
+ $attrs{'realm'} eq $LJ::SITENAMESHORT && (!defined
$attrs{'algorithm'} || $attrs{'algorithm'} eq 'MD5')) {
+warn "did not pass sanity checks";
return $decline->(0);
}
@@ -953,7 +954,7 @@ sub auth_digest {
# recalculate the hash and compare to response
my $qop = $attrs{qop};
- my $a1src = $u->user . ':lj:' . $u->password;
+ my $a1src = $u->user . ":$LJ::SITENAMESHORT:" . $u->password;
my $a1 = Digest::MD5::md5_hex($a1src);
my $a2src = $r->method . ":$attrs{'uri'}";
my $a2 = Digest::MD5::md5_hex($a2src);
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
