1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
--- majordomo.orig Thu Jan 13 18:29:31 2000
+++ majordomo Mon Jul 23 03:28:21 2001
@@ -64,6 +64,7 @@
require "majordomo.pl"; # all sorts of general-purpose Majordomo subs
require "shlock.pl"; # NNTP-style file locking
require "config_parse.pl"; # functions to parse the config files
+use Digest::MD5 qw( md5_hex );
print STDERR "$0: requires succeeded. Setting defaults.\n" if $DEBUG;
@@ -75,7 +76,7 @@
# Define all of the mailer properties:
# It is possible that one or both of $sendmail_command and $bounce_mailer
# are not defined, so we provide reasonable defaults.
-$sendmail_command = "/usr/lib/sendmail"
+$sendmail_command = "/usr/sbin/sendmail"
unless defined $sendmail_command;
$bounce_mailer = "$sendmail_command -f\$sender -t"
unless defined $bounce_mailer;
@@ -405,9 +406,6 @@
# making the request.
#
if (! $approved
- && ! ((&addr_match($reply_to, $subscriber,
- (&cf_ck_bool($clean_list,"mungedomain")
- ? 2 : undef))))
&& (($unsub_policy =~ /confirm/)
&& (&gen_cookie($sm, $clean_list, $subscriber) ne $auth_info)))
{
@@ -1907,13 +1905,7 @@
# joining that goes on, we need to ignore whitespace.
$combined =~ s/\s//g;
- for ($i = 0; $i < length($combined); $i++) {
- $cookie ^= ord(substr($combined, $i));
- $carry = ($cookie >> 28) & 0xf;
- $cookie <<= 4;
- $cookie |= $carry;
- }
- return (sprintf("%08x", $cookie));
+ return md5_hex( $combined );
}
|
