+ *src = '\0';
+ strcat (src, path);
+ zebra_file_stat (src, &sbuf, rGroup->followLinks);
+
+ strcpy (src, path);
+ src_len = strlen (src);
+
+ if (S_ISREG(sbuf.st_mode))
+ {
+ struct dirs_entry *e_dst;
+ di = dirs_fopen (dict, src);
+
+ e_dst = dirs_read (di);
+ if (e_dst)
+ {
+ if (sbuf.st_mtime > e_dst->mtime)
+ if (fileExtract (zh, &e_dst->sysno, src, rGroup, 0))
+ dirs_add (di, src, e_dst->sysno, sbuf.st_mtime);
+ }
+ else
+ {
+ SYSNO sysno = 0;
+ if (fileExtract (zh, &sysno, src, rGroup, 0))
+ dirs_add (di, src, sysno, sbuf.st_mtime);
+ }
+ dirs_free (&di);
+ }
+ else if (S_ISDIR(sbuf.st_mode))
+ {
+ if (src_len && src[src_len-1] != '/')
+ {
+ src[src_len] = '/';
+ src[++src_len] = '\0';
+ }
+ di = dirs_open (dict, src, rGroup->flagRw);
+ *dst = '\0';
+ fileUpdateR (zh, di, dirs_read (di), src, dst, rGroup, 0);
+ dirs_free (&di);
+ }
+ else
+ {
+ logf (LOG_WARN, "Ignoring path %s", src);
+ }
+}
+
+
+static void repositoryExtract (ZebraHandle zh,
+ int deleteFlag, struct recordGroup *rGroup,
+ const char *path)
+{
+ struct stat sbuf;
+ char src[1024];
+
+ assert (path);
+
+ if (zh->path_reg && !yaz_is_abspath(path))
+ {
+ strcpy (src, zh->path_reg);
+ strcat (src, "/");
+ }
+ else
+ *src = '\0';
+ strcat (src, path);
+ zebra_file_stat (src, &sbuf, rGroup->followLinks);
+
+ strcpy (src, path);
+
+ if (S_ISREG(sbuf.st_mode))
+ fileExtract (zh, NULL, src, rGroup, deleteFlag);
+ else if (S_ISDIR(sbuf.st_mode))
+ repositoryExtractR (zh, deleteFlag, src, rGroup, 0);
+ else
+ logf (LOG_WARN, "Ignoring path %s", src);
+}
+
+static void repositoryExtractG (ZebraHandle zh,
+ int deleteFlag, struct recordGroup *rGroup)
+{
+ if (*rGroup->path == '\0' || !strcmp(rGroup->path, "-"))
+ {
+ char src[1024];
+
+ while (scanf ("%1020s", src) == 1)
+ repositoryExtract (zh, deleteFlag, rGroup, src);
+ }
+ else
+ repositoryExtract (zh, deleteFlag, rGroup, rGroup->path);
+}
+
+void repositoryUpdate (ZebraHandle zh)
+{
+ struct recordGroup *rGroup = &zh->rGroup;
+ groupRes (zh, rGroup);
+ assert (rGroup->path);
+ if (rGroup->recordId && !strcmp (rGroup->recordId, "file"))
+ {
+ Dict dict;
+ if (!(dict = dict_open (zh->reg->bfs, FMATCH_DICT, 50,
+ rGroup->flagRw, 0)))
+ {
+ logf (LOG_FATAL, "dict_open fail of %s", FMATCH_DICT);
+ return ;
+ }
+ if (*rGroup->path == '\0' || !strcmp(rGroup->path, "-"))
+ {
+ char src[1024];
+ while (scanf ("%s", src) == 1)
+ fileUpdate (zh, dict, rGroup, src);
+ }
+ else
+ fileUpdate (zh, dict, rGroup, rGroup->path);
+ dict_close (dict);
+ }
+ else
+ repositoryExtractG (zh, 0, rGroup);
+}
+
+void repositoryDelete (ZebraHandle zh)
+{
+ repositoryExtractG (zh, 1, &zh->rGroup);