#!/bin/sh

cat vmailadmin.alias.txt | perl -n -e '
chomp($_);
if (!@field_name) {
	@field_name=split(/\t/, $_);
} else {
	%data = {};
	$i = 0;
	for (split(/\t/, $_)) {
		$data{$field_name[$i]} = $_;
		$i++;
	}
	($tmp, $data{"domain"}) = split("\@", $data{"alias"});
	printf(
		"REPLACE INTO \`alias\` (\`address\`, \`goto\`, \`domain\`, \`created\`, \`modified\`, \`active\`)".
		" VALUES(\"%s\", \"%s\", \"%s\", FROM_UNIXTIME(%d), FROM_UNIXTIME(%d), %d);\n",
		$data{"alias"}, $data{"destination"}, $data{"domain"}, $data{"created"}, $data{"modified"}, $data{"active"}
	);
}
' > postfixadmin.alias.sql