diff options
Diffstat (limited to 'rh-bin/listdropboxes.cgi')
| -rwxr-xr-x | rh-bin/listdropboxes.cgi | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/rh-bin/listdropboxes.cgi b/rh-bin/listdropboxes.cgi index 0a65105..f00e28e 100755 --- a/rh-bin/listdropboxes.cgi +++ b/rh-bin/listdropboxes.cgi @@ -36,14 +36,13 @@ my $q = CGI->new; my $username = $q->param('LOGIN_NAME'); my $token = $q->param('PASSWORD'); -my $dbh; -($dbh, $status, $errorstring) = RHRD::rddb::opendb(); -if(defined $dbh) { +(my $ctx, $status, $errorstring) = RHRD::rddb::init(); +if(defined $ctx) { my $result; - ($result, $status, $errorstring) = RHRD::rddb::check_token($dbh, $username, $token); + ($result, $status, $errorstring) = RHRD::rddb::check_token($ctx, $username, $token); if($result == 1) { $responsecode = 200; - @dropboxes = RHRD::rddb::get_dropboxes($dbh, $username); + @dropboxes = RHRD::rddb::get_dropboxes($ctx, $username); if(!defined $dropboxes[0] && defined $dropboxes[1]) { $responsecode = 500; $status = $dropboxes[1]; @@ -54,7 +53,7 @@ if(defined $dbh) { } else { $responsecode = 500; } - RHRD::rddb::closedb($dbh); + RHRD::rddb::destroy($ctx); } print "Content-type: application/xml; charset=UTF-8\n"; |