fixed check_token

1 files changed, 4 insertions, 4 deletions

diff --git a/listdrobpoxes.cgi b/listdrobpoxes.cgi
index 4f7050a..772159a 100755
--- a/listdrobpoxes.cgi
+++ b/listdrobpoxes.cgi
@@ -9,13 +9,13 @@ my $status = 'ERROR';
 my $errorstring = 'unknown';
 my $responsecode = 500;
 
-my $username = '';
-my $token = '';
-
+my $username = 'heslinki';
+my $token = 'asdlkfjlkdsf';
 
 my $dbh;
-$dbh, $status, $errorstring) = rddb::opendb();
+($dbh, $status, $errorstring) = rddb::opendb();
 if(defined $dbh) {
+  my $result;
   ($result, $status, $errorstring) = rddb::check_token($dbh, $username, $token);
   if($result == 1) {
     $responsecode = 200;