/****************************************************************************
 * Copyright (C) 2003, Web Sailor Production, All Rights Reserved.
 *
 *   MODULE NAME    :   perlproxy.c
 *   DATE CREATED   :   15Feb03
 *
 *   DESCRIPTION:
 *
 *   HISTORY:
 *   Date      Initial      Comment
 *   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 *   15Feb03   sailor       Initial Creation.
 *                          This program converts the cygwin path to dos
 *                          path and invoke the perl program.
 *                          This is to solve the problem where bash shell
 *                          cannot execute Activestate perl.
 *                          % gcc -mno-cygwin perlproxy.c -o perl.exe
 *
 ****************************************************************************/

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char** argv)
{
    char   buf[1024];
    char   command[1024];
    char   *ptr;
    FILE   *fp;
    int    ix;
    int    iy;
    int    iz;
    int    status;

    strcpy(command,"c:\\programs\\perl\\bin\\perl");

    for(ix=1; ix<argc; ix++)
    {
        if (argv[ix][0] == '~' || argv[ix][0] == '/')
        {
            strcpy(buf,"cygpath -wi ");
            strcat(buf,argv[ix]);

            if ((fp = popen( buf, "r" )) == NULL)
            {
                printf("Error : Sailor Message\n");
                printf("Error : Pipe cannot be opened successfully.\n");
                exit(1);
            }

            buf[0] = 0;
            if ( !feof( fp ) ) fgets( buf, 1024, fp );

            status = _pclose( fp );
            //printf( "\nProcess returned %d\n", status);

            if (status != 0 || buf[0] == 0)
            {
                printf("Error : Sailor Message\n");
                printf("Error : Error executing command.\n");
                exit(2);
            }

            iz = strlen(command);
            command[iz++] = ' ';
            for(iy=0; iy<strlen(buf); iy++)
            {
                if (buf[iy] == '\r') continue;
                if (buf[iy] == '\n') continue;
                if (buf[iy] == '/')
                {
                    command[iz++] = '\\';
                    command[iz++] = '\\';
                }
                else command[iz++] = buf[iy];
            }
            command[iz++] = 0;
        }
        else
        {
            strcat(command," ");
            strcat(command,argv[ix]);
        }
    }

    //printf("command = %s\n",command);

    system(command);
    exit(0);
}