Collection of Internet/Collection of Internet.iso/msdos/lynx/source/wattcp/apps/tcpinfo.c

C/C++ Source or Header | 1994-10-25 | 5.8 KB | 208 lines

/******************************************************************************

    TCPINFO - display configuration info to the screen

    Copyright (C) 1991, University of Waterloo
    portions Copyright (C) 1990, National Center for Supercomputer Applications

    This program is free software; you can redistribute it and/or modify
    it, but you may not sell it.

    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.

        Erick Engelke                   or via E-Mail
        Faculty of Engineering
        University of Waterloo          [e-mail]
        200 University Ave.,
        Waterloo, Ont., Canada
        N2L 3G1

******************************************************************************/

#include <stdio.h>
#include <stdarg.h>
#include <string.h>
#include <tcp.h>

mprintf( char *format, ... )
{
    static linecount = 1;

    char buffer[ 512 ];
    char *s, *p, pchar;
    va_list *argptr;

    va_start( argptr, format );
    vsprintf( s = buffer, format, argptr );
    va_end( argptr );

    do {
    if ( p = strchr( s, '\n' )) {
        pchar = *(++p);
        *p = 0;
    }

    fputs( s , stdout );

    if ( s = p ) {
        *s = pchar;
        if (++linecount == 24 ) {
        fputs( "<press any key to continue>", stdout);
        getch();
        fputs("\r\r", stdout);
        clreol();
        linecount = 1;
        }
    }
    } while ( s );
}


int unused = 0;
int extrahelp = 0;
static void (*other)();
static void mine(char *name, char *value)
{
    if ( !extrahelp ) {
    unused = 1;
    return;
    }

    if (!unused) {
    unused = 1;
    mprintf("\nSome extra parameters were found in your configuration file.");
    mprintf("These values may be extensions used by applications, but are");
    mprintf("not used by the Waterloo TCP kernal.\n");
    }
    mprintf("   unknown: %s = %s\n", name,value );
}

/* undocumented */
extern byte _eth_addr[];
extern word _pktdevclass;
extern word _mss;
extern longword _bootphost;
extern word _bootptimeout;
extern word _bootpon;
extern word _arp_last_gateway;
extern longword _arp_gate_data[];
extern word _last_nameserver;
extern word multihomes;


char buffer[ 512 ], buf2[512];


main( int argc, char **argv)
{
    int i;

    while ( argc > 1 ) {
    if ( argc == 2 )
        if (!stricmp( argv[ 1 ], "ALL")) {
        extrahelp = 1;
        break;
        }
    mprintf("TCPINFO [ALL]");
    exit( 3 );
    }

    mprintf("Reading Waterloo TCP configuration file.\n");

    other = usr_init;
    usr_init = mine;
    _survivebootp = 1;    /* needed to not exit if bootp fails */

    sock_init();

    if ( unused && extrahelp )
    mprintf("\nThat is the end of the extra parameters\n");

    switch ( _pktdevclass ) {
    case 1 : mprintf("\nEthernet Address : %hx:%hx:%hx:%hx:%hx:%hx\n",
             _eth_addr[0], _eth_addr[1], _eth_addr[2],
             _eth_addr[3], _eth_addr[4], _eth_addr[5] );
         break;
    case 6 : mprintf("Protocol         : SLIP");
         break;
    }


    if (multihomes)
        mprintf("\nIP Addresses     : %s - %s\n", inet_ntoa( buf2, gethostid()),
            inet_ntoa( buffer, gethostid()+multihomes));
    else
        mprintf("\nIP Address       : %s\n", inet_ntoa( buffer, gethostid()));
    mprintf("Network Mask     : %s\n\n", inet_ntoa( buffer, sin_mask ));

    mprintf("Gateways         : ");
    if ( ! _arp_last_gateway ) mprintf("NONE");
    else mprintf("GATEWAY'S IP     SUBNET           SUBNET MASK\n");

    for ( i = 0 ; i < _arp_last_gateway * 3;) {
    printf("                 : %-15s  ", inet_ntoa(buffer,_arp_gate_data[i++] ));
    if ( !_arp_gate_data[i] ) {
        mprintf("DEFAULT\n\r");
        i += 2;
    } else {
        mprintf("%-15s  ", inet_ntoa(buffer,_arp_gate_data[i++]));
        mprintf("%-15s\n", inet_ntoa(buffer,_arp_gate_data[i++]));
    }
    }
    mprintf("\n");

    if ( gethostname( NULL, 0 ) ) {
    mprintf("Host name        : %s", gethostname(NULL, 0));
    if ( getdomainname( NULL, 0))
        mprintf(".%s", getdomainname( NULL, 0));
    mprintf("\n");
    }

    mprintf("Cookieserver%c    : ", ( _last_cookie < 2 ) ? ' ' : 's');
    if ( !_last_cookie ) mprintf("NONE DEFINED\n");

    for ( i = 0 ; i < _last_cookie ; ++i ) {
    if (i) mprintf("                 : ");
    mprintf("%s\n", inet_ntoa( buffer, _cookie[i] ));
    }
    mprintf("\n");

    mprintf("Nameserver%c      : ", ( _last_nameserver < 2 ) ? ' ' : 's');
    if ( !_last_nameserver ) mprintf("NONE DEFINED\n\n");

    for ( i = 0 ; i < _last_nameserver ; ++i ) {
    if (i) mprintf("                 : ");
    mprintf("%s\n", inet_ntoa( buffer, def_nameservers[i] ));
    }
    mprintf("Domain           : \"%s\"\n\n", getdomainname( NULL, 0));

    if (_bootpon || extrahelp ) {
    mprintf("BOOTP            : %s\n", (_bootpon) ? "USED": "NOT USED");
    if (_bootpon) mprintf("                 : %s\n", gethostid() ?
        "SUCCEEDED" : "FAILED" );

    mprintf("BOOTP Server     : %s\n", ( _bootphost == 0xffffffffL ) ?
        "BROADCAST" :
        inet_ntoa( buffer, _bootphost ));
    mprintf("BOOTP Timeout    : %i seconds\n\n", _bootptimeout );
    }

    if (extrahelp) {
    mprintf("Default Timeout  : %u seconds\n", sock_delay );
    mprintf("Max Seg Size MSS : %u bytes\n\n", _mss );
    debugpsocketlen();
    }

    if ( unused && !extrahelp ) {
        mprintf("\nAdditional non-standard parameters were found in your configuration file\n");
        mprintf("If you would like to see them, try the command:\n");
        mprintf("    TCPINFO ALL\n");
    } else if ( !extrahelp ) {
        mprintf("\nAdditional but more obscure information can be found using the command:\n");
        mprintf("    TCPINFO ALL\n");
    }
    exit( 0 );
}