From a1d8f51b589224ad359034254204dae9480fff52 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Thu, 18 Sep 2014 19:02:05 +0000
Subject: CGI parameter work now


diff --git a/listdrobpoxes.cgi b/listdrobpoxes.cgi
index 772159a..9a28f96 100755
--- a/listdrobpoxes.cgi
+++ b/listdrobpoxes.cgi
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
+use CGI;
 use File::Basename;
 use lib dirname( __FILE__ ) . '/lib';
 use rddb;
@@ -9,8 +10,10 @@ my $status = 'ERROR';
 my $errorstring = 'unknown';
 my $responsecode = 500;
 
-my $username = 'heslinki';
-my $token = 'asdlkfjlkdsf';
+my $q = CGI->new;
+
+my $username = $q->param('LOGIN_NAME');
+my $token = $q->param('PASSWORD');
 
 my $dbh;
 ($dbh, $status, $errorstring) = rddb::opendb();
-- 
cgit v0.10.2