Return to hangup.c CVS log

Up to [MW Coherent from dump] / coherent / a / usr / bob / uusrc / modemcap

Annotation of coherent/a/usr/bob/uusrc/modemcap/hangup.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *  hangup.c
                      3:  */
                      4: 
                      5: /* hangup is called by sysend() to hangup the modem. Hangup then calls
                      6:  * undial() to remove any remote device lock files and to re enable
                      7:  * a previously disabled port. Bob H. 11/22/91.
                      8:  */
                      9: 
                     10: #include "dcp.h"
                     11: #include "modemcap.h"
                     12: 
                     13: hangup (fd)
                     14: int    fd;
                     15: {
                     16:        if ( (HU == NULL) && (HC == 0) ) {
                     17:                printmsg(M_DEBUG,"hangup: (level1) about to drop line.");
                     18:                undial(fd);
                     19:                return(0);
                     20:        }
                     21: 
                     22:        if (AT != (char *) 0) {
                     23: 
                     24:        /* guard time for modem. Before sending the +++ to the modem to put
                     25:         * it in command mode, there must be some delay between the real data
                     26:         * and the AT string for it to work.
                     27:         */
                     28:                sleep (3);
                     29:                write (fd, AT, strlen (AT));
                     30:                if (AD)
                     31:                        sleep (AD);
                     32:        }
                     33:        if (HU) {
                     34:                if (CS) {
                     35:                        write (fd, CS, strlen (CS));
                     36:                }
                     37:                write (fd, HU, strlen (HU));
                     38:                if (CE) {
                     39:                        write (fd, CE, strlen (CE));
                     40:                }
                     41:                if (IS) {
                     42:                        write (fd, IS, strlen (IS));
                     43:                        if (ID)
                     44:                                sleep (ID);
                     45:                }
                     46:                printmsg(M_DEBUG,"hangup: (level2) about to drop line.");
                     47:                undial (fd);
                     48:                return (1);
                     49:        }
                     50:        printmsg(M_DEBUG,"hangup: (level3) about to drop line.");
                     51:        undial(fd);
                     52:        ttyexit(fd);
                     53:        return(1);
                     54: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.