/*** C program generated by cscript ***/
#include <stdio.h>
#include "rename.h"


#define SCRIPT "rename.tmp"
#define PROGRAM "rename"
int main(argc, argv)
  int argc;
  char **argv;
{
  int i;    char acTmp[BUFSIZ];
    char *pcArgs=NULL;
    char *pcTmp = NULL;
    FILE *pFScript;

    for(i=1; i<argc; i++) {
	if(pcArgs == NULL) {
	    if((pcArgs = (char *)malloc(strlen(argv[i])+1)) == NULL) {
		fprintf(stderr, "%s: *** Error - malloc failed\n", PROGRAM);
	        exit(1);
	    }
	    strcpy(pcArgs, argv[i]);
	}
	else {
	    if((pcTmp = (char *)malloc(strlen(argv[i])+strlen(pcArgs)+2)) == NULL) {
		fprintf(stderr, "%s: *** Error - malloc failed\n", PROGRAM);
		exit(1);
	    }
	    sprintf(pcTmp,"%s %s", pcArgs, argv[i]);
	    free(pcArgs);
	    pcArgs = pcTmp;
	}
    }

    /*** Open temporary script file ***/
    if((pFScript = fopen(SCRIPT, "w")) == NULL) { 
	fprintf(stderr, "%s: *** Error - can't open script file: %s\n", PROGRAM, SCRIPT);
	exit(1);
    }
    
    for(i=0; gacScript[i] != NULL; i++) {
	fprintf(pFScript, gacScript[i]);
    }
    fclose(pFScript);

   sprintf(acTmp, "perl -I/usr/lib/perl  %s %s", SCRIPT, ((pcArgs == (char *)NULL) ? (char *)"": pcArgs));
   fprintf(stderr, "%s\n", acTmp);
   ssystem(acTmp);
   unlink(SCRIPT);
}