Initial commit

tools/system2petar/.old/virt-sys-import.pl

@@ -0,0 +1,38 @@
+#!/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";
+
+	}	
+
+}