"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "extras/scripts/webservices/DadaMailWebService.pm" between
dada-11_14_1.tar.gz and dada-11_14_2.tar.gz

About: Dada is a web-based electronic (mass) mailing list management system.

DadaMailWebService.pm  (dada-11_14_1):DadaMailWebService.pm  (dada-11_14_2)
skipping to change at line 95 skipping to change at line 95
$q->param( 'email', $query->{email} ); $q->param( 'email', $query->{email} );
$q->param( 'nonce', $query->{nonce} ); $q->param( 'nonce', $query->{nonce} );
$q->param( 'profile_fields', $query->{profile_fields} ); $q->param( 'profile_fields', $query->{profile_fields} );
$qs = $self->the_query_string($query); $qs = $self->the_query_string($query);
$digest = $self->digest($qs); $digest = $self->digest($qs);
} }
elsif($service eq 'settings'){ elsif($service eq 'settings'){
$digest = $self->digest($nonce); $digest = $self->digest($nonce);
} }
elsif($service eq 'create_new_list'){
$query = {
nonce => $nonce,
options => $self->{json_obj}->utf8->encode( $param
s->{options} ),
settings => $self->{json_obj}->utf8->encode( $params->{setting
s} ),
};
$q->param( 'nonce', $query->{nonce} );
$q->param( 'options', $query->{options} );
$q->param( 'settings', $query->{settings} );
$qs = $self->the_query_string($query);
$digest = $self->digest($qs);
}
else { else {
$query = { $query = {
addresses => $self->{json_obj}->utf8->encode( $params->{addresses} ) , addresses => $self->{json_obj}->utf8->encode( $params->{addresses} ) ,
nonce => $nonce, nonce => $nonce,
}; };
$q->param( 'addresses', $query->{addresses} ); $q->param( 'addresses', $query->{addresses} );
$q->param( 'nonce', $query->{nonce} ); $q->param( 'nonce', $query->{nonce} );
$qs = $self->the_query_string($query); $qs = $self->the_query_string($query);
$digest = $self->digest($qs); $digest = $self->digest($qs);
} }
my $ua = LWP::UserAgent->new; my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/5.0 (compatible);'); $ua->agent('Mozilla/5.0 (compatible);');
if($service eq 'settings'){ if($service eq 'settings'){
$ua->default_header( $ua->default_header(
'Authorization' => 'hmac ' . ' ' . $self->{public_key} . ':' . $dige st, 'Authorization' => 'hmac ' . ' ' . $self->{public_key} . ':' . $dige st,
'X-DADA-NONCE' => $nonce, 'X-DADA-NONCE' => $nonce,
); );
} }
else { else {
$ua->default_header( 'Authorization' => 'hmac ' . ' ' . $self->{public_k ey} . ':' . $digest ); $ua->default_header( 'Authorization' => 'hmac ' . ' ' . $self->{public_k ey} . ':' . $digest );
} }
my $server_w_path_info = $self->{server} . '/api/' . uri_escape($list) . '/' . uri_escape($service) . '/'; my $server_w_path_info = $self->{server} . '/api/' . uri_escape($list) . '/' . uri_escape($service) . '/';
my $response; my $response;
 End of changes. 2 change blocks. 
0 lines changed or deleted 17 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)