#!/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";

	}	

}