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

main()
{
    FILE *f,*g;
    char buf[500],name[500],buf1[500];
    int width,height,Ev,Ho,Old,lEv,lHo;

    lEv = lHo = -1;
    f = popen("ls -1 /amnt/cd/ujak/*.tif | grep /amnt/cd/ujak/99[57]","r");
    while (fgets(name,500,f))
    {
	while ((strlen(name)>0) && (name[strlen(name)-1] <= ' '))
	    name[strlen(name)-1]=0;
	sprintf(buf1,"convert -verbose %s - >/dev/null 2>/tmp/lll",name);
	system(buf1);
	g = fopen("/tmp/lll","r");
	fgets(buf,500,g);
	fgets(buf,500,g);
	fclose(g);
	if (!strstr(buf,"Image Width:"))
	{
printf("%s\n",buf);
	    abort();
	}
	width = atoi(strstr(buf,"Image Width:")+strlen("Image Width:"));
	if (!strstr(buf,"Image Length:"))
	{
printf("%s\n",buf);
	    abort();
	}
	height = atoi(strstr(buf,"Image Length:")+strlen("Image Length:"));
	pclose(g);
	*strrchr(name,'.') = 0;
	Old = atoi(name+strlen(name)-3);
	name[strlen(name)-3] = 0;
	Ho = atoi(name+strlen(name)-2);
	name[strlen(name)-2] = 0;
	Ev = 1000+atoi(name+strlen(name)-3);
	if (lEv != Ev)
	{
	    sprintf(buf1,"mkdir /home/makay/komal/%04d 2>/dev/null",Ev);
	    system(buf1);
	    lHo= -1;
	}
	if (lHo != Ho)
	{
	    sprintf(buf1,"mkdir /home/makay/komal/%04d/%02d 2>/dev/null",Ev,Ho);
	    system(buf1);
	}
	if (width > 2000)
	{
	    sprintf(buf1,"convert -crop 0x0+50+50 -monochrome -filter Point -geometry 600x3000 -dither /amnt/cd/ujak/%03d%02d%03d.tif /home/makay/komal/%04d/%02d/%03d.png",Ev-1000,Ho,Old,Ev,Ho,Old);
	}
	else
	{
	    sprintf(buf1,"convert -monochrome -filter Point -geometry 600x3000 /amnt/cd/ujak/%03d%02d%03d.tif /home/makay/komal/%04d/%02d/%03d.png",Ev-1000,Ho,Old,Ev,Ho,Old);
	}
	system(buf1);
    }
}