docman/contrib/sendlogins.pl

#!/usr/local/bin/perl -w

# usage: cat .htusers | sendlogins.pl http://docmain.domain.com/

#my $debug=1;

my $in_mail=$0;
$in_mail=~s/\.pl/.txt/;

my $url=$ARGV[0];

$|++;

while(<STDIN>) {
        chomp;
        chomp;

        ($login,$fullname,undef,$email) = split(/:/,$_);
        my $host=$email;
        $host=~s/^[^@]*@//g;

        if (defined $debug) {
                open(MAIL,">> /tmp/mailfoo") || die "$!";
        } else {
                open(MAIL,"| /usr/lib/sendmail -t") || die "sendmail: $!";
        }

        print MAIL "To: $fullname <$email>\n";

        open(IN,"$in_mail") || die "in mail: $!";
        while(<IN>) {
                chomp;
                chomp;
                s/##login##/$login/g;
                s/##url##/$url/g;
                s/##pop3host##/$host/g;
                print MAIL "$_\n";
        }
        close(IN);
        close(MAIL);
        print "." if ($debug);
}

1	#!/usr/local/bin/perl -w
2
3	# usage: cat .htusers \| sendlogins.pl http://docmain.domain.com/
4
5	#my $debug=1;
6
7	my $in_mail=$0;
8	$in_mail=~s/\.pl/.txt/;
9
10	my $url=$ARGV[0];
11
12	$\|++;
13
14	while(<STDIN>) {
15	chomp;
16	chomp;
17
18	($login,$fullname,undef,$email) = split(/:/,$_);
19	my $host=$email;
20	$host=~s/^[^@]*@//g;
21
22	if (defined $debug) {
23	open(MAIL,">> /tmp/mailfoo") \|\| die "$!";
24	} else {
25	open(MAIL,"\| /usr/lib/sendmail -t") \|\| die "sendmail: $!";
26	}
27
28	print MAIL "To: $fullname <$email>\n";
29
30	open(IN,"$in_mail") \|\| die "in mail: $!";
31	while(<IN>) {
32	chomp;
33	chomp;
34	s/##login##/$login/g;
35	s/##url##/$url/g;
36	s/##pop3host##/$host/g;
37	print MAIL "$_\n";
38	}
39	close(IN);
40	close(MAIL);
41	print "." if ($debug);
42	}
43