Changeset 6088 for extensions/pLoader/trunk/src/Uploader/PWG/WebServices.pm

Timestamp:

May 6, 2010, 10:40:05 PM (14 years ago)

Author:

ronosman

Message:

Feature 1609 added : Verify upload access while connecting and before upload.

File:

• extensions/pLoader/trunk/src/Uploader/PWG/WebServices.pm (modified) (6 diffs)

extensions/pLoader/trunk/src/Uploader/PWG/WebServices.pm

@@ -43 +43 @@
            qry_list_categories
            qry_add_categories
+           qry_list_methods
            qry_list_tags
+           qry_check_upload
            items
            tags
@@ -71 +73 @@
            multiple_value_mode
            privacy_level
+           is_method_available
       / 
 );
@@ -145 +148 @@
         $self->urlbase,
         'pwg.tags.getAdminList',
+    );
+
+    $self->qry_list_methods( sprintf
+        "%s/ws.php?format=json&method=%s",
+        $self->urlbase,
+        'reflection.getMethodList',
+    );
+
+    $self->qry_check_upload( sprintf
+        "%s/ws.php?format=json&method=%s",
+        $self->urlbase,
+        'pwg.images.checkUpload',
     );
 
@@ -193 +208 @@
         };
     }
-    
+
+    if(401 == $self->uagent_response->code){
+        $hresult->{message} = 'Access denied';
+    }
+
     $hresult;
 }
@@ -237 +256 @@
     return ( $result->is_success, $result->status_line );
 }
+
 sub GetCategories {
     my ( $self ) = @_;
@@ -268 +288 @@
 } 
 
+sub CheckUpload {
+    my ( $self ) = @_;
+
+    my $err_msg;
+
+    if($self->is_method_available->{'pwg.images.checkUpload'}){
+        $self->_execute_get(
+            $self->qry_check_upload
+        );
+#        my $result = $self->_json_response_content->{result};
+        my $hresult = $self->_json_response_content;
+
+        $err_msg = 'ok' eq $hresult->{stat} ?
+            $hresult->{result}{message} :
+            $hresult->{message};
+    }
+
+    $err_msg;
+}
+
+sub GetMethods {
+    my ( $self ) = @_;
+
+    $self->_execute_get(
+        $self->qry_list_methods    
+    );
+
+    my $methods = $self->_json_response_content->{result}{methods};
+
+    $self->is_method_available(
+        {}
+    );
+
+    map {
+        $self->is_method_available->{$_}++
+    }@$methods;
+
+    $methods;
+}
 
 sub UploadImage {