/***************************************************************************** * * $Id$ * Purpose ...............: Fidonet mailer * ***************************************************************************** * Copyright (C) 1997-2003 * * Michiel Broek FIDO: 2:280/2802 * Beekmansbos 10 * 1971 BV IJmuiden * the Netherlands * * This file is part of MBSE BBS. * * This BBS 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, or (at your option) any * later version. * * MBSE BBS 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 MBSE BBS; see the file COPYING. If not, write to the Free * Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. *****************************************************************************/ #include "../config.h" #include "../lib/libs.h" #include "../lib/structs.h" #include "../lib/users.h" #include "../lib/records.h" #include "../lib/common.h" #include "../lib/nodelist.h" #include "../lib/clcomm.h" #include "../lib/dbnode.h" #include "../lib/mberrors.h" #include "session.h" #include "callstat.h" #include "call.h" #include "config.h" #include "dial.h" #include "lutil.h" #include "portsel.h" #include "openport.h" #include "opentcp.h" #include "rdoptions.h" #include "inbound.h" extern int tcp_mode; extern int immediatecall; extern char *forcedphone; extern char *forcedline; extern char *inetaddr; extern char *protocol; int portopen(faddr *addr) { char *p; int rc; if (inetaddr) { Syslog('d', "portopen inetaddr %s", inetaddr); if ((rc = opentcp(inetaddr))) { Syslog('+', "Cannot connect %s", inetaddr); nodeulock(addr); return MBERR_NO_CONNECTION; } return MBERR_OK; } if (forcedline) { Syslog('d', "portopen forcedline %s", forcedline); p = forcedline; strncpy(history.tty, p, 6); if (load_port(p)) { if ((rc = openport(p, ttyinfo.portspeed))) { Syslog('+', "Cannot open port %s",p); nodeulock(addr); putstatus(addr, 10, MBERR_PORTERROR); return MBERR_PORTERROR; } return MBERR_OK; } else { nodeulock(addr); putstatus(addr, 0, MBERR_PORTERROR); return MBERR_PORTERROR; } } WriteError("No call method available, maybe missing parameters"); return MBERR_NO_CONNECTION; } int call(faddr *addr) { int rc = 1; char *p, temp[81]; unsigned long cmmask; /* * Don't call points, call their boss instead. */ addr->point = 0; /* * First check if node is locked, if not lock it immediatly * or stop further waste of time and logfile space. */ if (nodelock(addr)) { Syslog('+', "System %s is locked", ascfnode(addr, 0x1f)); putstatus(addr, 0, MBERR_NODE_LOCKED); return MBERR_NODE_LOCKED; } if ((nlent = getnlent(addr)) == NULL) { WriteError("Cannot call %s: fatal in nodelist lookup", ascfnode(addr, 0x1f)); putstatus(addr,0,MBERR_NODE_NOT_IN_LIST); nodeulock(addr); return MBERR_NODE_NOT_IN_LIST; } /* * Load the noderecord if the node is in the setup. */ noderecord(addr); rdoptions(TRUE); cmmask = getCMmask(); /* * Fill default history info in case we get a FTS0001 session */ strncpy(history.system_name, nlent->name, 35); strncpy(history.location, nlent->location, 35); strncpy(history.sysop, nlent->sysop, 35); history.aka.zone = addr->zone; history.aka.net = addr->net; history.aka.node = addr->node; history.aka.point = addr->point; if (addr->domain && strlen(addr->domain)) sprintf(history.aka.domain, "%s", addr->domain); /* * Extract the protocol from the URL. */ strncpy(temp, nlent->url, 80); p = strchr(temp, ':'); *p = '\0'; protocol = xstrcpy(temp); if (strcasecmp(protocol, "pots") && strcasecmp(protocol, "isdn")) { if (!inetaddr) { /* * Get the internet address from the URL. */ p = strchr(nlent->url, '/'); p++; p++; inetaddr = xstrcpy(p); } RegTCP(); if (tcp_mode == TCPMODE_NONE) { if (strcmp(protocol, "binkp") == 0) { tcp_mode = TCPMODE_IBN; } else if (strcmp(protocol, "fido") == 0) { tcp_mode = TCPMODE_IFC; } else { Syslog('+', "No common TCP/IP protocols for node %s", nlent->name); free(inetaddr); inetaddr = NULL; } } if (inetaddr == NULL) { WriteError("No IP address, abort call"); rc = MBERR_NO_IP_ADDRESS; putstatus(addr, 10, rc); nodeulock(addr); return rc; } } else { if (!forcedphone) { /* * Get the phone number from the URL. */ p = strchr(nlent->url, '/'); p++; p++; forcedphone = xstrcpy(p); } } if (((nlent->oflags & cmmask) == 0) && (!IsZMH())) { Syslog('?', "Warning: calling non-CM system outside ZMH"); } inbound_open(addr, TRUE); /* master sessions are secure */ /* * Call when: * there is a phone number and node is not down, hold or pvt * or * there is a fqdn/ip-address and node is not down or hold * and * nocall is false */ if (((forcedphone && ((nlent->pflag & (NL_DUMMY | NL_DOWN | NL_HOLD | NL_PVT)) == 0)) || (inetaddr && ((nlent->pflag & (NL_DUMMY | NL_DOWN | NL_HOLD)) == 0))) && ((localoptions & NOCALL) == 0)) { Syslog('+', "Calling %s (%s, phone %s)", ascfnode(addr,0x1f), nlent->name, forcedphone); IsDoing("Call %s", ascfnode(addr, 0x0f)); rc = portopen(addr); if ((rc == MBERR_OK) && (forcedphone)) { if ((rc = dialphone(forcedphone))) { Syslog('+', "Dial failed"); nodeulock(addr); } } if (rc == MBERR_OK) { if (!inetaddr) nolocalport(); if (tcp_mode == TCPMODE_IBN) rc = session(addr,nlent,SESSION_MASTER,SESSION_BINKP,NULL); else rc = session(addr,nlent,SESSION_MASTER,SESSION_UNKNOWN,NULL); } IsDoing("Disconnect"); if (inetaddr) { closetcp(); } else { hangup(); localport(); closeport(); if (strlen(modem.info)) { /* * If mode info string defined, open port again to get * the aftercall information. Mostly used with ISDN. */ portopen(addr); aftercall(); closeport(); } } } else { IsDoing("NoCall"); Syslog('+', "Cannot call %s (%s)", ascfnode(addr,0x1f), MBSE_SS(nlent->name)); rc = MBERR_NO_CONNECTION; putstatus(addr, 10, rc); nodeulock(addr); return rc; } if ((rc == MBERR_NOT_ZMH) || (rc == MBERR_SESSION_ERROR)) /* Session error */ putstatus(addr, 5, rc); else if ((rc == MBERR_NO_CONNECTION) || (rc == MBERR_UNKNOWN_SESSION) || (rc == MBERR_FTRANSFER)) putstatus(addr,1,rc); else putstatus(addr,0,rc); return rc; }