summaryrefslogtreecommitdiff
path: root/listdrobpoxes.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'listdrobpoxes.cgi')
-rwxr-xr-xlistdrobpoxes.cgi7
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();