/*
 * IRC - Internet Relay Chat, ircd/m_opermotd.c
 * Copyright (C) 1990 Jarkko Oikarinen and
 *                    University of Oulu, Computing Center
 *
 * See file AUTHORS in IRC package for additional names of
 * the programmers.
 *
 * 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 1, 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., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 * $Id: m_opermotd.c 796 2004-09-08 22:47:14Z r33d $
 */

#include "config.h"

#include "client.h"
#include "handlers.h"
#include "ircd.h"
#include "ircd_features.h"
#include "ircd_reply.h"
#include "ircd_snprintf.h"
#include "ircd_string.h"
#include "msg.h"
#include "numeric.h"
#include "s_serv.h"
#include "s_user.h"
#include "send.h"
#include "support.h"

#include <fcntl.h>
#include <unistd.h>

/*
 * opermotd_send()
 *  - Ported From Ultimate IRCd
 */
static int opermotd_send(struct Client* cptr) {
  int fd, nr;
  char line[80], omotd[1024], *tmp;

  alarm(3);
  ircd_snprintf(0, omotd, sizeof(omotd), "%s/%s", DPATH,
		feature_str(FEAT_OMPATH));
  fd = open(omotd, O_RDONLY);
  alarm(0);
  if (fd == -1)
    return 0;

  send_reply(cptr, RPL_OMOTDSTART, cli_name(&me));

  dgets (-1, NULL, 0);
  while ((nr = dgets (fd, line, sizeof (line) - 1)) > 0) {
    line[nr] = '\0';
    if ((tmp = (char *) index (line, '\n')))
      *tmp = '\0';
    if ((tmp = (char *) index (line, '\r')))
      *tmp = '\0';
    send_reply(cptr, RPL_OMOTD, line);
  }

  dgets (-1, NULL, 0);

  send_reply(cptr, RPL_ENDOFOMOTD);
  close(fd);

  return 0;
}

/*
 * m_opermotd - generic message handler
 *
 * parv[0] - sender prefix
 * parv[1] - servername
 *
 */
int m_opermotd(struct Client* cptr, struct Client* sptr, int parc, char* parv[])
{
  if (!feature_bool(FEAT_OPERMOTD))
    return 0;

  if (!IsAnOper(sptr)) {
      send_reply(sptr, ERR_NOPRIVILEGES);
      return 0;
  }

  if (hunt_server_cmd(sptr, CMD_OPERMOTD, cptr, feature_int(FEAT_HIS_REMOTE),
		      "%C", 1, parc, parv) != HUNTED_ISME)
    return 0;

  return opermotd_send(sptr);
}

/*
 * ms_opermotd - server message handler
 *
 * parv[0] - sender prefix
 * parv[1] - servername
 *
 */
int ms_opermotd(struct Client* cptr, struct Client* sptr, int parc, char* parv[])
{
  if (hunt_server_cmd(sptr, CMD_OPERMOTD, cptr, 0, "%C", 1, parc, parv) !=
      HUNTED_ISME)
    return 0;

  return opermotd_send(sptr);
}