bin/xmlrpc-email_opt_out

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5 use Frontier::Client;
   6
   7 my $uri = new URI 'http://localhost:8008/';
   8
   9 my $server = new Frontier::Client ( 'url' => $uri );
  10
  11 my $secret = 'sharingiscaring';
  12
  13 die "
  14 Usage:
  15   xmlrpc-email_opt_out email\@address.com email\@address.net ...
  16
  17 " unless @ARGV && $ARGV[0] =~ /\@/;
  18
  19
  20 for my $address (@ARGV) {
  21
  22   my $response = $server->call('FS.API.email_opt_out',
  23     # API shared secret
  24     secret => $secret,
  25
  26     # E-Mail address
  27     address => $address,
  28
  29     #   Do not clear the invoice_dest field:
  30     # disable_invoice_dest => 0,
  31
  32     #   Do not clear the message_dest field:
  33     # disable_message_dest => 0,
  34   );
  35
  36   if ($response->{error}) {
  37     print "$response->{error} \n";
  38   } else {
  39     print "opt-out: $address \n";
  40   }
  41 }
  42
  43
  44 1;