开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 传真(Fax)编程 > 查看源码
xferfaxstats.sh.in
资源名称：hylafax-5.3.0.tar.gz　[点击查看]
上传用户：weiyuanprp
上传日期：2020-05-20
资源大小：1169k
文件大小：19k
源码类别：

传真(Fax)编程

开发平台：

C/C++

xferfaxstats.sh.in：源码内容
  1. #! @SCRIPT_SH@
  2. # $Id: xferfaxstats.sh.in,v 1.5 2008/06/18 05:12:47 faxguy Exp $
  3. #
  4. # HylaFAX Facsimile Software
  5. #
  6. # Copyright (c) 1990-1996 Sam Leffler
  7. # Copyright (c) 1991-1996 Silicon Graphics, Inc.
  8. # HylaFAX is a trademark of Silicon Graphics
  9. # 
  10. # Permission to use, copy, modify, distribute, and sell this software and 
  11. # its documentation for any purpose is hereby granted without fee, provided
  12. # that (i) the above copyright notices and this permission notice appear in
  13. # all copies of the software and related documentation, and (ii) the names of
  14. # Sam Leffler and Silicon Graphics may not be used in any advertising or
  15. # publicity relating to the software without the specific, prior written
  16. # permission of Sam Leffler and Silicon Graphics.
  17. # 
  18. # THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, 
  19. # EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY 
  20. # WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.  
  21. # 
  22. # IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
  23. # ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
  24. # OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  25. # WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF 
  26. # LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE 
  27. # OF THIS SOFTWARE.
  28. #
  30. #
  31. # Print Statistics about Transmitted Facsimile.
  32. #
  33. SPOOL=@SPOOL@
  34. . $SPOOL/bin/common-functions
  36. test -f $SPOOL/etc/setup.cache || {
  37.     cat<<EOF
  39. FATAL ERROR: $SPOOL/etc/setup.cache is missing!
  41. The file $SPOOL/etc/setup.cache is not present.  This
  42. probably means the machine has not been setup using the faxsetup(@MANNUM1_8@)
  43. command.  Read the documentation on setting up HylaFAX before you
  44. startup a server system.
  46. EOF
  47.     hfExit 1
  48. }
  49. . $SPOOL/etc/setup.cache
  51. FILES=
  52. SORTKEY=-sender # default is to sort by sender
  53. MAPNAMES=no # default is to not map email addresses (NIS)
  54. TODAY="`date +'%D %H:%M'`"
  55. AGE="360" # report statistics for last year
  56. SINCEDT=
  57. ENDDT=
  59. while [ x"$1" != x"" ] ; do
  60.     case $1 in
  61.     -send*|-csi|-dest*|-speed|-rate|-format|-job*|-dev*)
  62.     SORTKEY=$1;;
  63.     -nomap) MAPNAMES=no;;
  64.     -map)   MAPNAMES=yes;;
  65.     -age)   shift; AGE=$1;;
  66.     -since) shift; SINCEDT=$1;;
  67.     -end) shift; ENDDT=$1;;
  68.     -*)     echo "Usage: $0 [-sortkey] [-age days] [-since date] [-end date] [-nomap] [files]"; hfExit 1;;
  69.     *)     FILES="$FILES $1";;
  70.     esac
  71.     shift
  72. done
  73. if [ -z "$FILES" ]; then
  74.     FILES=$SPOOL/etc/xferfaxlog
  75. fi
  77. #
  78. # Construct awk rules to collect information according
  79. # to the desired sort key.  There are multiple rules for
  80. # each; to deal with the different formats that have
  81. # existed over time.
  82. #
  83. case $SORTKEY in
  84. -send*)
  85.     AWKRULES='
  86. $2 == "SEND" && NF == 9  { acct($3, $4, $7, $8, $5, $6, $9); }
  87. $2 == "SEND" && NF == 11 { acct($4, $5, $9, $10, $7, $8, $11); }
  88. $2 == "SEND" && NF == 12 { acct($5, $6, $10, $11, $8, $9, $12); }
  89. $2 == "SEND" && NF == 13 { acct($7, $8, $11, $12, getBR($10), getDF($10), $13); }
  90. $2 == "SEND" && NF == 14 { acct($7, $8, $11, $13, getBR($10), getDF($10), $14); }
  91. $2 == "SEND" && NF == 16 { acct($7, $8, $11, $13, getBR($10), getDF($10), $14); }
  92. $2 == "SEND" && NF == 17 { acct($7 " (" $17 ")", $8, $11, $13, getBR($10), getDF($10), $14); }
  93. $2 == "SEND" && NF == 18 { acct($7 " (" $18 ")", $8, $11, $13, getBR($10), getDF($10), $14); }
  94. $2 == "SEND" && NF == 19 { acct($7 " (" $18 ")", $8, $11, $13, getBR($10), getDFfromDCS($19), $14); }
  95. $2 == "SEND" && NF == 20 { acct($7 " (" $18 ")", $8, $11, $13, getBR($10), getDFfromDCS($19), $14); }
  96. '
  97.     KEYTITLE="Sender"
  98.     ;;
  99. -csi)
  100.     AWKRULES='
  101. $2 == "SEND" && NF == 9  { acct($4, $4, $7, $8, $5, $6, $9); }
  102. $2 == "SEND" && NF == 11 { acct($6, $5, $9, $10, $7, $8, $11); }
  103. $2 == "SEND" && NF == 12 { acct($7, $6, $10, $11, $8, $9, $12); }
  104. $2 == "SEND" && NF == 13 { acct($9, $8, $11, $12, getBR($10), getDF($10), $13); }
  105. $2 == "SEND" && NF == 14 { acct($9, $8, $11, $13, getBR($10), getDF($10), $14); }
  106. $2 == "SEND" && NF == 16 { acct($9, $8, $11, $13, getBR($10), getDF($10), $14); }
  107. $2 == "SEND" && NF == 17 { acct($9, $8, $11, $13, getBR($10), getDF($10), $14); }
  108. $2 == "SEND" && NF == 18 { acct($9, $8, $11, $13, getBR($10), getDF($10), $14); }
  109. $2 == "SEND" && NF == 19 { acct($9, $8, $11, $13, getBR($10), getDFfromDCS($19), $14); }
  110. $2 == "SEND" && NF == 20 { acct($9, $8, $11, $13, getBR($10), getDFfromDCS($19), $14); }
  111. '
  112.     KEYTITLE="CSI"
  113.     MAPNAMES=no
  114.     ;;
  115. -dest*)
  116.     AWKRULES='
  117. $2 == "SEND" && NF == 9  { acct($4, $4, $7, $8, $5, $6, $9); }
  118. $2 == "SEND" && NF == 11 { acct($5, $5, $9, $10, $7, $8, $11); }
  119. $2 == "SEND" && NF == 12 { acct($6, $6, $10, $11, $8, $9, $12); }
  120. $2 == "SEND" && NF == 13 { acct($8, $8, $11, $12, getBR($10), getDF($10), $13); }
  121. $2 == "SEND" && NF == 14 { acct($8, $8, $11, $13, getBR($10), getDF($10), $14); }
  122. $2 == "SEND" && NF == 16 { acct($8, $8, $11, $13, getBR($10), getDF($10), $14); }
  123. $2 == "SEND" && NF == 17 { acct($8, $8, $11, $13, getBR($10), getDF($10), $14); }
  124. $2 == "SEND" && NF == 18 { acct($8, $8, $11, $13, getBR($10), getDF($10), $14); }
  125. $2 == "SEND" && NF == 19 { acct($8, $8, $11, $13, getBR($10), getDFfromDCS($19), $14); }
  126. $2 == "SEND" && NF == 20 { acct($8, $8, $11, $13, getBR($10), getDFfromDCS($19), $14); }
  127. '
  128.     KEYTITLE="Destination"
  129.     MAPNAMES=no
  130.     ;;
  131. -speed|-rate)
  132.     AWKRULES='
  133. $2 == "SEND" && NF == 9  { acct($5, $4, $7, $8, $5, $6, $9); }
  134. $2 == "SEND" && NF == 11 { acct($7, $5, $9, $10, $7, $8, $11); }
  135. $2 == "SEND" && NF == 12 { acct($8, $6, $10, $11, $8, $9, $12); }
  136. $2 == "SEND" && NF == 13 { acct(getBR($10), $8, $11, $12, getBR($10), getDF($10), $13); }
  137. $2 == "SEND" && NF == 14 { acct(getBR($10), $8, $11, $13, getBR($10), getDF($10), $14); }
  138. $2 == "SEND" && NF == 16 { acct(getBR($10), $8, $11, $13, getBR($10), getDF($10), $14); }
  139. $2 == "SEND" && NF == 17 { acct(getBR($10), $8, $11, $13, getBR($10), getDF($10), $14); }
  140. $2 == "SEND" && NF == 18 { acct(getBR($10), $8, $11, $13, getBR($10), getDF($10), $14); }
  141. $2 == "SEND" && NF == 19 { acct(getBR($10), $8, $11, $13, getBR($10), getDFfromDCS($19), $14); }
  142. $2 == "SEND" && NF == 20 { acct(getBR($10), $8, $11, $13, getBR($10), getDFfromDCS($19), $14); }
  143. '
  144.     KEYTITLE="Speed"
  145.     MAPNAMES=no
  146.     ;;
  147. -format)
  148.     AWKRULES='
  149. $2 == "SEND" && NF == 9  { acct($6, $4, $7, $8, $5, $6, $9); }
  150. $2 == "SEND" && NF == 11 { acct($8, $5, $9, $10, $7, $8, $11); }
  151. $2 == "SEND" && NF == 12 { acct($9, $6, $10, $11, $8, $9, $12); }
  152. $2 == "SEND" && NF == 13 { acct(getDF($10), $8, $11, $12, getBR($10), getDF($10), $13); }
  153. $2 == "SEND" && NF == 14 { acct(getDF($10), $8, $11, $13, getBR($10), getDF($10), $14); }
  154. $2 == "SEND" && NF == 16 { acct(getDF($10), $8, $11, $13, getBR($10), getDF($10), $14); }
  155. $2 == "SEND" && NF == 17 { acct(getDF($10), $8, $11, $13, getBR($10), getDF($10), $14); }
  156. $2 == "SEND" && NF == 18 { acct(getDF($10), $8, $11, $13, getBR($10), getDF($10), $14); }
  157. $2 == "SEND" && NF == 19 { acct(getDF($10), $8, $11, $13, getBR($10), getDFfromDCS($19), $14); }
  158. $2 == "SEND" && NF == 20 { acct(getDF($10), $8, $11, $13, getBR($10), getDFfromDCS($19), $14); }
  159. '
  160.     KEYTITLE="Format"
  161.     MAPNAMES=no
  162.     ;;
  163. -job*)
  164.     AWKRULES='
  165. $2 == "SEND" && NF == 13 { acct($6, $8, $11, $12, getBR($10), getDF($10), $13); }
  166. $2 == "SEND" && NF == 14 { acct($6, $8, $11, $13, getBR($10), getDF($10), $14); }
  167. $2 == "SEND" && NF == 16 { acct($6, $8, $11, $13, getBR($10), getDF($10), $14); }
  168. $2 == "SEND" && NF == 17 { acct($6, $8, $11, $13, getBR($10), getDF($10), $14); }
  169. $2 == "SEND" && NF == 18 { acct($6, $8, $11, $13, getBR($10), getDF($10), $14); }
  170. $2 == "SEND" && NF == 19 { acct($6, $8, $11, $13, getBR($10), getDFfromDCS($19), $14); }
  171. $2 == "SEND" && NF == 20 { acct($6, $8, $11, $13, getBR($10), getDFfromDCS($19), $14); }
  172. '
  173.     KEYTITLE="JobTag"
  174.     MAPNAMES=no
  175.     ;;
  176. -dev*)
  177.     AWKRULES='
  178. $2 == "SEND" && NF == 13 { acct($4, $8, $11, $12, getBR($10), getDF($10), $13); }
  179. $2 == "SEND" && NF == 14 { acct($4, $8, $11, $13, getBR($10), getDF($10), $14); }
  180. $2 == "SEND" && NF == 16 { acct($4, $8, $11, $13, getBR($10), getDF($10), $14); }
  181. $2 == "SEND" && NF == 17 { acct($4, $8, $11, $13, getBR($10), getDF($10), $14); }
  182. $2 == "SEND" && NF == 18 { acct($4, $8, $11, $13, getBR($10), getDF($10), $14); }
  183. $2 == "SEND" && NF == 19 { acct($4, $8, $11, $13, getBR($10), getDFfromDCS($19), $14); }
  184. $2 == "SEND" && NF == 20 { acct($4, $8, $11, $13, getBR($10), getDFfromDCS($19), $14); }
  185. '
  186.     KEYTITLE="Device"
  187.     MAPNAMES=no
  188.     ;;
  189. esac
  191. #
  192. # Generate an awk program to process the statistics file.
  193. #
  194. SetupPrivateTmp
  195. tmpAwk=$TMPDIR/xferfax$$
  197. ($CAT<<'EOF'
  198. #
  199. # Setup date conversion data structures.
  200. #
  201. function setupDateTimeStuff()
  202. {
  203.     daysInMonth[ 0] = 31; daysInMonth[ 1] = 28; daysInMonth[ 2] = 31;
  204.     daysInMonth[ 3] = 30; daysInMonth[ 4] = 31; daysInMonth[ 5] = 30;
  205.     daysInMonth[ 6] = 31; daysInMonth[ 7] = 31; daysInMonth[ 8] = 30;
  206.     daysInMonth[ 9] = 31; daysInMonth[10] = 30; daysInMonth[11] = 31;
  208.     FULLDAY = 24 * 60 * 60;
  209. }
  211. #
  212. # Convert hh:mm:ss to seconds.
  213. #
  214. function cvtTime(s)
  215. {
  216.     t = i = 0;
  217.     for (n = split(s, a, ":"); i++ < n; )
  218. t = t*60 + a[i];
  219.     return t;
  220. }
  222. #
  223. # Convert MM/DD/YY hh:mm to seconds.
  224. # NB: this does not deal with leap years.
  225. #
  226. function cvtDateTime(s)
  227. {
  228.     yday = substr(s,7,2)
  229.     if (yday < 70)
  230.         yday += 30;
  231.     else
  232.         yday -= 70;
  233.     yday = yday*365 + substr(s,4,2) - 1;
  234.     mon = substr(s,1,2) - 1;
  235.     for (i = 0; i < mon; i++)
  236. yday += daysInMonth[i];
  237.     return yday*FULLDAY + cvtTime(substr(s,10) ":00");
  238. }
  240. function setupDigits()
  241. {
  242.   digits[0] = "0"; digits[1] = "1"; digits[2] = "2";
  243.   digits[3] = "3"; digits[4] = "4"; digits[5] = "5";
  244.   digits[6] = "6"; digits[7] = "7"; digits[8] = "8";
  245.   digits[9] = "9";
  246. }
  248. #
  249. # Format seconds as hh:mm:ss.
  250. #
  251. function fmtTime(t)
  252. {
  253.     v = int(t/3600);
  254.     result = "";
  255.     if (v > 0) {
  256. t -= v*3600;
  257.         result = v ":"
  258.     }
  259.     v = int(t/60);
  260.     if (v >= 10 || result != "")
  261. result = result digits[int(v/10)];
  262.     result = result digits[int(v%10)];
  263.     t -= v*60;
  264.     return (result ":" digits[int(t/10)] digits[int(t%10)]);
  265. }
  267. #
  268. # Setup map for histogram calculations
  269. # and indexed table for decoding params.
  270. #
  271. function setupMaps(s, map, names)
  272. {
  273.     n = split(s, a, ":");
  274.     for (i = 1; i <= n; i++) {
  275. map[a[i]] = i;
  276. names[i-1] = a[i];
  277.     }
  278. }
  280. #
  281. # Add pages to a histogram.
  282. #
  283. function addToMap(key, ix, pages, map)
  284. {
  285.     if (key == "") {
  286. for (i in map)
  287.     key = key ":";
  288.     }
  289.     n = split(key, a, ":");
  290.     a[map[ix]] += pages;
  291.     t = a[1];
  292.     for (i = 2; i <= n; i++)
  293.       t = t ":" a[i];
  294.     return t;
  295. }
  297. #
  298. # Merge two histogram maps.
  299. #
  300. function mergeMap(map2, map1)
  301. {
  302.     if (map2 == "")
  303. return map1;
  304.     else if (map1 == "")
  305. return map2;
  306.     # map1 & map2 are populated
  307.     n1 = split(map1, a1, ":");
  308.     n2 = split(map2, a2, ":");
  309.     for (i = 1; i <= n1; i++)
  310. a2[i] += a1[i];
  311.     t = a2[1];
  312.     for (i = 2; i <= n; i++)
  313.       t = t ":" a2[i];
  314.     return t;
  315. }
  317. #
  318. # Return the name of the item with the
  319. # largest number of accumulated pages.
  320. #
  321. function bestInMap(totals, map)
  322. {
  323.    n = split(totals, a, ":");
  324.    imax = 1; max = -1;
  325.    for (j = 1; j <= n; j++)
  326.        if (a[j] > max) {
  327.    max = a[j];
  328.    imax = j;
  329.        }
  330.    split(map, a, ":");
  331.    return a[imax];
  332. }
  334. #
  335. # Sort array a[l..r]
  336. #
  337. function qsort(a, l, r) {
  338.     i = l;
  339.     k = r+1;
  340.     item = a[l];
  341.     for (;;) {
  342. while (i < r) {
  343.             i++;
  344.     if (a[i] >= item)
  345. break;
  346.         }
  347. while (k > l) {
  348.             k--;
  349.     if (a[k] <= item)
  350. break;
  351.         }
  352.         if (i >= k)
  353.     break;
  354. t = a[i]; a[i] = a[k]; a[k] = t;
  355.     }
  356.     t = a[l]; a[l] = a[k]; a[k] = t;
  357.     if (k != 0 && l < k-1)
  358. qsort(a, l, k-1);
  359.     if (k+1 < r)
  360. qsort(a, k+1, r);
  361. }
  363. function cleanup(s)
  364. # remove special characters from the string s and return the results
  365. # the first arg of gsub is a regex to be substituted (removed in this
  366. # case) from the string s
  367. #  remove double quotes, leading spaces at the beginning
  368. #  of the string any spaces followed at the end of the string
  369. {
  370.     gsub(""", "", s);
  371.     gsub("^ +", "", s);
  372.     gsub(" +$", "", s);
  373.     return s;
  374. }
  376. function setupToLower()
  377. {
  378.     upperRE = "[ABCDEFGHIJKLMNOPQRSTUVWXYZ]";
  379.     upper["A"] = "a"; upper["B"] = "b"; upper["C"] = "c";
  380.     upper["D"] = "d"; upper["E"] = "e"; upper["F"] = "f";
  381.     upper["G"] = "g"; upper["H"] = "h"; upper["I"] = "i";
  382.     upper["J"] = "j"; upper["K"] = "k"; upper["L"] = "l";
  383.     upper["M"] = "m"; upper["N"] = "n"; upper["O"] = "o";
  384.     upper["P"] = "p"; upper["Q"] = "q"; upper["R"] = "r";
  385.     upper["S"] = "s"; upper["T"] = "t"; upper["U"] = "u";
  386.     upper["V"] = "v"; upper["W"] = "w"; upper["X"] = "x";
  387.     upper["Y"] = "y"; upper["Z"] = "z";
  388. }
  390. function toLower(s)
  391. {
  392.     if (match(s, upperRE) != 0) {
  393. do {
  394.     c = substr(s, RSTART, 1);
  395.     gsub(c, upper[c], s);
  396. } while (match(s, upperRE));
  397.     }
  398.     return s;
  399. }
  401. function getBR(params)
  402. {
  403.     if ((int(int(params) / 2097152) % 2) == 1) {
  404.         return brNames[int(int(params) / 8) % 16];
  405.     } else {
  406.         return brNames[int(int(params) / 2) % 8];
  407.     }
  408. }
  410. function getDF(params)
  411. {
  412.     if ((int(int(params) / 2097152) % 2) == 1) {
  413.         return dfNames[int(int(params) / 16384) % 4];
  414.     } else {
  415.         return dfNames[int(int(params) / 512) % 4];
  416.     }
  417. }
  419. function hex(n) {
  420.     # GNU Awk 3.1.3 has a type conversion error from hex strings,
  421.     # so we have to do it the hard way
  422.     val = 0;
  423.     for (position = 1; position <= length(n); position++) {
  424. val = val * 16;
  425. char = tolower(substr(n, position, 1));
  426. if (char == "a") val = val + 10;
  427. else if (char == "b") val = val + 11;
  428. else if (char == "c") val = val + 12;
  429. else if (char == "d") val = val + 13;
  430. else if (char == "e") val = val + 14;
  431. else if (char == "f") val = val + 15;
  432. else val = val + int(char);
  433.     }
  434.     return val;
  435. }
  437. function isBitSet(bit, dcs) {
  438.     byte = int((bit - 1) / 8);  
  439.     pos = 7 - ((bit - 1) % 8);
  440.     dcsbyte = hex(substr(dcs, (byte*3+1), 2));
  441.     return int(int(dcsbyte / (2 ^ pos)) % 2);
  442. }
  443.         
  444. function getDFfromDCS(dcs)
  445. {
  446.     if (substr(dcs, 1, 1) == """)
  447. dcs = substr(dcs, 2);
  448.     if (substr(dcs, length(dcs), 1) == """)
  449. dcs = substr(dcs, 1, length(dcs)-1);
  450.     if (isBitSet(68, dcs)) {
  451. if (isBitSet(69, dcs))  
  452.     return dfNames[6]; 
  453. return dfNames[5];
  454.     }
  455.     if (isBitSet(78, dcs) || isBitSet(79, dcs))
  456. return dfNames[4];
  457.     if (isBitSet(31, dcs))  
  458. return dfNames[3];
  459.     if (isBitSet(26, dcs))
  460. return dfNames[2];
  461.     if (isBitSet(16, dcs))
  462. return dfNames[1];
  463.     return dfNames[0];
  464. }
  466. #
  467. # Accumulate a statistics record.
  468. #
  470. function acct(key, dest, pages, time, br, df, status)
  471. {
  472.     status = cleanup(status);
  473.     if (length(status) > 11) {
  474. msg = toLower(substr(status, 1, 11));
  475. if (callFailed[msg])
  476.     return;
  477.     }
  478.     if (cvtDateTime($1) < KEEPSINCE || cvtDateTime($1) > KEEPEND)
  479. return;
  480.     key = cleanup(key);
  481. EOF
  482. test "$MAPNAMES" = "yes" && $CAT<<'EOF'
  483.     #
  484.     # Try to merge unqualified names w/ fully qualified names
  485.     # by stripping the host part of the domain address and
  486.     # mapping unqualified names to a stripped qualified name.
  487.     #
  488.     n = split(key, parts, "@");
  489.     if (n == 2) { # user@addr
  490. user = parts[1];
  491. if (user != "root" && user != "guest") {
  492.     addr = parts[2];
  493.     #
  494.     # Strip hostname from multi-part domain name.
  495.     #
  496. EOF
  497. test "$MAPNAMES" = "yes" && echo 'p = split("'`hostname`'", hostname, ".");'
  498. test "$MAPNAMES" = "yes" && $CAT<<'EOF'
  499.     n = split(addr, domains, ".");
  500.     if (p > 1 && n > p) { # e.g. flake.asd.sgi.com
  501. l = length(domains[1])+1;
  502. addr = substr(addr, l+1, length(addr)-l);
  503. key = user "@" addr;
  504.     }
  505.     if (addrs[user] == "") { # record mapped name
  506. addrs[user] = addr;
  507.     } else if (addrs[user] != addr) {
  508. if (!warned[user "@" addr]) {
  509.     warned[user "@" addr] = 1;
  510.     printf "Warning, address clash, "%s" and "%s".n", 
  511.        user "@" addrs[user], user "@" addr
  512. }
  513.     }
  514. }
  515.     } else if (n != 1) {
  516. printf "Warning, weird user address/name "%s".n", key
  517.     }
  518. EOF
  519. $CAT<<'EOF'
  520.     dest = cleanup(dest);
  522.     sendpages[key] += pages;
  523. sendcalls[key] += 1;
  524.     time = cleanup(time);
  525.     if (pages == 0 && time > 60)
  526. time = 0;
  527.     sendtime[key] += cvtTime(time);
  528.     if (status != "")
  529. senderrs[key]++;
  530.     br = cleanup(br);
  531.     sendrate[key] = addToMap(sendrate[key], br, pages, rateMap);
  532.     df = cleanup(df);
  533.     senddata[key] = addToMap(senddata[key], df, pages, dataMap);
  534. }
  536. #
  537. # Print a rule between the stats and the totals line.
  538. #
  539. function printRule(n, s)
  540. {
  541.     r = "";
  542.     while (n-- >= 0)
  543. r = r s;
  544.     printf "%sn", r;
  545. }
  547. BEGIN { FS="t";
  548.   rates = "2400:4800:7200:9600:12000:14400:16800:19200:21600:24000:26400:28800:31200:33600";
  549.   setupMaps(rates, rateMap, brNames);
  550.   datas = "1-D MH:2-D MR:2-D Uncompressed Mode:2-D MMR:JBIG:JPEG Greyscale:JPEG Full-color";
  551.   setupMaps(datas, dataMap, dfNames);
  552.   callFailed["busy signal"] = 1;
  553.   callFailed["unknown pro"] = 1;
  554.   callFailed["no carrier "] = 1;
  555.   callFailed["no local di"] = 1;
  556.   callFailed["no answer f"] = 1;
  557.   callFailed["ringback de"] = 1;
  558.   callFailed["job aborted"] = 1;
  559.   setupToLower();
  560.   setupDateTimeStuff();
  561.   if (SINCEDT == "")
  562.       KEEPSINCE = cvtDateTime(TODAY) - AGE*FULLDAY;
  563.   else
  564.       KEEPSINCE = cvtDateTime(SINCEDT);
  565.   if (ENDDT == "")
  566.       KEEPEND = cvtDateTime(TODAY);
  567.   else
  568.       KEEPEND = cvtDateTime(ENDDT);
  569. EOF
  570. echo   "KeyTitle = "$KEYTITLE""
  571. $CAT<<'EOF'
  572. }
  573. END { OFS="t"; setupDigits();
  574.   maxlen = 15;
  575.   # merge unqualified and qualified names
  576.   for (key in sendpages) {
  577.       if (addrs[key] != "") {
  578.   fullkey = key "@" addrs[key];
  579.   sendpages[fullkey] += sendpages[key];
  580.   sendcalls[fullkey] += sendcalls[key];
  581.   sendtime[fullkey] += sendtime[key];
  582.   senderrs[fullkey] += senderrs[key];
  583.   sendrate[fullkey] = 
  584.       mergeMap(sendrate[fullkey], sendrate[key]);
  585.   senddata[fullkey] = 
  586.       mergeMap(senddata[fullkey], senddata[key]);
  587.       }
  588.   }
  589.   nsorted = 0;
  590.   for (key in sendpages) {
  591.       if (addrs[key] != "") # unqualified name
  592.   continue;
  593.       l = length(key);
  594.       if (l > maxlen)
  595. maxlen = l;
  596.       sorted[nsorted++] = key;
  597.   }
  598.   qsort(sorted, 0, nsorted-1);
  599.   fmt = "%-" maxlen "." maxlen "s"; # e.g. %-24.24s
  600.                   printf fmt " %6s %6s %9s %6s %5s %7s %7sn",
  601.       KeyTitle, "Pages", "Calls", "Time", "Pg/min",
  602.       "Errs", "TypRate", "TypData";
  603.   tpages = 0;
  604.   ttime = 0;
  605.   terrs = 0;
  606.   for (k = 0; k < nsorted; k++) {
  607.       i = sorted[k];
  608.       t = sendtime[i]/60; if (t == 0) t = 1;
  609.       n = sendpages[i]; if (n == 0) n = 1;
  610.       brate = best
  611.       printf fmt " %6d %6d %9s %6.1f %5d %7d %7.7sn",
  612.   i, sendpages[i], sendcalls[i], fmtTime(sendtime[i]),
  613.   sendpages[i] / t, senderrs[i],
  614.   bestInMap(sendrate[i], rates),
  615.   bestInMap(senddata[i], datas);
  616. tpages += sendpages[i];
  617. tcalls += sendcalls[i];
  618. ttime += sendtime[i];
  619. terrs += senderrs[i];
  620.   }
  621.   printRule(maxlen+1+6+1+6+1+9+6+1+5+1+7+1+7, "-");
  622.   t = ttime/60; if (t == 0) t = 1;
  623.   printf fmt " %6d %6d %9s %6.1f %5dn",
  624.       "Total", tpages, tcalls, fmtTime(ttime), tpages/t, terrs;
  625. }
  626. EOF
  627. echo "$AWKRULES"
  628. )>$tmpAwk
  629. $AWK -f $tmpAwk -v TODAY="$TODAY" -v AGE="$AGE" -v SINCEDT="$SINCEDT" -v ENDDT="$ENDDT" $FILES
  631. # cleanup
  632. hfExit 0