/*
   Copyright (C) 2003  Ferdi Franceschini <ferdif@optusnet.com.au>

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

/*! \file
 * Access functions for  ~/.dillo/dpi_socket_dir.
 * The most useful function for dillo is a_Dpi_srs, it returns
 * the full path to the dpid service request socket.
 */

#include <errno.h>
#include <glib.h>
#include "dpid_common.h"
#include "dpi.h"
#include "misc_new.h"

/*! \Return
 * Returns path to the dpi_socket_dir file
 * Use g_free to free memory
 */
char *a_Dpi_sockdir_file(void)
{
   char *dpi_socket_dir = NULL, *dirfile_path = "/.dillo/dpi_socket_dir";

   dpi_socket_dir = g_strconcat(a_Misc_get_home(), dirfile_path, NULL);
   return dpi_socket_dir;
}

/*! Read socket directory path from ~/.dillo/dpi_socket_dir
 * \Return
 * socket directory path or NULL if the dpi_socket_dir file does not exist.
 * \Note
 * This function exits if ~/.dillo does not exist or
 * if the dpi_socket_dir file cannot be opened for a
 * reason other than it does not exist.
 */

char *a_Dpi_rd_dpi_socket_dir(char *dirname)
{
   FILE *dir;
   char *sockdir = NULL, *rcpath;

   rcpath = g_strconcat(a_Misc_get_home(), "/.dillo", NULL);

   /* If .dillo does not exist it is an unrecoverable error */
   if (access(rcpath, F_OK) == -1) {
      ERRMSG("a_Dpi_rd_dpi_socket_dir", "access", errno);
      fprintf(stderr, " - %s\n", rcpath);
      exit(1);
   }
   g_free(rcpath);

   if ((dir = fopen(dirname, "r")) != NULL) {
      sockdir = a_Misc_get_line(dir);
      fclose(dir);
   } else if (errno == ENOENT) {
      ERRMSG("a_Dpi_rd_dpi_socket_dir", "fopen", errno);
      fprintf(stderr, " - %s\n", dirname);
   } else if (errno != ENOENT) {
      ERRMSG("a_Dpi_rd_dpi_socket_dir", "fopen", errno);
      fprintf(stderr, " - %s\n", dirname);
      exit(1);
   }

   return sockdir;
}

/*!
 * \Modifies
 * srs_name
 * \Return
 * The service request socket name with its complete path.
 */
char *a_Dpi_srs(void)
{
   char *dirfile_path, *sockdir, *srs_name;

   dirfile_path = a_Dpi_sockdir_file();
   sockdir = g_strstrip(a_Dpi_rd_dpi_socket_dir(dirfile_path));
   srs_name = g_strconcat(sockdir, "/", "dpid.srs", NULL);
   g_free(sockdir);
   g_free(dirfile_path);
   return (srs_name);
}