/* Program czyta zdjecia w formacie jpeg ze wskazanego katalogu
 * i tworzy album HTML w innym katalogu.
 * Z kazdego zdjecia tworzy miniaturke i zdjecie posredniej wielkosci.
 * Kompilacja:
 * cc tworz.c -L/usr/local/lib -lgd -o tworz
 * Uzycie:
 * chmod 700 tworz
 * ./tworz
*/

#include <gd.h>
#include "gdfontl.h"
#include "gdfonts.h"
#include "gdfontg.h"
#include <string.h>
#include <stdio.h>
#include <time.h>
#include <dirent.h>


#define LICZWIER 5

FILE *indhtml;
FILE *ind1html;
char buf[255];
char album[255];
char oryginal[255];
char nazalb[255];
char nazalb1[255];
char nazzdj[255];
char nazzdj1[255];
char nazwyj1[255];
char podpis[255];
int tr; // liczba miniaturek w wierszu
void nagl_index();
void nagl_ind1();


/* Zmienne do manipulacji kartotekami*/
DIR *dp;
struct dirent *ep;

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

FILE *fp;
char p[255];
 
char nazwyj[31];
char nazwyj2[31];


/* Zmienne grafiki */
int x, y, n, m;
char *err;  
gdImagePtr im;
gdImagePtr im1;
gdImagePtr im2;
FILE *gifout;
FILE *gifin;
/* Utworz index.html */
printf("Podaj nazwe albumu : ");
   fgets(nazalb,40,stdin);
   if (strlen(nazalb)<1)
      strcat(nazalb,"Test");
   printf("Podaj sciezke do oryginalnych zdjęć (./oryg): ");
   fgets(buf,40,stdin);
   if (strlen(buf)==1)
      strcat(oryginal,"./oryg/");
   else
   {
      strcpy(oryginal,"./");
      strcat(oryginal,buf);
      oryginal[strlen(oryginal)-1]='/';
   }
printf("Gdzie utworzyć album?(./album): ");
   fgets(buf,40,stdin);
   if (strlen(buf)==1)
      strcat(album,"./album/");
   else
   {   
      strcpy(album,"./");
      strcat(album,buf);
      album[strlen(album)-1]='/';
   }

nagl_index();

/* Wczytaj zdjecia, zrob male i miniaturowe */
dp = opendir (oryginal);
  if (dp != NULL)
    {
      puts("Przetwarzam:\n");
      while (ep = readdir (dp))
        if(strcmp(ep->d_name,".")& strcmp(ep->d_name,".."))
         {
/* wczytaj oryginalne zdjecie */
           strcpy(nazzdj, oryginal);
           strcat(nazzdj,ep->d_name);
           gifin=fopen(nazzdj, "r");
           im = gdImageCreateFromJpeg(gifin);
           fclose(gifin);

/* Utworz zdjecie posredniej wielkosci */
           im1 = gdImageCreateTrueColor(800, (float)im->sy/(float)im->sx*800);
           gdImageCopyResized(im1, im, 0, 0, 0, 0,
                       im1->sx, im1->sy,
                       im->sx, im->sy);

/* Zapisz w docelowym folderze oryginalne zdjecie */           
           strcpy(nazwyj, album);
           strcat(nazwyj,ep->d_name);
           gifout = fopen(nazwyj, "wb");
           gdImageJpeg(im, gifout, -1);
           fclose(gifout);

/* Zapisz zdjecie posredniej wielkości */
           strcpy(nazwyj, album);
           strcat(nazwyj,"med_");
           strcat(nazwyj,ep->d_name);
           gifout = fopen(nazwyj, "wb");
           gdImageJpeg(im1, gifout, -1);
           fclose(gifout);
           gdImageDestroy(im1);

/* Utworz strone HTML z obrazkiem */
           strcpy(nazwyj1, album);
           strcat(nazwyj1,"med_");
/* Zapytaj o podpis pod zdjeciem */
           printf("Podpis pod zdjeciem %s: ", ep->d_name);
           fgets(podpis,250,stdin);
           strcat(nazwyj1,ep->d_name);
           strcat(nazwyj1,".html");
           nagl_ind1();
           strcpy(nazwyj, "./");
           strcat(nazwyj,"med_");
           strcat(nazwyj,ep->d_name);
           fprintf(ind1html, "<td align=\"center\"><a href=%s> \
                 <img class=\"photo\" src=\"%s \
                 \" ><div>%s \
                 </div></a></td>\n", ep->d_name, nazwyj, podpis);
/* dopisz koniec strony z obrazkiem i zamknij ja */
         fprintf(ind1html,"</table> \n\
              <hr>     \n\
              </body>   \n\
              </html>");

         fclose(ind1html);
           
//                 \" width=\"520\" height=\"520\"><div>%s \ 
/* Utworz miniaturke */           
           im2 = gdImageCreateTrueColor(160, (float)im->sy/(float)im->sx*160);
           gdImageCopyResized(im2, im, 0, 0, 0, 0,
                       im2->sx, im2->sy,
                       im->sx, im->sy);
           strcpy(nazwyj, "./");
           strcat(nazwyj,"sm_");
           strcat(nazwyj,ep->d_name);
           strcpy(nazwyj1, "./");
           strcat(nazwyj1,"med_");
           strcat(nazwyj1,ep->d_name);
           strcat(nazwyj1,".html");
/* Utworz link do obrazka */
           fprintf(indhtml, "<td align=\"center\"><a href=%s> \
                 <img class=\"photo\" src=\"%s \
                 \" ><div>%s \
                 </div></a></td>\n", nazwyj1, nazwyj, podpis);
              tr++;
           if ( tr == LICZWIER )
              {tr=0;
               fprintf(indhtml, "</tr>\n");
              }
           gdImageDestroy(im);

/* zapisz miniaturke */
           strcpy(nazwyj2, album);
	   strcat(nazwyj2,"sm_");
           strcat(nazwyj2,ep->d_name);
           gifout = fopen(nazwyj2, "wb");
           gdImageJpeg(im2, gifout,-1);
           fclose(gifout);
           gdImageDestroy(im2);
         }
      (void) closedir (dp);

    }
  else
    puts ("Couldn't open the directory.");

/* dopisz koniec index,html i zamknij go */
         fprintf(indhtml,"</table> \n\
              <hr>     \n\
              </body>   \n\
              </html>");

fclose(indhtml);
puts("Gotowe!\n");
}

void nagl_index()
{
strcpy (nazalb1, album);
strcat (nazalb1, "index.html");
indhtml=fopen(nazalb1,"wb"); 
fprintf(indhtml, "<html>\n<head>\n<title=\"");
fprintf(indhtml, "%s\"></title>\n",nazalb);
fprintf(indhtml,"<style type=\"text/css\"> \n \
        body {                        \n\
                color: #d0ffd0;       \n\
                background: #333333;  \n\
                font-family: /*param*/Helvetica, sans-serif; \n\
                font-size: 14pt;      \n\
                margin: 4%;           \n\
        }                             \n\
        h1 {                          \n\
                color: #d0ffd0;       \n\
        }                             \n\
        table {                       \n\
                text-align: center;   \n\
                margin-left: auto;    \n\
                margin-right: auto;   \n\
        }                             \n\
        td {                         \n\
                color: #d0ffd0;       \n\
                padding: 1em;         \n\
        }                             \n\
        img.photo {                   \n\
                border: 1px solid #d0ffd0; \n\
        }                             \n\
        a:link {                      \n\
                color: #b3b3b3;       \n\
        }                             \n\
        a:visited {                   \n\
                color: #b3b3b3;       \n\
        }                             \n\
        </style>                      \n\
        </head>                      \n\
                                      \n");
fprintf(indhtml,"<body>\n");
fprintf(indhtml, "<h1>");
fprintf(indhtml, "%s</h1>\n",nazalb);
fprintf(indhtml,"<table>\n<tr>");
tr=0;
}
void nagl_ind1()
{
ind1html=fopen(nazwyj1,"wb"); 
fprintf(ind1html, "<html>\n<head>\n<title=\"");
fprintf(ind1html, "%s\"></title>\n",podpis);
fprintf(ind1html,"<style type=\"text/css\"> \n \
        body {                        \n\
                color: #d0ffd0;       \n\
                background: #333333;  \n\
                font-family: /*param*/Helvetica, sans-serif; \n\
                font-size: 14pt;      \n\
                margin: 4%;           \n\
        }                             \n\
        h1 {                          \n\
                color: #d0ffd0;       \n\
        }                             \n\
        table {                       \n\
                text-align: center;   \n\
                margin-left: auto;    \n\
                margin-right: auto;   \n\
        }                             \n\
        td {                         \n\
                color: #d0ffd0;       \n\
                padding: 1em;         \n\
        }                             \n\
        img.photo {                   \n\
                border: 1px solid #d0ffd0; \n\
        }                             \n\
        a:link {                      \n\
                color: #b3b3b3;       \n\
        }                             \n\
        a:visited {                   \n\
                color: #b3b3b3;       \n\
        }                             \n\
        </style>                      \n\
        </head>                      \n\
                                      \n");
fprintf(ind1html,"<body>\n");
fprintf(ind1html, "<h1>");
fprintf(ind1html, "%s</h1>\n",podpis);
fprintf(ind1html,"<table>\n<tr>");
}