5 * Revision 1.4 1995/02/17 17:06:16 adam
8 * Revision 1.3 1995/02/16 18:35:09 adam
9 * First use of Zdist library. Search requests are supported.
10 * Present requests are not supported yet.
12 * Revision 1.2 1995/02/16 13:21:00 adam
13 * Organization of resource files for targets and conversion
14 * language implemented.
16 * Revision 1.1 1995/02/15 17:45:29 adam
17 * First version of email gateway kernel. Email requests are read
18 * from stdin. The output is transferred to an MTA if 'From' is
19 * found in the header - or stdout if absent. No Z39.50 client is used.
30 FILE *reply_fd = stdout;
32 struct gw_kernel_info info;
34 int main (int argc, char **argv)
36 info.kernel_res = NULL;
37 info.default_res = "default.res";
38 info.override_res = NULL;
43 info.override_portno = NULL;
44 info.override_hostname = NULL;
45 info.databases = NULL;
48 info.kernel_res = gw_res_init ();
56 gw_log_level (GW_LOG_ALL);
60 strcpy (info.target, argv[0]+2);
64 strcpy (info.target, *++argv);
68 gw_log (GW_LOG_FATAL, "main", "missing target name");
74 info.lang = argv[0]+2;
82 gw_log (GW_LOG_FATAL, "main", "missing language name");
88 info.override_res = argv[0]+2;
92 info.override_res = *++argv;
96 gw_log (GW_LOG_FATAL, "main", "missing language name");
102 info.override_portno = argv[0]+2;
106 info.override_portno = *++argv;
110 gw_log (GW_LOG_FATAL, "main", "missing portno");
116 info.override_hostname = argv[0]+2;
120 info.override_hostname = *++argv;
124 gw_log (GW_LOG_FATAL, "main", "missing hostname");
130 gw_log_file (GW_LOG_ALL, argv[0]+2);
134 gw_log_file (GW_LOG_ALL, *++argv);
138 gw_log (GW_LOG_FATAL, "main", "missing log filename");
143 gw_log (GW_LOG_FATAL, "main", "unknown option %s", *argv);
148 info.default_res = *argv;
155 void read_kernel_res (void)
157 char path_prefix[128];
161 char resource_name[256];
164 ccl_qual_rm (&info.bibset);
165 info.bibset = ccl_qual_mk ();
168 gw_res_close (info.kernel_res);
169 info.kernel_res = gw_res_init ();
171 gw_log (GW_LOG_DEBUG, "main", "reading kernel resource, default %s",
174 gw_log (GW_LOG_DEBUG, "main", "reading kernel resource, target %s",
177 gw_log (GW_LOG_DEBUG, "main", "reading kernel resource, lang %s",
180 if (gw_res_merge (info.kernel_res, info.default_res))
182 gw_log (GW_LOG_WARN, "main", "Couldn't read resource file %s",
186 strcpy (path_prefix, gw_res_get (info.kernel_res, "gw.path", "."));
190 sprintf (resource_name, "gw.target.%s", info.target);
191 v = gw_res_get (info.kernel_res, resource_name, NULL);
194 sprintf (fname, "%s/%s", path_prefix, v);
195 gw_res_merge (info.kernel_res, fname);
200 sprintf (resource_name, "gw.lang.%s", info.lang);
201 v = gw_res_get (info.kernel_res, resource_name, NULL);
204 sprintf (fname, "%s/%s", path_prefix, v);
205 gw_res_merge (info.kernel_res, fname);
208 if (info.override_res)
210 sprintf (fname, "%s/%s", path_prefix, info.override_res);
211 gw_res_merge (info.kernel_res, fname);
213 v = gw_res_get (info.kernel_res, "gw.bibset", NULL);
218 sprintf (fname, "%s/%s", path_prefix, v);
219 bib_inf = fopen (fname, "r");
221 gw_log (GW_LOG_WARN, "main", "cannot open %s", fname);
224 gw_log (GW_LOG_DEBUG, "main", "reading bib file %s", fname);
225 ccl_qual_file (info.bibset, bib_inf);
229 sprintf (resource_name, "gw.target.%s", info.target);
230 if (*info.target && ! gw_res_get (info.kernel_res, resource_name, NULL))
232 /* target is there, and there is no sub-resource for it... */
235 if ((split = strchr (info.target, ':')))
237 strncpy (info.hostname, info.target, sizeof(info.hostname)-1);
239 info.port = atoi (split);
241 info.port = atoi (gw_res_get
242 (info.kernel_res, "gw.portno", "210"));
246 strncpy (info.hostname, gw_res_get (info.kernel_res,
247 "gw.hostname", "localhost"),
248 sizeof(info.hostname)-1);
249 info.port = atoi (gw_res_get (info.kernel_res,
250 "gw.portno", "210"));
253 free (info.databases);
254 v = gw_res_get (info.kernel_res, "gw.databases", "Default");
255 info.databases = malloc (1+strlen(v));
256 assert (info.databases);
257 strcpy (info.databases, v);
258 for (cp = info.databases; (cp = strchr (cp, ' ')); cp++)
260 if (info.override_portno)
261 info.port = atoi (info.override_portno);
262 if (info.override_hostname)
263 strncpy (info.hostname, info.override_hostname,
264 sizeof(info.hostname)-1);