39 lines
892 B
Perl
39 lines
892 B
Perl
|
#!/usr/bin/perl
|
||
|
|
# SQL STATEMENT:
|
||
|
|
# create table FWDUSER (email varchar(100) primary key, fwdaddr varchar(100), domain varchar(100));
|
||
|
|
# cat import-email.sql | sqlite3 petar.db3
|
||
|
|
|
||
|
|
if (@ARGV[0] eq ""){
|
||
|
|
print "Usage: ";\
|
||
|
|
print "$0 virtusertable\n";
|
||
|
|
exit 5 ;
|
||
|
|
}
|
||
|
|
|
||
|
|
open (IN, "<@ARGV[0]") or die "Error opening @ARGV[0]" ;
|
||
|
|
open (OUT, ">mail-fromlist.sh");
|
||
|
|
print OUT "#!/bin/sh\n";
|
||
|
|
print OUT "\n";
|
||
|
|
|
||
|
|
while ($line = <IN>){
|
||
|
|
|
||
|
|
chomp $line;
|
||
|
|
if ($line =~ ( /^\s*$/ ) || $line =~ (/^#.*$/)) {
|
||
|
|
|
||
|
|
print "- Ignoring .... linea bianca o commento\n";
|
||
|
|
|
||
|
|
} else {
|
||
|
|
|
||
|
|
print "+ Processing .. ".$line."\n";
|
||
|
|
($email,$fwdaddr) = split (" ",$line);
|
||
|
|
($login,$domain) = split ("@",$email);
|
||
|
|
|
||
|
|
$email = lc($email);
|
||
|
|
$fwdaddr = lc($fwdaddr);
|
||
|
|
$domain = lc($domain);
|
||
|
|
|
||
|
|
# print OUT "cat /home/agraziani/testo-mail.txt | mail -v -s Cambiamento_Email_Centria $email\n";
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|