#!/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
        );

}