use strict;
use warnings;

use DBI;
use Crypt::FNA;

use feature 'say';

# chi me l'ha fatto fare?

# istanza oggetto FNA

	my $krypto=Crypt::FNA->new(
		{
			r=> '7',
			angle =>  [37,60,-61,53],
			square => 4096,
			background => [255,255,255],
			foreground => [0,0,0],
			magic => 2
		}
	);

# fine istanza oggetto FNA

# dati per l'accesso al database

	my $user="anakadmin";
	my $pass="thewolf";

	my $dbname="dataCrypted";
	my $host="anak_mob";

	my $dsn="DBI:mysql:database=$dbname;host=$host";
	my $dbh=DBI->connect($dsn,$user,$pass,{RaiseError => 1 }) or die ("Couldn't connect to database: ".DBI->errstr);
	$dbh->{AutoCommit} = 0; # disabilita il commit
# fine dati per l'accesso al database

# preparo l'inserimento dei dati

	my $sth = $dbh->prepare(q
		{
			INSERT INTO customers (name,surname,email) VALUES (?,?,?)
		}
	);

# fine preparo l'inserimento dei dati

# inserisci i valori in tabella, questi devono essere criptati mediante fna

	# supponiamo siano stipati in un csv

		my $fh_csv;
		my $csv_filename="customers.csv";

		open $fh_csv,'<',$csv_filename or die "Unable to open $csv_filename: $!";
			while (!eof($fh_csv)) {
				my ($name,$surname,$email)=split(/,/,<$fh_csv>);

				say $name;
				say $surname;
				say $email;

				my @encrypted_name=$krypto->encrypt_scalar($name);
				my @encrypted_surname=$krypto->encrypt_scalar($surname);
				my @encrypted_email=$krypto->encrypt_scalar($email);

				say @encrypted_name;
				say "";
				say @encrypted_surname;
				say "";
				say @encrypted_email;

				say "";
				say "------------------------------------";
				say "";

				# qui li vado a inserire nel database
					# problema 1 devo inserire degli array...
					$sth->execute($name,$surname,$email);
				# fine qui li vado a inserire nel database
			}
		close $fh_csv;

		# salvo le modifiche nel database e chiudo la connessione
			$dbh->commit;
			$dbh->disconnect;
		# fine salvo le modifiche nel database e chiudo la connessione
	# fine supponiamo siano stipati in un csv

# fine inserisci i valori in tabella

say "fine";
exit;