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

	}	

}