Return to emstats.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / bsc / cmd / 3270

Annotation of cci/usr/src/usr.bin/bsc/cmd/3270/emstats.c, revision 1.1.1.1

1.1       root        1: /*     D.L.Buck and Associates, Inc. - May, 1984
                      2:  *
                      3:  *     COPYRIGHT NOTICE:
                      4:  *             Copyright c 1984 - An unpublished work by 
                      5:  *             D.L.Buck and Associates, Inc.
                      6:  *
                      7:  *     PROPRIETARY RIGHTS NOTICE:
                      8:  *             All rights reserved. This document and program contains
                      9:  *             proprietary information of D.L.Buck and Associates,Inc.
                     10:  *             of San Jose, California, U.S.A., embodying confidential
                     11:  *             information,  ideas, and expressions,  no part of which
                     12:  *             may be reproduced, or transmitted in any form or by any
                     13:  *             means,  electronic,  mechanical,  or otherwise, without
                     14:  *             the written permission of D.L.Buck and Associates, Inc.
                     15:  * NAME
                     16:  *     emstats
                     17:  *
                     18:  * SYNOPSIS
                     19:  *     emstats()
                     20:  *
                     21:  * DESCRIPTION
                     22:  *     This routine computes current statistics for this 327x session,
                     23:  *     and displays them on cmd_scr. Statistics include number of blocks
                     24:  *     sent and received, total elapsed time for this session, and average
                     25:  *     response time.
                     26:  */
                     27: 
                     28: #include <em.h>
                     29: 
                     30: extern int tb_ctr;
                     31: extern int rb_ctr;
                     32: extern long lrsp_tm;
                     33: extern long rsp_tm;
                     34: extern int rsp_ctr;
                     35: extern long trax_tm;
                     36: extern long ltrax_tm;
                     37: extern int trax_ctr;
                     38: 
                     39: static char sccsid[] = "@(#)emstats.c  1.6 ";
                     40: 
                     41: emstats(wr_aud)
                     42: int wr_aud;    /* 1=write stat msg to AUDIT; 0=don't write stat msg to AUDIT */
                     43: {
                     44:        char statline[100];
                     45:        long trsecs = 0L;
                     46:        long ttsecs = 0L;
                     47: 
                     48:        if (rsp_ctr) trsecs = rsp_tm/(long)rsp_ctr;
                     49:        if (trax_ctr) ttsecs = trax_tm/(long)trax_ctr;
                     50:        trsecs /= 6L;   /* Avg response, tenths of seconds */
                     51:        ttsecs /= 6L;   /* Avg transaction, tenths of seconds */
                     52:        lrsp_tm /= 6L;  /* Last response, tenths of seconds */
                     53:        ltrax_tm /= 6L; /* Last transaction, tenths of seconds */
                     54: 
                     55: /* construct statistics string */
                     56:        sprintf(statline,
                     57: "AvgTR=%ld.%ld,TT=%ld.%ld;LastTR=%ld.%ld,TT=%ld.%ld;Blks:%d sent,%d Rcvd",
                     58:                trsecs/10,trsecs%10,ttsecs/10,ttsecs%10,
                     59:                lrsp_tm/10,lrsp_tm%10, ltrax_tm/10,ltrax_tm%10,
                     60:                tb_ctr, rb_ctr);
                     61: 
                     62: /* add strings to cmd_scr */
                     63:        wstandout(cmd_scr);
                     64:        wmove(cmd_scr,0,0);
                     65:        wclear(cmd_scr);
                     66:        mvwaddstr(cmd_scr,0,0,statline);
                     67:        wrefresh(cmd_scr);
                     68: 
                     69: /* write to audit */
                     70:        if (wr_aud)     {
                     71:                sprintf(statline,
                     72:                "Average response time: %ld.%ld seconds; average transaction time %ld.%ld seconds",
                     73:                trsecs/10, trsecs%10, ttsecs/10, ttsecs%10);
                     74:                write_aud("T",statline);
                     75:                sprintf(statline,
                     76:                "Total blocks received: %d; total blocks transmitted: %d",
                     77:                rb_ctr, tb_ctr);
                     78:                write_aud("T",statline);
                     79:        }
                     80: }

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