/* Fix Mozilla symbol font problems. Non-console version.*/
#include <stdio.h>
#include <string.h>
#include <windows.h>
#define BUFSIZE 4096
#define PATHLEN 256
int STDCALL
WinMain (HINSTANCE hInst, HINSTANCE hPrev, LPSTR lpCmd, int nShow)
{
  char output[BUFSIZE];
  char buffer[BUFSIZE];
  char path[PATHLEN],executable[PATHLEN];
  char mathml[PATHLEN],mathml2[PATHLEN]={0};
  char fontprop[PATHLEN],fontprop2[PATHLEN];
  char cmd[80];
  char *start=NULL,*send=NULL;
  FILE *fdin, *fdout;
  int length,i,j;

  *output=0;
  if(!strlen(lpCmd)){
    /* Windows 98 places */
    fdin=fopen("\\WINDOWS\\Desktop\\Mozilla.lnk","r");
    if(fdin==NULL)fdin=fopen("\\WINDOWS\\Desktop\\Netscape.lnk","r");
    /* Windows XP places */
    if(fdin==NULL)fdin=fopen("\\Documents and Settings\\All Users\\Desktop\\Mozilla.lnk","r");
    if(fdin==NULL)fdin=fopen("\\Documents and Settings\\All Users\\Start Menu\\Programs\\Mozilla\\Mozilla.lnk","r");
    if(fdin==NULL)fdin=fopen("\\Program Files\\mozilla.org\\Mozilla\\defaults\\shortcuts\\Mozilla.lnk","r");
  }else{
   fdin=fopen(lpCmd,"r");
  }
  if(fdin != NULL){
    length=fread(buffer,1,BUFSIZE,fdin);
    sprintf(output+strlen(output),"length=%d\n",length);
    strncat(output,buffer,length);
    for (i=0;i<length;i++) {
      if(buffer[i]=='C'||buffer[i]=='D')if(buffer[i+1]==':'){
	start=buffer+i;
	if((send=strstr(start,"mozilla.exe")) != NULL ||
	   (send=strstr(start,"netscape.exe")) != NULL){
	  *send=0;
	  strncpy(path,start,PATHLEN-1);
	  strcpy(mathml,path);
	  strcpy(fontprop,path);
	  strcpy(mathml2,path);
	  strcpy(fontprop2,path);
  	  sprintf(output+strlen(output),"\n\nGot:%s\n\n",start);
	  break;
	}
      }
    }
    /*    if(start==NULL){*/
    if(*mathml2==0){
      sprintf(output+strlen(output),"Mozilla.lnk contains no comprehensible path reference.\n");
      sprintf(output+strlen(output),"Perhaps Mozilla is not installed on drives C: or D:.\n");
      sprintf(output+strlen(output),"Can't tell which files to change.\n");
      MessageBox (NULL, output, "Wfontfix", MB_OK);
      return 1;
    }
    fclose(fdin);
    strcat(mathml,"res\\mathml.css");
    strcat(mathml2,"res\\mathml.bak");
    fdin=fopen(mathml,"r");
    /*First time create backup file */
    if(fdin !=NULL&& (fdout=fopen(mathml2,"w"))!=NULL){
      sprintf(output+strlen(output),"Backed up %s\n    to %s\n",mathml,mathml2);
      while(fgets(buffer,BUFSIZE,fdin)!=NULL){
	/*  	sprintf(output+strlen(output),"%s",buffer); */
  	fprintf(fdout,"%s",buffer);
      }
      fclose(fdout);
    }
    if(fdin!=NULL)fclose(fdin);
    /*Second time do the editing.*/
    fdin=fopen(mathml2,"r");
    if(fdin !=NULL&& (fdout=fopen(mathml,"w"))!=NULL){
/*        sprintf(output+strlen(output),"Opened %s\n    and %s\n",mathml,mathml2); */
      while(fgets(buffer,BUFSIZE,fdin)!=NULL){
	if((start=strstr(buffer,"Symbol, Times"))!=NULL){
	  sprintf(output+strlen(output),"Fixing %s\n",buffer); 
	  strcpy(cmd,"Times, Symbol");
	  strncpy(start,cmd,strlen(cmd));
	}
    	fprintf(fdout,"%s",buffer);
      }
      fclose(fdout);
    }
    if(fdin!=NULL)fclose(fdin);

    strcat(fontprop,"res\\fonts\\fontEncoding.properties");
    strcat(fontprop2,"res\\fonts\\fontEncoding.properties.bak");
    fdin=fopen(fontprop,"r");
    if(fdin!=NULL && (fdout=fopen(fontprop2,"w")) !=NULL){
      sprintf(output+strlen(output),"Backed up %s\n   to %s\n",fontprop,fontprop2);
      while(fgets(buffer,BUFSIZE,fdin)!=NULL){
/*  	sprintf(output+strlen(output),"%s",buffer); */
  	fprintf(fdout,"%s",buffer);
      }
      fclose(fdout);
    }
    if(fdin!=NULL)fclose(fdin);
    fdin=fopen(fontprop2,"r");
    if(fdin!=NULL && (fdout=fopen(fontprop,"w")) !=NULL){
/*        sprintf(output+strlen(output),"Opened %s\n   and %s\n",fontprop,fontprop2); */
      while(fgets(buffer,BUFSIZE,fdin)!=NULL){
	/* Strings must be same length. */
	if((start=strstr(buffer,"encoding.symbol.ttf = windows-1252         "))!=NULL){
	  strcpy(cmd,"encoding.symbol.ttf = Adobe-Symbol-Encoding");
	  sprintf(output+strlen(output),"Changing back:  %s to %s\n",buffer,cmd); 
	  strncpy(start,cmd,strlen(cmd));
	}else
	if((start=strstr(buffer,"encoding.symbol.ttf = Adobe-Symbol-Encoding"))!=NULL){
	  strcpy(cmd,"encoding.symbol.ttf = windows-1252         ");
	  sprintf(output+strlen(output),"Fixed: %s to %s\n",buffer,cmd); 
	  strncpy(start,cmd,strlen(cmd));
	}
/*  	sprintf(output+strlen(output),"%s",buffer); */
  	fprintf(fdout,"%s",buffer);
      }
      fclose(fdout);
    }
    if(fdin!=NULL)fclose(fdin);
/*      sprintf(output+strlen(output),"Ending\n"); */
  }else{
    sprintf(output+strlen(output),"Can't find Mozilla.lnk file. Specify on command line.\n");
    sprintf(output+strlen(output),"Usage: Wfontfix [filename]\n");
  }
  MessageBox (NULL, output, "Wfontfix", MB_OK);
  return 0;
}