summaryrefslogtreecommitdiff
path: root/listdrobpoxes.cgi
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2014-09-18 19:02:05 (GMT)
committerChristian Pointner <equinox@helsinki.at>2014-09-18 19:02:05 (GMT)
commita1d8f51b589224ad359034254204dae9480fff52 (patch)
treef90cbeca52d459e81982b7892d7e0386dbf93d10 /listdrobpoxes.cgi
parent2830b93a105fa013343a825d06d26005b7148792 (diff)
CGI parameter work now
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();