CGI parameter work now

1 files changed, 5 insertions, 2 deletions

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();