home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / netinet / tcp_timer.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.1 KB  |  32 lines
  1. if (!defined &_TCP_TIMER) {
  2.     eval 'sub _TCP_TIMER {1;}';
  3.     eval 'sub TCPT_NTIMERS {4;}';
  4.     eval 'sub TCPT_REXMT {0;}';
  5.     eval 'sub TCPT_PERSIST {1;}';
  6.     eval 'sub TCPT_KEEP {2;}';
  7.     eval 'sub TCPT_2MSL {3;}';
  8.     eval 'sub TCP_TTL {30;}';
  9.     eval 'sub TCPTV_MSL {( 30* &PR_SLOWHZ);}';
  10.     eval 'sub TCPTV_SRTTBASE {0;}';
  11.     eval 'sub TCPTV_SRTTDFLT {( 3* &PR_SLOWHZ);}';
  12.     eval 'sub TCPTV_PERSMIN {( 5* &PR_SLOWHZ);}';
  13.     eval 'sub TCPTV_PERSMAX {( 60* &PR_SLOWHZ);}';
  14.     eval 'sub TCPTV_KEEP_INIT {( 75* &PR_SLOWHZ);}';
  15.     eval 'sub TCPTV_KEEP_IDLE {(120*60* &PR_SLOWHZ);}';
  16.     eval 'sub TCPTV_KEEPINTVL {( 75* &PR_SLOWHZ);}';
  17.     eval 'sub TCPTV_KEEPCNT {8;}';
  18.     eval 'sub TCPTV_MIN {( 1* &PR_SLOWHZ);}';
  19.     eval 'sub TCPTV_REXMTMAX {( 64* &PR_SLOWHZ);}';
  20.     eval 'sub TCP_LINGERTIME {120;}';
  21.     eval 'sub TCP_MAXRXTSHIFT {12;}';
  22.     if (defined &TCPTIMERS) {
  23.     }
  24.     eval 'sub TCPT_RANGESET {
  25.         local($tv, $value, $tvmin, $tvmax) = @_;
  26.         eval "{ ($tv) = ($value);  &if (($tv) < ($tvmin)) ($tv) = ($tvmin);  &else  &if (($tv) > ($tvmax)) ($tv) = ($tvmax); }";
  27.     }';
  28.     if (defined &KERNEL) {
  29.     }
  30. }
  31. 1;
  32.