39 lines
1,001 B
Perl
39 lines
1,001 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, ">import-virtusertable.sql");
|
||
|
|
print OUT "drop table FWDUSER;\n";
|
||
|
|
print OUT "create table FWDUSER (email varchar(100) primary key, fwdaddr varchar(100), domain varchar(100));\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 "insert into FWDUSER (email,fwdaddr,domain) VALUES (\'$email\',\'$fwdaddr\',\'$domain\');\n";
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|