/* mcarhdir.c */
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <dirent.h>
#include <err.h>
#include <stdlib.h>
#include <errno.h>
#include <string.h>
#include <unistd.h>
#include "crarhdir.h"
#include "crarhfile.h"

int selfilesanddir (const struct dirent * d)
{
	if ( !strcmp(".", d->d_name) || !strcmp("..", d->d_name)) return 0;
	return 1;
}

int main (int argc, char ** argv)
{
	/*char * tar_args[] = { "tar", NULL, NULL };
        execv ("/bin/tar", tar_args);*/

	/*FILE* f;
	char buf[128];
	f = popen("tar -cvf /home/qq/t1.tar /home/qq/t_f","r");
	while (fgets(buf,127,f))
	{
		fprintf(stdout,"%s\n",buf);
	}
	fclose(f);*/

	DIR* dir;
	struct dirent* de;
	struct dirent ** entry;
	struct stat st;
	char fullfn[255];
	int i;

	if ((argc == 1)||(argc == 2)) errx(1, "Expected directory name\nUsade: %s DIRECTORY\n", *argv);
	else if (argc >3) errx(1, "Extra arguments were specified\nUsade: %s DIRECTORY\n", *argv);

	/* Test source dir */
	if ((dir =opendir(argv[1])) == NULL) err(1, "opendir: %s\n", argv[1]);
	if (errno == EBADF) err(1, "readdir: '%s'\n", argv[1]);
	if (closedir(dir) == -1) err(1, "closedir: '%s'\n", argv[1]);

	/* Test arh dir */
	if ((dir =opendir(argv[2])) == NULL) err(1, "opendir: %s\n", argv[2]);
	if (errno == EBADF) err(1, "readdir: '%s'\n", argv[2]);
	if (closedir(dir) == -1) err(1, "closedir: '%s'\n", argv[2]);

	/*fprintf(stdout, "Source files and directories from '%s':\n",argv[1]);*/

	int n = scandir(argv[1],&entry, selfilesanddir, 0);
	if (n>=0)
	for (i = 0; i<n; i++)
	{
		strcpy(fullfn,argv[1]);
		strcat(fullfn,"/");
		strcat(fullfn,entry[i]->d_name);
		strcat(fullfn,"\0");
		stat(fullfn, &st);
		/*S_ISDIR(st.st_mode)?fprintf(stdout,"d"):fprintf(stdout,"-");
		fprintf(stdout,"%s\n",entry[i]->d_name);*/
		if (S_ISDIR(st.st_mode))
		{
			/* create arhive of dir */
			crarhdir(fullfn,entry[i]->d_name,argv[2]);
		}
		else
		{
			/* create arhive of files in parent dir */
			crarhfile(fullfn,argv[2]);
		}
		free(entry[i]);
	}
	free(entry);

	exit (0);

}