[ WebSite writes: ]
>
> I'm trying to implement majordomo on my server. I'm a fledgling perl
> programmer and really don't konw how to modify the following code. I
> have a form that sends a subscribe command to majordomo any time a
> person puts in a comment. My problem is that is a person only puts in
> fred and doesn't put in fred@aol.com my server appends it to read
> fred@website.com. I'd like to add a couple of lines to the perl
> script below to exclude @website.com from the "valid" e-mail
> addresses. Can you help me or send me in the right direction???
>
> # figure out who's trying to subscribe, and check that it's a valid
> address
> local($subscriber) = join(" ", @_);
> if ($subscriber eq "") {
> $subscriber = $reply_to;
> }
> if (! &valid_addr($subscriber)) {
> &squawk("subscribe: invalid address '$subscriber'");
> return 0;
> }
Apparently you're running 1.93, because 1.94 aborts on addresses without
a domain.
--
Dave Wolfe
References:
|
|
