/***********************************************************************/
/* Open Visualization Data Explorer                                    */
/* (C) Copyright IBM Corp. 1989,1999                                   */
/* ALL RIGHTS RESERVED                                                 */
/* This code licensed under the                                        */
/*    "IBM PUBLIC LICENSE - Open Visualization Data Explorer"          */
/***********************************************************************/

#include <dxconfig.h>




#include "defines.h"
#ifndef  DXD_DO_NOT_REQ_UNISTD_H
#include <unistd.h>
#endif
#include <stdio.h>
#include <sys/stat.h>
#ifndef  DXD_DO_NOT_REQ_SYS_PARAM_H
#include <sys/param.h>
#endif
#include <Xm/Xm.h>
//	Included at top of file   #include "defines.h"
#include "ControlPanel.h"
#include "Application.h" 
#include "DropSite.h"
#include "DXDropSite.h" 
#include "DXApplication.h"
#include "Network.h"
#include "Strings.h"
#include "WarningDialogManager.h"

#if defined(solaris)
#include <netdb.h>
#endif

#if defined(NEEDS_GETHOSTNAME_DECL)
extern "C" int gethostname(char *address, int address_len);
#endif

#if defined(DXD_WIN)
#include <winsock.h>
#endif

//static char *header_fmt = "%s:%d, net length = %d, cfg length = %d\n";
//static char *header_fmt = "%d, net length = %d, cfg length = %d\n";
static char *header_fmt = "%[^:]:%d, net length = %d, cfg length = %d";

DXDropSite::DXDropSite (boolean intraExecutable): DropSite()
{
    this->intraExecutable = intraExecutable;
}

DXDropSite::~DXDropSite() { }


//
// Kick off the recieving end of the transfer using .net and .cfg files.  
//
boolean DXDropSite::transfer(char *type, XtPointer value, unsigned long len, int x, int y)
{
FILE            *netf;
FILE            *cfgf;
char            netfilename[1024];
char            cfgfilename[1024];
char            syscmd[1024];
int             header_len;
int             net_len;
int             cfg_len;
char            *buf = (char *)value; // you want to read 1 byte past the end?
char            *newline;
char		draghost[MAXHOSTNAMELEN], hostname[MAXHOSTNAMELEN];
int		dragpid;
Boolean		ret;


    ASSERT (buf);
    if(sscanf(buf, header_fmt, draghost, &dragpid, &net_len, &cfg_len) < 4)
    {
        WarningMessage("DXDropSite:transfer drop failed");
        return FALSE;
    }
    newline = strchr(buf, '\n');
    header_len = newline - buf;

    //
    // prevent dnd between programs... silly goal?  We set intraExecutable==TRUE
    // for dnd from vpe to c.p.   The proper way to implement this is with
    // root window properties.  The drag source is setting HOST_NAME and PROCESS.
    // It could also set LENGTH and 1 other to handle the entire header or even
    // split the entire transfer into logical peices.
    //
    if (this->intraExecutable) 
    {
        Boolean mismatch = FALSE;
        gethostname (hostname, sizeof(hostname));
        if (strcmp(hostname, draghost)) mismatch = TRUE;
        else if (dragpid != getpid()) mismatch = TRUE;
	if (mismatch) return FALSE;
    }

    //
    // Create the net file
    //
    sprintf(netfilename, "%s/dx%d.net", theDXApplication->getTmpDirectory(), getpid());
    netf = fopen(netfilename, "w");
    if (!netf) {
        WarningMessage("DXDropSite:no file write permission");
	return FALSE;
    }

    fwrite(&(buf[header_len]), sizeof(char), (unsigned int)net_len, netf);
    fclose(netf);

    //
    // Create the cfg file
    //
    if(cfg_len > 0)
    {
        sprintf(cfgfilename, "%s/dx%d.cfg", theDXApplication->getTmpDirectory(), getpid());
        cfgf = fopen(cfgfilename, "w");
        fwrite(&(buf[header_len+net_len]),
            sizeof(char), (unsigned int)cfg_len, cfgf);
        fclose(cfgf);
    } else
	cfgfilename[0] = '\0';

    Network *tmpnet = theDXApplication->newNetwork(TRUE);
    if ((cfgfilename)&&(cfgfilename[0]))
        ret = tmpnet->readNetwork(netfilename, cfgfilename, TRUE);
    else
        ret = tmpnet->readNetwork(netfilename, NULL, TRUE);

    List *tmppanels = NUL(List*);
    if (ret) {
	tmppanels = tmpnet->getNonEmptyPanels();
	ret = this->mergeNetElements (tmpnet, tmppanels, x, y);
    } 

    if (tmppanels) delete tmppanels;
    delete tmpnet;
    unlink (netfilename);
    unlink (cfgfilename);

    return ret;
}