Changeset 2618 for extras/pLoader/trunk/src/Uploader/PWG/WebServices.pm
- Timestamp:
- Sep 28, 2008, 11:35:44 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extras/pLoader/trunk/src/Uploader/PWG/WebServices.pm
r2597 r2618 54 54 comment 55 55 date_creation 56 uagent_response 57 login_result 58 action_result 56 59 / 57 60 ); … … 93 96 }; 94 97 95 my $result = $self->uagent->post( 96 $self->urlbase.'/ws.php?format=json', 97 $form 98 ); 98 $self->uagent_response( 99 $self->uagent->post( 100 $self->urlbase.'/ws.php?format=json', 101 $form 102 ) 103 ); 104 105 my $hresult = {} ; 106 107 if($self->uagent_response->is_success){ 108 eval { 109 $hresult = from_json( 110 $self->uagent_response->content 111 ); 112 }; 113 } 114 else{ 115 $hresult = { 116 'message' => $self->uagent_response->message, 117 'stat' => 'fail', 118 }; 119 } 120 121 $self->login_result( 122 $hresult 123 ); 124 99 125 } 100 126
Note: See TracChangeset
for help on using the changeset viewer.