CiviCRM Community Forums (archive)

Looking at the latest version of imap2soap.pl (Rev 509 at https://svn.civicactions.net/repos/civicrm/scripts) it appears that the resubscribe logic has been copied from that for unsubscribe, but incorrectly transcribed. In particular, the SOAP function being invoked is that for unsubscribing.

        elsif ($dest eq 'resubscribe')  # or an unsubscription
          {
            while (1) {
              $result =
                $soapClient->mailer_event_unsubscribe($soapKey, $jobId, $qId, $hash);
              last unless $result->fault;

              if ($attempt < 1) {
                &authenticate();
                $attempt++;
                next;
              }
              error "SOAP: $result->faultstring";
              last;
            }
            if ($result->result == 1) {
              verbose "Successful resubscribe event: $verpInfo";
              my $move = $imap->move("$inBox.Processed subscriptions", $msg);
            } else {
              error "Failed resubscribe event: $verpInfo";
              $imap->move("$inBox.Failed", $msg)
                or fatal "Could not move to Failed";
            }

          }