5 * Revision 1.7 1995/02/22 15:22:33 adam
6 * Much more checking of run-time state. Show command never retrieves
7 * more records than indicated by the previous search request. Help
8 * command available. The maximum number of records retrieved can be
11 * Revision 1.6 1995/02/22 08:51:34 adam
12 * Output function can be customized in fml, which is used to print
13 * the reply to reply_fd.
15 * Revision 1.5 1995/02/20 21:16:20 adam
16 * FML support. Bug fixes. Profile for drewdb.
18 * Revision 1.4 1995/02/17 17:06:16 adam
21 * Revision 1.3 1995/02/16 18:35:09 adam
22 * First use of Zdist library. Search requests are supported.
23 * Present requests are not supported yet.
25 * Revision 1.2 1995/02/16 13:21:00 adam
26 * Organization of resource files for targets and conversion
27 * language implemented.
29 * Revision 1.1 1995/02/15 17:45:29 adam
30 * First version of email gateway kernel. Email requests are read
31 * from stdin. The output is transferred to an MTA if 'From' is
32 * found in the header - or stdout if absent. No Z39.50 client is used.
43 FILE *reply_fd = stdout;
45 struct gw_kernel_info info;
47 int main (int argc, char **argv)
49 info.kernel_res = NULL;
50 info.default_res = "default.res";
51 info.override_res = NULL;
56 info.override_portno = NULL;
57 info.override_hostname = NULL;
58 info.databases = NULL;
65 info.kernel_res = gw_res_init ();
73 gw_log_level (GW_LOG_ALL);
77 strcpy (info.target, argv[0]+2);
81 strcpy (info.target, *++argv);
85 gw_log (GW_LOG_FATAL, "main", "missing target name");
91 info.lang = argv[0]+2;
99 gw_log (GW_LOG_FATAL, "main", "missing language name");
105 info.override_res = argv[0]+2;
109 info.override_res = *++argv;
113 gw_log (GW_LOG_FATAL, "main", "missing language name");
119 info.override_portno = argv[0]+2;
123 info.override_portno = *++argv;
127 gw_log (GW_LOG_FATAL, "main", "missing portno");
133 info.override_hostname = argv[0]+2;
137 info.override_hostname = *++argv;
141 gw_log (GW_LOG_FATAL, "main", "missing hostname");
147 gw_log_file (GW_LOG_ALL, argv[0]+2);
151 gw_log_file (GW_LOG_ALL, *++argv);
155 gw_log (GW_LOG_FATAL, "main", "missing log filename");
160 gw_log (GW_LOG_FATAL, "main", "unknown option %s", *argv);
165 info.default_res = *argv;
172 struct gw_user_set *user_set_add (const char *name, int hits)
174 struct gw_user_set *s;
176 s = malloc (sizeof (*s));
179 s->name = gw_strdup (name);
186 void user_set_init (void)
188 struct gw_user_set *s, *s1;
190 for (s = info.sets; s; s = s1)
199 struct gw_user_set *user_set_search (const char *name)
201 struct gw_user_set *s;
205 for (s = info.sets; s; s = s->prev)
206 if (!strcmp (s->name, name))
212 static void fml_inf_write (int ch)
216 static FILE *fml_inf;
218 static int fml_inf_read (void)
220 return getc (fml_inf);
224 void read_kernel_res (void)
226 char path_prefix[128];
230 char resource_name[256];
235 ccl_qual_rm (&info.bibset);
236 info.bibset = ccl_qual_mk ();
239 gw_res_close (info.kernel_res);
240 info.kernel_res = gw_res_init ();
242 gw_log (GW_LOG_DEBUG, "main", "reading kernel resource, default %s",
245 gw_log (GW_LOG_DEBUG, "main", "reading kernel resource, target %s",
248 gw_log (GW_LOG_DEBUG, "main", "reading kernel resource, lang %s",
251 if (gw_res_merge (info.kernel_res, info.default_res))
253 gw_log (GW_LOG_WARN, "main", "Couldn't read resource file %s",
257 strcpy (path_prefix, gw_res_get (info.kernel_res, "gw.path", "."));
261 sprintf (resource_name, "gw.target.%s", info.target);
262 v = gw_res_get (info.kernel_res, resource_name, NULL);
265 sprintf (fname, "%s/%s", path_prefix, v);
266 gw_res_merge (info.kernel_res, fname);
271 sprintf (resource_name, "gw.lang.%s", info.lang);
272 v = gw_res_get (info.kernel_res, resource_name, NULL);
275 sprintf (fname, "%s/%s", path_prefix, v);
276 gw_res_merge (info.kernel_res, fname);
279 if (info.override_res)
281 sprintf (fname, "%s/%s", path_prefix, info.override_res);
282 gw_res_merge (info.kernel_res, fname);
284 v = gw_res_get (info.kernel_res, "gw.bibset", NULL);
289 sprintf (fname, "%s/%s", path_prefix, v);
290 bib_inf = fopen (fname, "r");
292 gw_log (GW_LOG_WARN, "main", "cannot open %s", fname);
295 gw_log (GW_LOG_DEBUG, "main", "reading bib file %s", fname);
296 ccl_qual_file (info.bibset, bib_inf);
300 sprintf (resource_name, "gw.target.%s", info.target);
301 if (*info.target && ! gw_res_get (info.kernel_res, resource_name, NULL))
303 /* target is there, and there is no sub-resource for it... */
306 if ((split = strchr (info.target, ':')))
308 strncpy (info.hostname, info.target, sizeof(info.hostname)-1);
310 info.port = atoi (split);
312 info.port = atoi (gw_res_get
313 (info.kernel_res, "gw.portno", "210"));
317 strncpy (info.hostname, gw_res_get (info.kernel_res,
318 "gw.hostname", "localhost"),
319 sizeof(info.hostname)-1);
320 info.port = atoi (gw_res_get (info.kernel_res,
321 "gw.portno", "210"));
324 free (info.databases);
325 v = gw_res_get (info.kernel_res, "gw.databases", "");
326 info.databases = gw_strdup (v);
327 for (cp = info.databases; (cp = strchr (cp, ' ')); cp++)
329 if (info.override_portno)
330 info.port = atoi (info.override_portno);
331 if (info.override_hostname)
332 strncpy (info.hostname, info.override_hostname,
333 sizeof(info.hostname)-1);
337 v = gw_res_get (info.kernel_res, "gw.fml", "default.fml");
338 sprintf (fname, "%s/%s", path_prefix, v);
339 fml_inf = fopen (fname, "r");
341 gw_log (GW_LOG_WARN, "main", "cannot open fml script %s", fname);
344 info.fml = fml_open ();
345 info.fml->read_func = fml_inf_read;
346 info.fml->write_func = fml_inf_write;
347 fml_preprocess (info.fml);