Parent Directory | Revision Log | Patch
revision 1.1 by dpavlin, Thu Apr 12 10:27:56 2001 UTC | revision 1.2 by dpavlin, Thu Apr 12 11:01:18 2001 UTC | |
---|---|---|
# | Line 2 | Line 2 |
2 | ||
3 | # usage: cat .htusers | sendlogins.pl http://docmain.domain.com/ | # usage: cat .htusers | sendlogins.pl http://docmain.domain.com/ |
4 | ||
5 | my $debug=1; | #my $debug=1; |
6 | ||
7 | my $in_mail=$0; | my $in_mail=$0; |
8 | $in_mail=~s/\.pl/.txt/; | $in_mail=~s/\.pl/.txt/; |
# | Line 17 while(<STDIN>) { | Line 17 while(<STDIN>) { |
17 | ||
18 | ($login,$fullname,undef,$email) = split(/:/,$_); | ($login,$fullname,undef,$email) = split(/:/,$_); |
19 | my $host=$email; | my $host=$email; |
20 | $host=~s/^[^@]@*//g; | $host=~s/^[^@]*@//g; |
21 | ||
22 | if (defined $debug) { | if (defined $debug) { |
23 | open(MAIL,">> /tmp/mailfoo") || die "$!"; | open(MAIL,">> /tmp/mailfoo") || die "$!"; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |