1 files changed, 48 insertions, 0 deletions
diff --git a/Aufgabe7/db-passwd-create.pl b/Aufgabe7/db-passwd-create.pl
new file mode 100644
index 0000000..0c9c470
--- /dev/null
+++ b/Aufgabe7/db-passwd-create.pl
@@ -0,0 +1,48 @@
+#!/usr/bin/env perl 
+#===============================================================================
+#
+#         FILE: db-passwd-create.pl
+#
+#        USAGE: ./db-passwd-create.pl  
+#
+#  DESCRIPTION: 
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Stefan Suhren (su), suhren.stefan@fh-swf.de
+# ORGANIZATION: FH Südwestfalen, Iserlohn
+#      VERSION: 1.0
+#      CREATED: 06.01.2016 13:40:30
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use utf8;
+
+# Add database modul
+use DBI;
+
+# Get database config
+my %dbconf = do 'dbinc.pl';
+
+my $dbhandle = DBI->connect("DBI:mysql:host=$dbconf{dbhost};database=$dbconf{dbdatabase}", $dbconf{dbuser}, $dbconf{dbpasswd}) or die 'DB not accessible';
+
+#Create DB
+$dbhandle->do("CREATE TABLE stsuh_passwort
+				(
+					nr					INT AUTO_INCREMENT,
+					loginname			VARCHAR(20),
+					password			VARCHAR(20),
+					uid					INT,
+					gid 				INT,
+					comment 			CHAR(255),
+					homedir 			CHAR(255),
+					commandinterpreter	CHAR(255),
+					PRIMARY KEY (nr)
+				)
+") or die 'Could not create database';
+
+$dbhandle->disconnect;