listen defaults to service "wydawca"

1 files changed, 6 insertions, 1 deletions

diff --git a/src/config.c b/src/config.c
index b6e2533..5f75f89 100644
--- a/src/config.c
+++ b/src/config.c
@@ -328,7 +328,7 @@ cb_absolute_name (enum gconf_callback_command cmd,
   if (assert_string_arg (locus, cmd, value))
     return 1;
 
-  word = safe_file_name (value->v.string);
+  word = safe_file_name ((char*)value->v.string);
   if (!word || word[0] != '/')
     gconf_error (locus, 0, _("must be an absolute file name"));
   else
@@ -1403,6 +1403,7 @@ void
 config_init()
 {
   int i;
+  struct servent *serv;
 
   gconf_set_keywords (wydawca_kw);
   gconf_include_path_setup (DEFAULT_VERSION_INCLUDE_DIR,
@@ -1410,6 +1411,10 @@ config_init()
   gconf_preprocessor = DEFAULT_PREPROCESSOR;
   gconf_log_to_stderr = true;
 
+  serv = getservbyname (PACKAGE, "tcp");
+  if (serv != NULL)
+    gconf_default_port = serv->s_port;
+  
   for (i = 0; i < access_method_count; i++)
     default_access_method[i] = method_new (i, method_builtin);
 }