From 6d11ef4461929af9708f17dbbd8ce55d3f50a2f6 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Wed, 17 Sep 2014 20:16:53 +0000
Subject: reading config form rd.conf works now opening DBI handle


diff --git a/authtoken.json b/authtoken.json
index 2f00e57..954581d 100755
--- a/authtoken.json
+++ b/authtoken.json
@@ -3,25 +3,32 @@
 use strict;
 use warnings;
 use Config::IniFiles;
+use DBI;
 
+sub get_token
+{
+  my $username = shift;
 
-my $RD_CONF = "/etc/rd.conf";
-my $cfg = Config::IniFiles->new(-file => $RD_CONF);
-my $dbhost = $cfg->val('mySQL', 'Hostname');
-my $dbname = $cfg->val('mySQL', 'Database');
-my $dbuser = $cfg->val('mySQL', 'Loginname');
-my $dbpasswd = $cfg->val('mySQL', 'Password');
+  my $RD_CONF = "rd.conf";
+  my $cfg = Config::IniFiles->new(-file => $RD_CONF) or return ('ERROR', "Config File Error: " . join("\n", @Config::IniFiles::errors), '');
 
+  my $dbhost = $cfg->val('mySQL', 'Hostname');
+  my $dbname = $cfg->val('mySQL', 'Database');
+  my $dbuser = $cfg->val('mySQL', 'Loginname');
+  my $dbpasswd = $cfg->val('mySQL', 'Password');
+
+  my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost","$dbuser","$dbpasswd") or return ('ERROR', "Database Error: $DBI::errstr", '');
+
+  return ('OK', 'success', 'this is still not the right token but we will get to it!!');
+}
 
 my $status = 'ERROR';
 my $errorstring = 'unknown';
 my $username = '';
 my $token = '';
 if(defined $ENV{REMOTE_USER}) {
-  $status = 'OK';
-  $errorstring = 'success';
+  ($status, $errorstring, $token) = get_token($ENV{REMOTE_USER});
   $username = $ENV{REMOTE_USER};
-  $token = "this is cool!";
 } else {
   $errorstring = 'no username defined';
 }
-- 
cgit v0.10.2