>In article <leland.251.05D72E88@lvande.us.net> you wrote:
>: while (<LIST>) {
>: if (! &addr_match($subscriber, $_,
>: (&cf_ck_bool($clean_list,"mungedomain") ? 2 : undef))) {
>: print NEW $_;
>: } else {
>
>$_ is the default for many Perl operations; in particular, while (<LIST>) is
>equivalent to while ($_=<LIST>). At least, this is true for Perl V. 4.036.
>
>I don't know where the problem is (I'm not familiar with your majordomo
>script) but for the next step in your debugging process, try checking what
>those two routines do (addr_match and cf_ck_bool, was it?) Chances are, the
>problem is there.
&addr_match(<arg1>,<arg2>,[<arg3>]) = a function to compare 2 arguments
(in this case addresses) to see if they match. <arg3> is optional and is
used to extend the matching criteria to a subsrtring of <arg2> (in this case
effectively making the addresses "user@host.domain.com" and
"user@domain.com" the same for comparison purposes...). The function
returns either a value equated value (arg1 eq arg2), or returns undefined
(null or logical false).
I have not yet been able to locate the code for the function &cf_ck_bool()),
but it appears to be a multipurpose control function to handle substring
extractions.... but I may be wrong on this...
anyone?
Leland
leland@lvande.us.net
---------------------------
http://lvande.us.net/
http://www.innotts.co.uk/~lelandv/
---------------------------
Follow-Ups:
|
|
