// Strip HTML-files
// (c)JTHZ'97, BC5 Console32

#include <io.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys\stat.h>

#define TMPFILE "~!OO!~"

FILE *f1,*f2;
char szBuf[2048];
long lScriptAdr[1000],pos;
int wIndex=0,i;

void main(int argc,char*argv[]){

	if(argc!=2){
   	printf("%s FILE.HTM\n",argv[0]);
      exit(1);
   }
   if((f1=fopen(argv[1],"r"))==NULL){
   	printf("Can't open %s\n",argv[1]);
      exit(1);
   }

   printf("Scanning for SCRIPT-tags...\n");
   for(i=0;i<1000;i++)
   	lScriptAdr[i]=-1;

   // eerst scannen op SCRIPT-tags (shit):
   pos=0;
   while(fscanf(f1,"%s",szBuf)!=EOF){
   	strupr(szBuf);
   	if(strstr(szBuf,"<SCRIPT")||strstr(szBuf,"</SCRIPT"))
			lScriptAdr[wIndex++]=pos;
   	fgetpos(f1,&pos);
	}

   if(wIndex%2){
   	printf("No <SCRIPT> for every </SCRIPT> or vice versa!\nAborting...\n");
      fclose(f1);
      exit(1);
   }

   printf("Removing shit...\n");
   rewind(f1);
   wIndex=0;
   f2=fopen(TMPFILE,"w");
   while(fscanf(f1,"%s",szBuf)!=EOF){
   	fgetpos(f1,&pos);
      if(pos==lScriptAdr[wIndex]){
      	fprintf(f2,"%s ",szBuf);
      	wIndex++;
         while(pos!=lScriptAdr[wIndex]){
            i=fgetc(f1);
            fputc(i,f2);
				fgetpos(f1,&pos);
         }
         fscanf(f1,"%s",szBuf);
         fprintf(f2,"%s",szBuf);
         wIndex++;
      }
      else
	   	fprintf(f2,"%s ",szBuf);
   }
   fcloseall();
   chmod(argv[1],S_IWRITE);
   unlink(argv[1]);
   rename(TMPFILE,argv[1]);
}