| 463 |
return $lists->search({ name => $name })->first; |
return $lists->search({ name => $name })->first; |
| 464 |
} |
} |
| 465 |
|
|
| 466 |
|
### |
| 467 |
|
### SOAP |
| 468 |
|
### |
| 469 |
|
|
| 470 |
|
package Nos::SOAP; |
| 471 |
|
|
| 472 |
|
=head1 SOAP methods |
| 473 |
|
|
| 474 |
|
This methods are thin wrappers to provide SOAP calls. They are grouped in |
| 475 |
|
C<Nos::SOAP> package which is in same F<Nos.pm> module file. |
| 476 |
|
|
| 477 |
|
Usually, you want to use named variables in your SOAP calls if at all |
| 478 |
|
possible. |
| 479 |
|
|
| 480 |
|
However, if you have broken SOAP library (like PHP SOAP class from PEAR) |
| 481 |
|
you will want to use positional arguments (in same order as documented for |
| 482 |
|
methods below). |
| 483 |
|
|
| 484 |
|
=cut |
| 485 |
|
|
| 486 |
|
my $nos; |
| 487 |
|
|
| 488 |
|
sub new { |
| 489 |
|
my $class = shift; |
| 490 |
|
my $self = {@_}; |
| 491 |
|
bless($self, $class); |
| 492 |
|
|
| 493 |
|
$nos = new Nos( @_ ) || die "can't create Nos object"; |
| 494 |
|
|
| 495 |
|
$self ? return $self : return undef; |
| 496 |
|
} |
| 497 |
|
|
| 498 |
|
|
| 499 |
|
=head2 NewList |
| 500 |
|
|
| 501 |
|
$message_id = NewList( |
| 502 |
|
list => 'My list', |
| 503 |
|
email => 'my-list@example.com' |
| 504 |
|
); |
| 505 |
|
|
| 506 |
|
=cut |
| 507 |
|
|
| 508 |
|
sub NewList { |
| 509 |
|
my $self = shift; |
| 510 |
|
|
| 511 |
|
if ($_[0] !~ m/^HASH/) { |
| 512 |
|
return $nos->new_list( |
| 513 |
|
list => $_[0], email => $_[1], |
| 514 |
|
); |
| 515 |
|
} else { |
| 516 |
|
return $nos->new_list( %{ shift @_ } ); |
| 517 |
|
} |
| 518 |
|
} |
| 519 |
|
|
| 520 |
|
=head2 AddMemberToList |
| 521 |
|
|
| 522 |
|
$member_id = AddMemberToList( |
| 523 |
|
list => "My list", |
| 524 |
|
email => "e-mail@example.com", |
| 525 |
|
name => "Full Name" |
| 526 |
|
); |
| 527 |
|
|
| 528 |
|
=cut |
| 529 |
|
|
| 530 |
|
sub AddMemberToList { |
| 531 |
|
my $self = shift; |
| 532 |
|
|
| 533 |
|
if ($_[0] !~ m/^HASH/) { |
| 534 |
|
return $nos->add_member_to_list( |
| 535 |
|
list => $_[0], email => $_[1], name => $_[2], |
| 536 |
|
); |
| 537 |
|
} else { |
| 538 |
|
return $nos->add_member_to_list( %{ shift @_ } ); |
| 539 |
|
} |
| 540 |
|
} |
| 541 |
|
|
| 542 |
|
=head2 AddMessageToList |
| 543 |
|
|
| 544 |
|
$message_id = AddMessageToList( |
| 545 |
|
list => 'My list', |
| 546 |
|
message => 'From: My list...' |
| 547 |
|
); |
| 548 |
|
|
| 549 |
|
=cut |
| 550 |
|
|
| 551 |
|
sub AddMessageToList { |
| 552 |
|
my $self = shift; |
| 553 |
|
|
| 554 |
|
if ($_[0] !~ m/^HASH/) { |
| 555 |
|
return $nos->add_message_to_list( |
| 556 |
|
list => $_[0], message => $_[1], |
| 557 |
|
); |
| 558 |
|
} else { |
| 559 |
|
return $nos->add_message_to_list( %{ shift @_ } ); |
| 560 |
|
} |
| 561 |
|
} |
| 562 |
|
|
| 563 |
|
|
| 564 |
|
### |
| 565 |
|
|
| 566 |
=head1 EXPORT |
=head1 EXPORT |
| 567 |
|
|
| 587 |
|
|
| 588 |
|
|
| 589 |
=cut |
=cut |
| 590 |
|
|
| 591 |
|
1; |
Parent Directory
| 
Revision Log
| 
Patch