/[docman]/contrib/email2htusers.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/email2htusers.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by dpavlin, Mon Mar 5 09:46:29 2001 UTC revision 1.2 by dpavlin, Tue Apr 3 06:17:55 2001 UTC
# Line 50  sub try_expn { Line 50  sub try_expn {
50                  while ($response =~ /^2\d\d-(.+)/) {                  while ($response =~ /^2\d\d-(.+)/) {
51                          my $rest=$1;                          my $rest=$1;
52                          print "# $response\n" if ($debug);                          print "# $response\n" if ($debug);
53                          if ($rest=~/[\d\. ]+([^<]+) <\\*(\w+)\@$remote>/) {                          if ($rest=~/[\d\. ]+([^<]+) <\\*(\w+)\@($remote[^>]*)>/) {
54                                  print "# $2:$1:auth_pop3:$2\@$remote\n";                                  print "# $2:$1:auth_pop3:$2\@$3\n";
55                          }                          }
56                          $response=<SOCK>;                          $response=<SOCK>;
57                  };                  };
58                  print "# $response\n" if ($debug);                  print "# $response\n" if ($debug);
59                  if ($response =~ /^2\d\d (.+)/) {                  if ($response =~ /^2\d\d (.+)/) {
60                          my $rest=$1;                          my $rest=$1;
61                          if ($rest=~/[\d\. ]+([^<]+) <\\*(\w+)\@$remote>/) {                          if ($rest=~/[\d\. ]+([^<]+) <\\*(\w+)\@($remote[^>]*)>/) {
62                                  print "$2:$1:auth_pop3:$2\@$remote\n";                                  print "$2:$1:auth_pop3:$2\@$3\n";
63                          }                          }
64                  } else {                  } else {
65                          print "# can't add e-mail address $login\n";                          print "# can't add e-mail address $login\n";
# Line 68  sub try_expn { Line 68  sub try_expn {
68          }          }
69  }  }
70    
71  while(<>) {  while(<STDIN>) {
72          chomp;          chomp;
73          next if (/^#/ || /^$/);          next if (/^#/ || /^$/);
74          try_expn($_);          try_expn($_);
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.26