/[docman]/contrib/sendlogins.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /contrib/sendlogins.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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 "$!";

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.26