#!/usr/bin/perl
 
use strict;
use warnings;
use DBI;
 
# Verbindung zur MySQL-Datenbank gerstellen
my $dbh = DBI->connect("DBI:mysql:database=authentication_db;host=localhost",
                       "dbadmin", "dbadmins password",
                       {'RaiseError' => 1});

# Hash  mit Nutzerinformationen
my %new_users = ( 
	'test' => {
		'nick' => 'jayn', 
		'name' => 'Jane Doe', 
		'enabled' => 0,		
	},
	'admin' => {
		'nick' => 'admin1', 
		'name' => 'noname', 
		'enabled' => 0,
	}, 
	'root' => {
		'nick' => 'root', 
		'name' => 'Mr. Server-Master', 		
		'enabled' => 1,
	}, 
	'debug' => {
		'nick' => 'debug', 
		'name' => 'debug', 
		'enabled' => 0,
	}, 
);

for my $key ( keys %new_users) { # keys erzeugt eine Liste der Schlüssel
	
	# SQL Befehl zum Setzen von Default-Loginnamen in die Tabelle `users`
	$dbh->do("INSERT INTO users ('loginuser', 'nick', 'name', 'approved') VALUES (?, ?, ?, ?)", 
		undef, 					# Attribut hash (hier leer, hängt von Datenbanksoftware ab)
		$key, 					# Loginname eines Nutzers
		$new_users{$key}->{nick}, 		# Nickname eines Nutzers
		$new_users{$key}->{name}, 		# Realname
		$new_users{$key}->{enabled}		# Flags ob aktiv oder nicht
	);

}