diff options
author | Christian Pointner <equinox@helsinki.at> | 2014-09-18 19:02:05 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2014-09-18 19:02:05 (GMT) |
commit | a1d8f51b589224ad359034254204dae9480fff52 (patch) | |
tree | f90cbeca52d459e81982b7892d7e0386dbf93d10 | |
parent | 2830b93a105fa013343a825d06d26005b7148792 (diff) |
CGI parameter work now
-rwxr-xr-x | listdrobpoxes.cgi | 7 |
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(); |