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