diff options
Diffstat (limited to 'rh-bin/listdropboxes.cgi')
| -rwxr-xr-x | rh-bin/listdropboxes.cgi | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/rh-bin/listdropboxes.cgi b/rh-bin/listdropboxes.cgi index 69ade9f..53da91b 100755 --- a/rh-bin/listdropboxes.cgi +++ b/rh-bin/listdropboxes.cgi @@ -22,9 +22,7 @@ use strict; use CGI; -use File::Basename; -use lib dirname( __FILE__ ) . '/../lib'; -use rddb; +use RHRD::rddb; my $status = 'ERROR'; my $errorstring = 'unknown'; @@ -36,13 +34,13 @@ my $username = $q->param('LOGIN_NAME'); my $token = $q->param('PASSWORD'); my $dbh; -($dbh, $status, $errorstring) = rddb::opendb(); +($dbh, $status, $errorstring) = RHRD::rddb::opendb(); if(defined $dbh) { my $result; - ($result, $status, $errorstring) = rddb::check_token($dbh, $username, $token); + ($result, $status, $errorstring) = RHRD::rddb::check_token($dbh, $username, $token); if($result == 1) { $responsecode = 200; - @dropboxes = rddb::get_dropboxes($dbh, $username); + @dropboxes = RHRD::rddb::get_dropboxes($dbh, $username); unless (defined $dropboxes[0]) { $responsecode = 500; $status = $dropboxes[1]; @@ -53,7 +51,7 @@ if(defined $dbh) { } else { $responsecode = 500; } - rddb::closedb($dbh); + RHRD::rddb::closedb($dbh); } print "Content-type: application/xml; charset=UTF-8\n\n"; |