x400_mssend_pure_x400.c

/*
 *  Copyright (c) 2003-2013, Isode Limited, London, England.
 *  All rights reserved.
 *
 *  Acquisition and use of this software and related materials for any      
 *  purpose requires a written licence agreement from Isode Limited,
 *  or a written licence from an organisation licenced by Isode Limited
 *  to grant such a licence.
 */

/* 
 * @VERSION@
 * Simple example program for submitting a message via a message store.
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/stat.h>
#include <sys/types.h>
#ifndef _WIN32
#include <unistd.h>
#endif
#include <fcntl.h>
#include <errno.h>

#include <x400_msapi.h>
#include <seclabel_api.h> /* For security labels */
#include "example.h"


static char *optstr = "u371m:d:p:w:M:D:P:W:r:o:O:r:g:G:c:l:R:y:C:iaqsAvf:kK:";

/* These are the data items used to construct the message for submission */
static char *default_recip = "/CN=P7User1/O=attlee/PRMD=TestPRMD/ADMD=TestADMD/C=GB/";
char *recip;
static const char text[] = "First line\r\nSecond line\r\n";

static void usage(void) ;


int main (
    int         argc,
    char      **argv
) 
{
    char buffer[BUFSIZ];
    char pa[BUFSIZ];
    char orn[BUFSIZ];
    char tmp[BUFSIZ];
    int status;
    struct X400Message *mp;
    struct X400Recipient *origp;
    struct X400Recipient *rp;
    int contype;
    char *def_oraddr;
    char *def_dn;
    char *def_pa;

    if (get_args(argc, argv, optstr)) {
        usage();
        exit(-1);
    }

    printf("Connection type (0 = P7, 1 = P3 submit only, 2 = P3 both directions) [%d]: ", x400_contype);
    contype = ic_fgetc(x400_contype, stdin); 
    if (contype != 10)
        ic_fgetc(x400_contype, stdin);

    if ( contype < '0' || '2' < contype )
      contype = x400_contype;
    else 
        contype -= '0';

    if (contype == 0) {
        def_oraddr = x400_ms_user_addr;
        def_dn = x400_ms_user_dn;
        def_pa = x400_ms_presentation_address;
    } else {
        def_oraddr = x400_mta_user_addr;
        def_dn = x400_mta_user_dn;
        def_pa = x400_mta_presentation_address;
    }

    printf("Your ORAddress [%s] > ", def_oraddr);
    ic_fgets (orn, sizeof orn, stdin);

    if ( orn[strlen(orn)-1] == '\n' )
        orn[strlen(orn)-1] = '\0';
        
    if (orn[0] == '\0') 
        strcpy(orn, def_oraddr);

    /* Prompt for password; note: reflected. */
    printf ("Password [%s]: ", 
            contype == 0 ? x400_p7_password : x400_p3_password);
    if ( ic_fgets (buffer, sizeof buffer, stdin) == NULL )
        exit (1);

    if (buffer[strlen(buffer)-1] == '\n' )
        buffer[strlen(buffer)-1] = '\0';
    if (buffer[0] == '\0') 
        strcpy(buffer, contype == 0 ? x400_p7_password : x400_p3_password);

    /* Presentation Address */
    printf("Presentation Address [%s] > ", def_pa);
    ic_fgets (pa, sizeof pa, stdin);

    if ( pa[strlen(pa)-1] == '\n' )
        pa[strlen(pa)-1] = '\0';

    if (pa[0] == '\0') 
        strcpy(pa, def_pa);

    if (talking_to_marben_ms)
        X400msSetConfigRequest(0);

    /* setup logging */
    /* X400SetStrDefault(X400_S_LOG_CONFIGURATION_FILE, "x400api.xml", 0); */

    if (x400_default_recipient != NULL) 
        recip = x400_default_recipient;
    else 
        recip = default_recip;

    printf("Message recipient [%s]: ", recip);
    ic_fgets (tmp, sizeof tmp, stdin);

    if ( tmp[strlen(tmp)-1] == '\n' )
        tmp[strlen(tmp)-1] = '\0';
    if (strlen(tmp) != 0)
        recip = strdup(tmp);

    printf("Subject [%s]: ", subject);
    ic_fgets (tmp, sizeof tmp, stdin);

    if ( tmp[strlen(tmp)-1] == '\n' )
        tmp[strlen(tmp)-1] = '\0';
    if (strlen(tmp) != 0)
        subject = strdup(tmp);

    /* X400SetStrDefault(X400_S_LOG_CONFIGURATION_FILE, "x400api.xml", 0); */
    X400Initialize("test_program");

    status = X400MsgNew (X400_MSG_MESSAGE, &mp);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "x400MsgNew returned error: %s\n", X400msError (status));
        exit (status);
    }

    /* envelope originator OR address */
    status = X400MsgAddStrParam (mp, X400_S_OR_ADDRESS, orn, (size_t)-1);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "x400MsgAddStrParam returned error: %s\n", X400msError (status));
        exit (status);
    }
    status = X400MsgAddStrParam (mp, X400_S_DIRECTORY_NAME, def_dn, (size_t)-1);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "x400MsgAddStrParam returned error: %s\n", X400msError (status));
        exit (status);
    }

    /* add originator into headers */
    status = X400RecipNew (X400_ORIGINATOR, &origp);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "x400RecipNew returned error: %s\n", X400msError (status));
        exit (status);
    }

    /* put in DN part of OR Name */
    status = X400RecipAddStrParam (origp, X400_S_DIRECTORY_NAME, def_dn, -1);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "x400msRecipAddStrParam returned error: %s\n", X400msError (status));
        exit (status);
    }

    /* put originator into message */
    status = X400MsgAddRecip (mp, X400_ORIGINATOR, origp);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "X400MsgAddRecip returned error: %s\n", X400msError (status));
        exit (status);
    }
    printf("Put %s in as originator\n", def_dn);

    /* add a recipient */
    status = X400RecipNew (X400_RECIP_STANDARD, &rp);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "x400msRecipNew returned error: %s\n", X400msError (status));
        exit (status);
    }

    status = X400RecipAddStrParam (rp, X400_S_OR_ADDRESS, recip, -1);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "x400msRecipAddStrParam returned error: %s\n", X400msError (status));
        exit (status);
    }

    status = X400RecipAddStrParam (rp, X400_S_DIRECTORY_NAME, "CN=recipient;c=gb", -1);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "x400msRecipAddStrParam returned error: %s\n", X400msError (status));
        exit (status);
    }

    /* put recipient into message */
    status = X400MsgAddRecip (mp, X400_RECIP_STANDARD, rp);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "X400MsgAddRecip returned error: %s\n", X400msError (status));
        exit (status);
    }
    printf("Put %s in as recipient\n", recip);



    /* Ask for delivery reports */
    printf("delivery report request %d ( 1 - No, 2 - Yes)\n",  x400_dr_req);
    status = X400RecipAddIntParam (rp, X400_N_REPORT_REQUEST, x400_dr_req);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "x400RecipAddStrParam returned error: %s\n", X400msError (status));
        exit (status);
    }

    /* Ask for read receipts */
    printf("read notification request %d ( 1 - RN, 2 - NRN, 4 - return of IPM with NRN )\n",  x400_rn_req);
    status = X400msRecipAddIntParam (rp, X400_N_NOTIFICATION_REQUEST, x400_rn_req);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "x400msRecipAddIntParam returned error: %s\n", X400msError (status));
        exit (status);
    }

    if (1) {
        char *contid = "ContID00001";

        /* Content identifier so we can correlate with submission result */
        status = X400MsgAddStrParam(mp, X400_S_CONTENT_IDENTIFIER, contid, (size_t)-1);
        if ( status != X400_E_NOERROR ) {
            fprintf (stderr, "X400msMsgAddIntParam %d returned error: %s\n", 
                     X400_S_CONTENT_IDENTIFIER, X400msError (status));
            exit (status);
        }
    }

    /* content return request on report - 0 = no */
    status = X400MsgAddIntParam (mp, X400_N_CONTENT_RETURN_REQUEST, 0);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "X400msMsgAddIntParam %d returned error: %s\n", 
            X400_N_CONTENT_RETURN_REQUEST, X400msError (status));
        exit (status);
    }

    /* Priority: 0 - normal, 1 - non-urgent, 2 - urgent */
    printf("message priority is %d ( 0 - normal, 1 - non-urgent, 2 - urgent)\n", 
            x400_default_priority);
    status = X400MsgAddIntParam (mp, X400_N_PRIORITY, x400_default_priority);
    if ( status != X400_E_NOERROR ) return (status);

    /* Priority: 0 - normal, 1 - non-urgent, 2 - urgent */
    printf("military message priority is %d ( 0 - low, 1 - high)\n", 
            x400_default_priority);
    status = X400MsgAddIntParam (mp, X400_N_MMTS_PRIORITY_QUALIFIER, 1);
    if ( status != X400_E_NOERROR ) return (status);

    /* subject */
    status = X400MsgAddStrParam (mp, X400_S_SUBJECT, subject, (size_t)-1);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "x400msMsgAddStrParam returned error: %s\n", X400msError (status));
        exit (status);
    }

    /* 8859-1 attachment */
    status = X400MsgAddStrParam (mp, X400_T_ISO8859_1, text, (size_t)-1);
    if ( status != X400_E_NOERROR ) {
        fprintf (stderr, "x400ms returned error: %s\n", X400msError (status));
        exit (status);
    }

    status = X400MsgAddAttachment (mp, X400_T_IA5TEXT, text, strlen(text));
    if ( status != X400_E_NOERROR ) {
        printf("failed to add X400_T_IA5TEXT BP\n");
        return (status);
    }
  
    {
        size_t length = 0;

        /* write content to file */
        status = X400MsgGetStrParam (mp, X400_S_CONTENT_STRING, 
            buffer, sizeof buffer, &length);

        if ( status != X400_E_NOERROR ) {
            fprintf (stderr, "X400MsgGetStrParam returned error: %s\n", X400msError (status));
            exit (status);
        } else {
            printf("X400MsgGetStrParam got %ld bytes of content\n", (long)length);
        }
    }

    exit (status);
    /* NOTREACHED */
}

static void usage(void) {
    printf("usage: %s\n", optstr);
    printf("\t where:\n");
    printf("\t -u : Don't prompt to override defaults \n");
    printf("\t -3 : Use P3 connection \n");
    printf("\t -7 : Use P7 connection \n");
    printf("\t -m : OR Address in P7 bind arg \n");
    printf("\t -d : DN in P7 bind arg \n");
    printf("\t -p : Presentation Address of P7 Store \n");
    printf("\t -w : P7 password of P7 user \n");
    printf("\t -M : OR Address in P3 bind arg \n");
    printf("\t -D : DN in P3 bind arg \n");
    printf("\t -P : Presentation Address of P3 server\n");
    printf("\t -W : P3 password of P3 user \n");
    printf("\t -o : Originator \n");
    printf("\t -O : Originator Return Address \n");
    printf("\t -r : Recipient\n");
    printf("\t -l : Logline\n");
    printf("\t -y : Priority (0 - normal, 1 - non-urgent, 2 - urgent \n");
    printf("\t -C : Content Type (2/22/772/OID) \n");
    printf("\t -i : Implicit conversion prohibited = TRUE \n");
    printf("\t -a : Alternate Recipient Prohibited = TRUE \n");
    printf("\t -q : Content Return Request = TRUE \n");
    printf("\t -s : Disclosure of Recipient = FALSE \n");
    printf("\t -A : Recipient Reassignment Prohibited = FALSE \n");
    printf("\t -v : Conversion with Loss Prohibited = FALSE \n");
    printf("\t -f : Filename to transfer as binary bp\n");
    printf("\t -k : Request Delivery Report\n");
    printf("\t -K : Request Read Notification ( 1 - RN, 2 - NRN, 4 - return of IPM with NRN )\n");
    return;
}