Changeset 3472 for extensions/pLoader/trunk/src/Uploader/PWG/WebServices.pm
- Timestamp:
- Jun 28, 2009, 7:58:18 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/PWG/WebServices.pm
r3467 r3472 43 43 qry_list_categories 44 44 qry_add_categories 45 qry_list_tags 45 46 items 46 47 tags … … 50 51 site_thumb_file 51 52 site_image_name 53 site_tags 52 54 rank 53 55 site_author … … 105 107 ); 106 108 109 $self->qry_list_tags( sprintf 110 "%s/ws.php?format=json&method=%s", 111 $self->urlbase, 112 'pwg.tags.getAdminList', 113 ); 114 115 107 116 my $form = { 108 117 method => 'pwg.session.login', … … 170 179 $categories; 171 180 } 181 182 sub GetTags { 183 my ( $self ) = @_; 184 185 my $result; 186 eval { 187 $result = $self->uagent->get( 188 $self->qry_list_tags 189 ); 190 }; 191 192 if($@){ 193 printf("An error occured in query execution %s\n%s", 194 $self->qry_list_tags, 195 $@, 196 ); 197 } 198 my $hresult; 199 200 eval { 201 $hresult = from_json( 202 $result->content 203 ); 204 }; 205 206 $hresult ||= {}; 207 208 $hresult->{result}{tags}; 209 } 210 172 211 173 212 sub UploadImage { … … 256 295 comment => $self->site_comment, 257 296 date_creation => $self->site_img_date_creation, 297 tag_ids => $self->site_tags, 258 298 259 299 }; … … 286 326 comment => $self->site_comment, 287 327 date_creation => $self->site_img_date_creation, 328 tag_ids => $self->site_tags, 288 329 }; 289 330 }
Note: See TracChangeset
for help on using the changeset viewer.