5 * Revision 1.2 1995/02/16 13:21:00 adam
6 * Organization of resource files for targets and conversion
7 * language implemented.
9 * Revision 1.1 1995/02/15 17:45:29 adam
10 * First version of email gateway kernel. Email requests are read
11 * from stdin. The output is transferred to an MTA if 'From' is
12 * found in the header - or stdout if absent. No Z39.50 client is used.
21 GwRes kernel_res = NULL;
22 const char *default_res = "default.res";
23 const char *target = NULL;
24 const char *lang = NULL;
25 CCL_bibset bibset = NULL;
27 FILE *reply_fd = stdout;
29 int main (int argc, char **argv)
32 kernel_res = gw_res_init ();
40 gw_log_level (GW_LOG_ALL);
52 gw_log (GW_LOG_FATAL, "main", "missing target name");
66 gw_log (GW_LOG_FATAL, "main", "missing language name");
71 gw_log (GW_LOG_FATAL, "main", "unknown option %s", *argv);
83 void read_kernel_res (void)
85 char path_prefix[128];
88 char resource_name[256];
90 bibset = ccl_qual_mk ();
92 gw_log (GW_LOG_DEBUG, "main", "reading kernel resource, default %s",
95 gw_log (GW_LOG_DEBUG, "main", "reading kernel resource, target %s",
98 gw_log (GW_LOG_DEBUG, "main", "reading kernel resource, lang %s",
101 gw_res_close (kernel_res);
102 kernel_res = gw_res_init ();
103 if (gw_res_merge (kernel_res, default_res))
105 gw_log (GW_LOG_WARN, "main", "Couldn't read resource file %s",
109 strcpy (path_prefix, gw_res_get (kernel_res, "gw.path", "."));
113 sprintf (resource_name, "gw.target.%s", target);
114 v = gw_res_get (kernel_res, resource_name, NULL);
117 sprintf (fname, "%s/%s", path_prefix, v);
118 gw_res_merge (kernel_res, fname);
123 sprintf (resource_name, "gw.lang.%s", lang);
124 v = gw_res_get (kernel_res, resource_name, NULL);
127 sprintf (fname, "%s/%s", path_prefix, v);
128 gw_res_merge (kernel_res, fname);
131 v = gw_res_get (kernel_res, "gw.bibset", NULL);
136 sprintf (fname, "%s/%s", path_prefix, v);
137 bib_inf = fopen (fname, "r");
139 gw_log (GW_LOG_WARN, "main", "cannot open %s", fname);
142 gw_log (GW_LOG_DEBUG, "main", "reading bib file %s", fname);
143 ccl_qual_file (bibset, bib_inf);