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

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

传真(Fax)编程

开发平台：

C/C++

recvstats.sh.in：源码内容
  1. #! @SCRIPT_SH@
  2. # $Id: recvstats.sh.in,v 1.3 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. #
  29. # security
  30. NOCLOBBER_ON=@NOCLOBBER_ON@
  31. NOCLOBBER_OFF=@NOCLOBBER_OFF@
  33. #
  34. # Print Statistics about Received Facsimile.
  35. #
  36. SPOOL=@SPOOL@
  37. . $SPOOL/bin/common-functions
  39. test -f $SPOOL/etc/setup.cache || {
  40.     cat<<EOF
  42. FATAL ERROR: $SPOOL/etc/setup.cache is missing!
  44. The file $SPOOL/etc/setup.cache is not present.  This
  45. probably means the machine has not been setup using the faxsetup(@MANNUM1_8@)
  46. command.  Read the documentation on setting up HylaFAX before you
  47. startup a server system.
  49. EOF
  50.     hfExit 1
  51. }
  52. . $SPOOL/etc/setup.cache
  54. FILES=
  55. SORTKEY=-sender # default is to sort by sender
  56. TODAY="`date +'%D %H:%M'`"
  57. AGE="360" # report statistics for last year
  58. SINCEDT=
  59. ENDDT=
  61. while [ x"$1" != x"" ] ; do
  62.     case $1 in
  63.     -send*|-csi|-dest*|-speed|-rate|-format|-cidname|-cidnumber)
  64.     SORTKEY=$1;;
  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] [files]"
  69.     hfExit 1
  70.     ;;
  71.     *)     FILES="$FILES $1";;
  72.     esac
  73.     shift
  74. done
  75. if [ -z "$FILES" ]; then
  76.     FILES=$SPOOL/etc/xferfaxlog
  77. fi
  79. #
  80. # Construct awk rules to collect information according
  81. # to the desired sort key.  There are multiple rules for
  82. # dealing with the different formats that have existed
  83. # over time.
  84. #
  85. case $SORTKEY in
  86. -send*|-csi)
  87.     AWKRULES='
  88. $2 == "RECV" && NF == 9  { acct($3, $7, $8, $5, $6, $9); }
  89. $2 == "RECV" && NF == 11 { acct($6, $9, $10, $7, $8, $11); }
  90. $2 == "RECV" && NF == 12 { acct($7, $10, $11, $8, $9, $12); }
  91. $2 == "RECV" && NF == 13 { acct($9, $11, $12, getBR($10), getDF($10), $13); }
  92. $2 == "RECV" && NF == 14 { acct($9, $11, $13, getBR($10), getDF($10), $14); }
  93. $2 == "RECV" && NF == 16 { acct($9, $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  94. $2 == "RECV" && NF == 17 { acct($9, $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  95. $2 == "RECV" && NF == 18 { acct($9, $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  96. $2 == "RECV" && NF == 19 { acct($9, $11, $13, getBR($10), getDFfromDCS($19), $14, $15, $16); }
  97. $2 == "RECV" && NF == 20 { acct($9, $11, $13, getBR($10), getDFfromDCS($19), $14, $15, $16); }
  98. '
  99.     ;;
  100. -cidname)
  101.     AWKRULES='
  102. $2 == "RECV" && NF == 16 { acct($15, $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  103. $2 == "RECV" && NF == 17 { acct($15, $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  104. $2 == "RECV" && NF == 18 { acct($15, $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  105. $2 == "RECV" && NF == 19 { acct($15, $11, $13, getBR($10), getDFfromDCS($19), $14, $15, $16); }
  106. $2 == "RECV" && NF == 20 { acct($15, $11, $13, getBR($10), getDFfromDCS($19), $14, $15, $16); }
  107. '
  108.     ;;
  109. -cidnumber)
  110.     AWKRULES='
  111. $2 == "RECV" && NF == 16 { acct($16, $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  112. $2 == "RECV" && NF == 17 { acct($16, $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  113. $2 == "RECV" && NF == 18 { acct($16, $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  114. $2 == "RECV" && NF == 19 { acct($16, $11, $13, getBR($10), getDFfromDCS($19), $14, $15, $16); }
  115. $2 == "RECV" && NF == 20 { acct($16, $11, $13, getBR($10), getDFfromDCS($19), $14, $15, $16); }
  116. '
  117.     ;;
  118. -dest*)
  119.     AWKRULES='
  120. $2 == "RECV" && NF == 9  { acct($4, $7, $8, $5, $6, $9); }
  121. $2 == "RECV" && NF == 11 { acct($5, $9, $10, $7, $8, $11); }
  122. $2 == "RECV" && NF == 12 { acct($6, $10, $11, $8, $9, $12); }
  123. $2 == "RECV" && NF == 14 { acct($8, $11, $13, getBR($10), getDF($10), $14); }
  124. $2 == "RECV" && NF == 16 { acct($8, $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  125. $2 == "RECV" && NF == 17 { acct($8, $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  126. $2 == "RECV" && NF == 18 { acct($8, $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  127. $2 == "RECV" && NF == 19 { acct($8, $11, $13, getBR($10), getDFfromDCS($19), $14, $15, $16); }
  128. $2 == "RECV" && NF == 20 { acct($8, $11, $13, getBR($10), getDFfromDCS($19), $14, $15, $16); }
  129. '
  130.     ;;
  131. -speed|-rate)
  132.     AWKRULES='
  133. $2 == "RECV" && NF == 9  { acct($5, $7, $8, $5, $6, $9); }
  134. $2 == "RECV" && NF == 11 { acct($7, $9, $10, $7, $8, $11); }
  135. $2 == "RECV" && NF == 12 { acct($8, $10, $11, $8, $9, $12); }
  136. $2 == "RECV" && NF == 13 { acct(getBR($10), $11, $12, getBR($10), getDF($10), $13); }
  137. $2 == "RECV" && NF == 14 { acct(getBR($10), $11, $13, getBR($10), getDF($10), $14); }
  138. $2 == "RECV" && NF == 16 { acct(getBR($10), $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  139. $2 == "RECV" && NF == 17 { acct(getBR($10), $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  140. $2 == "RECV" && NF == 18 { acct(getBR($10), $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  141. $2 == "RECV" && NF == 19 { acct(getBR($10), $11, $13, getBR($10), getDFfromDCS($19), $14, $15, $16); }
  142. $2 == "RECV" && NF == 20 { acct(getBR($10), $11, $13, getBR($10), getDFfromDCS($19), $14, $15, $16); }
  143. '
  144.     ;;
  145. -format)
  146.     AWKRULES='
  147. $2 == "RECV" && NF == 9  { acct($6, $7, $8, $5, $6, $9); }
  148. $2 == "RECV" && NF == 11 { acct($8, $9, $10, $7, $8, $11); }
  149. $2 == "RECV" && NF == 12 { acct($9, $10, $11, $8, $9, $12); }
  150. $2 == "RECV" && NF == 13 { acct(getDF($10), $11, $12, getBR($10), getDF($10), $13); }
  151. $2 == "RECV" && NF == 14 { acct(getDF($10), $11, $13, getBR($10), getDF($10), $14); }
  152. $2 == "RECV" && NF == 16 { acct(getDF($10), $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  153. $2 == "RECV" && NF == 17 { acct(getDF($10), $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  154. $2 == "RECV" && NF == 18 { acct(getDF($10), $11, $13, getBR($10), getDF($10), $14, $15, $16); }
  155. $2 == "RECV" && NF == 19 { acct(getDF($10), $11, $13, getBR($10), getDFfromDCS($19), $14, $15, $16); }
  156. $2 == "RECV" && NF == 20 { acct(getDF($10), $11, $13, getBR($10), getDFfromDCS($19), $14, $15, $16); }
  157. '
  158.     ;;
  159. esac
  161. #
  162. # Generate an awk program to process the statistics file.
  163. #
  164. SetupPrivateTmp
  165. tmpAwk=$TMPDIR/xferfax$$
  167. ($CAT<<'EOF'
  168. #
  169. # Setup date conversion data structures.
  170. #
  171. function setupDateTimeStuff()
  172. {
  173.     daysInMonth[ 0] = 31; daysInMonth[ 1] = 28; daysInMonth[ 2] = 31;
  174.     daysInMonth[ 3] = 30; daysInMonth[ 4] = 31; daysInMonth[ 5] = 30;
  175.     daysInMonth[ 6] = 31; daysInMonth[ 7] = 31; daysInMonth[ 8] = 30;
  176.     daysInMonth[ 9] = 31; daysInMonth[10] = 30; daysInMonth[11] = 31;
  178.     FULLDAY = 24 * 60 * 60;
  179. }
  181. #
  182. # Convert hh:mm:ss to seconds.
  183. #
  184. function cvtTime(s)
  185. {
  186.     t = i = 0;
  187.     for (n = split(s, a, ":"); i++ < n; )
  188. t = t*60 + a[i];
  189.     return t;
  190. }
  192. #
  193. # Convert MM/DD/YY hh:mm to seconds.
  194. # NB: this does not deal with leap years.
  195. #
  196. function cvtDateTime(s)
  197. {
  198.     yday = substr(s,7,2);
  199.     if (yday < 70)
  200.         yday += 30;
  201.     else 
  202.         yday -= 70;
  203.     yday = yday*365 + substr(s,4,2) - 1;
  204.     mon = substr(s,1,2) - 1;
  205.     for (i = 0; i < mon; i++)
  206. yday += daysInMonth[i];
  207.     return yday*FULLDAY + cvtTime(substr(s,10) ":00");
  208. }
  210. function setupDigits()
  211. {
  212.   digits[0] = "0"; digits[1] = "1"; digits[2] = "2";
  213.   digits[3] = "3"; digits[4] = "4"; digits[5] = "5";
  214.   digits[6] = "6"; digits[7] = "7"; digits[8] = "8";
  215.   digits[9] = "9";
  216. }
  218. #
  219. # Format seconds as hh:mm:ss.
  220. #
  221. function fmtTime(t)
  222. {
  223.     v = int(t/3600);
  224.     result = "";
  225.     if (v > 0) {
  226. if (v >= 10)
  227.     result = digits[int(v/10)];
  228. result = result digits[int(v%10)] ":";
  229. t -= v*3600;
  230.     }
  231.     v = int(t/60);
  232.     if (v >= 10 || result != "")
  233. result = result digits[int(v/10)];
  234.     result = result digits[int(v%10)];
  235.     t -= v*60;
  236.     return (result ":" digits[int(t/10)] digits[int(t%10)]);
  237. }
  239. #
  240. # Setup map for histogram calculations
  241. # and indexed table for decoding params.
  242. #
  243. function setupMaps(s, map, names)
  244. {
  245.     n = split(s, a, ":");
  246.     for (i = 1; i <= n; i++) {
  247. map[a[i]] = i;
  248. names[i-1] = a[i];
  249.     }
  250. }
  252. #
  253. # Add pages to a histogram.
  254. #
  255. function addToMap(key, ix, pages, map)
  256. {
  257.     if (key == "") {
  258. for (i in map)
  259.     key = key ":";
  260.     }
  261.     n = split(key, a, ":");
  262.     a[map[ix]] += pages;
  263.     t = a[1];
  264.     for (i = 2; i <= n; i++)
  265.       t = t ":" a[i];
  266.     return t;
  267. }
  269. #
  270. # Return the name of the item with the
  271. # largest number of accumulated pages.
  272. #
  273. function bestInMap(totals, map)
  274. {
  275.    n = split(totals, a, ":");
  276.    imax = 1; max = -1;
  277.    for (j = 1; j <= n; j++)
  278.        if (a[j] > max) {
  279.    max = a[j];
  280.    imax = j;
  281.        }
  282.    split(map, a, ":");
  283.    return a[imax];
  284. }
  286. #
  287. # Sort array a[l..r]
  288. #
  289. function qsort(a, l, r) {
  290.     i = l;
  291.     k = r+1;
  292.     item = a[l];
  293.     for (;;) {
  294. while (i < r) {
  295.             i++;
  296.     if (a[i] >= item)
  297. break;
  298.         }
  299. while (k > l) {
  300.             k--;
  301.     if (a[k] <= item)
  302. break;
  303.         }
  304.         if (i >= k)
  305.     break;
  306. t = a[i]; a[i] = a[k]; a[k] = t;
  307.     }
  308.     t = a[l]; a[l] = a[k]; a[k] = t;
  309.     if (k != 0 && l < k-1)
  310. qsort(a, l, k-1);
  311.     if (k+1 < r)
  312. qsort(a, k+1, r);
  313. }
  315. function getBR(params)
  316. {
  317.     if ((int(int(params) / 2097152) % 2) == 1) {
  318. return brNames[int(int(params) / 8) % 16];
  319.     } else {
  320. return brNames[int(int(params) / 2) % 8];
  321.     }
  322. }
  324. function getDF(params)
  325. {
  326.     if ((int(int(params) / 2097152) % 2) == 1) {
  327. return dfNames[int(int(params) / 16384) % 4];
  328.     } else {
  329. return dfNames[int(int(params) / 512) % 4];
  330.     }
  331. }
  333. function hex(n) {
  334.     # GNU Awk 3.1.3 has a type conversion error from hex strings,
  335.     # so we have to do it the hard way
  336.     val = 0;
  337.     for (position = 1; position <= length(n); position++) {
  338. val = val * 16;
  339. char = tolower(substr(n, position, 1));
  340. if (char == "a") val = val + 10;
  341. else if (char == "b") val = val + 11;
  342. else if (char == "c") val = val + 12;
  343. else if (char == "d") val = val + 13;
  344. else if (char == "e") val = val + 14;
  345. else if (char == "f") val = val + 15;
  346. else val = val + int(char);
  347.     }
  348.     return val;
  349. }
  351. function isBitSet(bit, dcs) {
  352.     byte = int((bit - 1) / 8);
  353.     pos = 7 - ((bit - 1) % 8);
  354.     dcsbyte = hex(substr(dcs, (byte*3+1), 2));
  355.     return int(int(dcsbyte / (2 ^ pos)) % 2);
  356. }
  358. function getDFfromDCS(dcs)
  359. {
  360.     if (substr(dcs, 1, 1) == """)
  361. dcs = substr(dcs, 2);
  362.     if (substr(dcs, length(dcs), 1) == """)
  363. dcs = substr(dcs, 1, length(dcs)-1);
  364.     if (isBitSet(68, dcs)) {
  365. if (isBitSet(69, dcs))
  366.     return dfNames[6];
  367. return dfNames[5];
  368.     }
  369.     if (isBitSet(78, dcs) || isBitSet(79, dcs))
  370. return dfNames[4];
  371.     if (isBitSet(31, dcs))
  372. return dfNames[3];
  373.     if (isBitSet(26, dcs))
  374. return dfNames[2];
  375.     if (isBitSet(16, dcs))
  376. return dfNames[1];
  377.     return dfNames[0];
  378. }
  380. #
  381. # Accumulate a statistics record.
  382. #
  383. function acct(key, pages, time, br, df, status, cidname, cidnumber)
  384. {
  385.     if (cvtDateTime($1) < KEEPSINCE || cvtDateTime($1) > KEEPEND)
  386. return;
  387.     gsub(""", "", key);
  388.     gsub("^ +", "", key);
  389.     gsub(" +$", "", key);
  390.     recvpages[key] += pages;
  391.     if (pages == 0 && time > 60)
  392. time = 0;
  393.     recvtime[key] += cvtTime(time);
  394.     gsub(""", "", status);
  395.     if (status != "")
  396. recverrs[key]++;
  397.     gsub(""", "", br);
  398.     recvrate[key] = addToMap(recvrate[key], br, pages, rateMap);
  399.     gsub(""", "", df);
  400.     recvdata[key] = addToMap(recvdata[key], df, pages, dataMap);
  401.     gsub(""", "", cidname);
  402.     gsub(""", "", cidnumber);
  403.     lastcidname[key] = cidname;
  404.     lastcidnumber[key] = cidnumber;
  405. }
  407. #
  408. # Print a rule between the stats and the totals line.
  409. #
  410. function printRule(n, s)
  411. {
  412.     r = "";
  413.     while (n-- >= 0)
  414. r = r s;
  415.     printf "%sn", r;
  416. }
  418. BEGIN { FS="t";
  419.   rates = "2400:4800:7200:9600:12000:14400:16800:19200:21600:24000:26400:28800:31200:33600";
  420.   setupMaps(rates, rateMap, brNames);
  421.   datas = "1-D MH:2-D MR:2-D Uncompressed Mode:2-D MMR:JBIG:JPEG Greyscale:JPEG Full-color";
  422.   setupMaps(datas, dataMap, dfNames);
  423.   setupDateTimeStuff();
  424.   if (SINCEDT == "")
  425.       KEEPSINCE = cvtDateTime(TODAY) - AGE*FULLDAY;
  426.   else
  427.       KEEPSINCE = cvtDateTime(SINCEDT);
  428.   if (ENDDT == "")
  429.       KEEPEND = cvtDateTime(TODAY);
  430.   else
  431.       KEEPEND = cvtDateTime(ENDDT);
  432. }
  433. END { OFS="t"; setupDigits();
  434.   maxlen = 15;
  435.   nsorted = 0;
  436.   for (i in recvpages) {
  437.       l = length(i);
  438.       if (l > maxlen)
  439. maxlen = l;
  440.       sorted[nsorted++] = i;
  441.   }
  442.   qsort(sorted, 0, nsorted-1);
  443.   fmt = "%-" maxlen "." maxlen "s" " %-" maxlen "." maxlen "s" " %-" maxlen "." maxlen "s"; # e.g. %-24.24s
  444.   printf fmt " %5s %8s %6s %4s %7s %7sn",
  445.       "Sender", "CIDName", "CIDNumber", "Pages", "Time", "Pg/min",
  446.       "Errs", "TypRate", "TypData";
  447.   tpages = 0;
  448.   ttime = 0;
  449.   terrs = 0;
  450.   for (k = 0; k < nsorted; k++) {
  451.       i = sorted[k];
  452.       t = recvtime[i]/60; if (t == 0) t = 1;
  453.       n = recvpages[i]; if (n == 0) n = 1;
  454.       brate = best
  455.       printf fmt " %5d %8s %6.1f %4d %7d %7sn",
  456.   i, lastcidname[i], lastcidnumber[i], recvpages[i], fmtTime(recvtime[i]),
  457.   recvpages[i] / t, recverrs[i],
  458.   bestInMap(recvrate[i], rates),
  459.   bestInMap(recvdata[i], datas);
  460. tpages += recvpages[i];
  461. ttime += recvtime[i];
  462. terrs += recverrs[i];
  463.   }
  464.   printRule(maxlen+1+maxlen+1+maxlen+1+5+1+8+6+1+4+1+7+1+7, "-");
  465.   t = ttime/60; if (t == 0) t = 1;
  466.   printf fmt " %5d %8s %6.1f %4dn",
  467.       "Total", "", "", tpages, fmtTime(ttime), tpages/t, terrs;
  468. }
  469. EOF
  470. echo "$AWKRULES"
  471. )>$tmpAwk
  472. $AWK -f $tmpAwk -v TODAY="$TODAY" -v AGE="$AGE" -v SINCEDT="$SINCEDT" -v ENDDT="$ENDDT" $FILES
  474. # cleanup
  475. hfExit 0