#!/usr/bin/env perl

$skv="risby7.skv";

sub fnutta {
	$foo = shift;
	return "'" . $foo . "'";
}

use Switch;
sub boola {
	$foo = shift;
	switch (lc($foo)) {
		case "nej" { return 0; }
		case "off" { return 0; }
		case "av" { return 0; }
		else { return 1; }
	}
}
		

open(SKV, $skv) || die("Could not open " . $skv);

#print ("DROP TABLE IF EXISTS risbyfetband;");

print ("CREATE TABLE risbyfetband (
id INT NOT NULL AUTO_INCREMENT,
textkolumn VARCHAR(250),
namnkolumn VARCHAR(250),
boolkolumn1 BOOL,
boolkolumn2 BOOL,
siffrakolumn1 VARCHAR(250),
epostkolumn VARCHAR(250),
siffrakolumn2 VARCHAR(250),
PRIMARY KEY(id));
");


while (<SKV>) {
	@f = split(/;/);


	unless (@f == 8) {
		print("(Minst) En rad innehåller inte 8 fält! Avbryter!\n");
		exit(1);
	}

	print ("INSERT INTO risbyfetband (id,
textkolumn, namnkolumn, boolkolumn1, boolkolumn2,
siffrakolumn1, epostkolumn, siffrakolumn2)
VALUES (");


	print ($f[0] . "," . fnutta($f[1]) . "," . fnutta($f[2]) . "," .
boola($f[3]) . "," . boola($f[4]) . "," . fnutta($f[5]) . "," . 
fnutta($f[6]) . "," . fnutta($f[7]));

	print (");\n");
}