home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / apps / bbs / smp_awk / logstat.awk < prev    next >
Text File  |  1995-01-01  |  7KB  |  206 lines
  1. # Semper log statistics creator
  2. # =============================
  3. # (c) 28.12.1994 BoLuSoft, Borek Lupomesky
  4. # 
  5. # E-mail: 2:423/71@fidonet.org
  6. #         90:1200/1@nest.ftn
  7. #         borek@leo1.zlin.vutbr.cz
  8.  
  9. function app(strg,arr,curr) {
  10.   for(i=0;i<curr;i++) { if(arr[i]==strg) return i }
  11.   return -1;
  12. }
  13.  
  14. function cmpadr(adr1,adr2) {
  15.   gsub("/",".",adr1);
  16.   gsub(":",".",adr1);
  17.   gsub("@",".",adr1);
  18.   gsub("/",".",adr2);
  19.   gsub(":",".",adr2);
  20.   gsub("@",".",adr2);
  21.   split(adr1,a1,".");
  22.   split(adr2,a2,".");
  23.   a1[5]=a1[5] "." a1[6];
  24.   a2[5]=a2[5] "." a2[6];
  25.   if(a2[5] < a1[5]) return 1; else if(a2[5] > a1[5]) return 0;
  26.   if(a2[1]+0 < a1[1]+0) return 2; else if(a2[1]+0 > a1[1]+0) return 0;
  27.   if(a2[2]+0 < a1[2]+0) return 3; else if(a2[2]+0 > a1[2]+0) return 0;
  28.   if(a2[3]+0 < a1[3]+0) return 4; else if(a2[3]+0 > a1[3]+0) return 0;
  29.   if(a2[4]+0 < a1[4]+0) return 5; else if(a2[4]+0 > a1[4]+0) return 0;
  30.   return 0
  31. }
  32.  
  33. function getnum(s) {
  34.   a=length(s);
  35.   b="0";
  36.   for(i=1;i<=a;i++) {
  37.     c=substr(s,i,1);
  38.     if(c>="0" && c<="9") b=b c;
  39.   }
  40.   return b+0;
  41. }
  42.  
  43. function gettime(s) {
  44.   a=length(s);
  45.   b=index(s,":"); d="0";
  46.   for(i=1;i<=b;i++) {
  47.     c=substr(s,i,1);
  48.     if(c>="0" && c<="9") d=d c;
  49.   }
  50.   ret=(d+0)*60;
  51.   i++;
  52.   d="0";
  53.   for(;i<=a;i++) {
  54.     c=substr(s,i,1);
  55.     if(d>="0" && d<="9") d=d c;
  56.   }
  57.   return ret+d;
  58. }
  59.  
  60. function iosize(i,o) {
  61.   if(i<1024) { si=""; }
  62.   else { i/=1024; si="K"; }
  63.   if(o<1024) { so=""; }
  64.   else { o/=1024; so="K"; }
  65.   ti=sprintf("%d%s",i,si);
  66.   to=sprintf("%d%s",o,so);
  67.   return sprintf("%6s/%6s",ti,to);
  68. }
  69.  
  70. BEGIN { 
  71.   ring=0; addr="-failed-"; failed=0; conns=0; online=0; inb=0; outb=0;
  72.   foutb=0; finb=0; curr=0; valid=0; bbscalls=0; files=0;
  73.   sfbytes=0; rfbytes=0; sfiles=0; rfiles=0;
  74.   t_if=0; t_of=0; t_ib=0; t_ob=0; 
  75. }
  76. /Dialing/ { ring=0 }
  77. /NO CARRIER/ { ring=0 }
  78. /Ring$/ { ring=1 }
  79. / Connect /,/Duration of connect/ {
  80.   if($6 == "Connect") {
  81.     split($7,constrg,"/");
  82.     time=$2 " " $3 " " $4;
  83.   }
  84.   if($0 ~ "branch to BBS") {
  85.     addr="BBS caller"
  86.   }
  87.   if($0 ~ "Remote Address") {
  88.     addr=$8;
  89.     valid=1;
  90.     if(DOMAIN != "") {
  91.       if($8 !~ DOMAIN) valid=0;
  92.     }
  93.   }
  94.   if($6 == "Rcvd") {
  95.     rfbytes+=getnum($9);
  96.     rftime+=gettime($10);
  97.     rfiles++;
  98.   }
  99.   if($6 == "Sent") {
  100.     sfbytes+=getnum($9);
  101.     sftime+=gettime($10);
  102.     sfiles++;
  103.   }
  104.   if($0 ~ "System  :") {
  105.     sysname=""
  106.     for(i=8;i<=NF;i++) sysname=sysname " " $i;
  107.   }
  108.   if($0 ~ "Duration of connect") {
  109.     if(addr=="BBS caller") {
  110.       bbscalls+=1;
  111.       if(DOMAIN!="") {
  112.         ring=0;
  113.         addr="-failed-"
  114.         next;
  115.       }
  116.     }
  117.     if(valid) {
  118.       conns++;
  119.       split($9,durarr,":");
  120.       duration=(durarr[1]*60)+durarr[2];
  121.       online+=duration;
  122.       if(NF==11) {
  123.         toll=$11;
  124.         sub(/\(/," ",toll);
  125.       } else toll=0;
  126.       tbill+=toll;
  127.       if((addr!="-failed-")||(DOMAIN=="")) {
  128.         iobytes=iosize(rfbytes,sfbytes);
  129.         if(ring) { 
  130.           printf("%s  %5s  %3s  %-28s  %2d/%2d  %12s  %3d:%02d\n", \
  131.             time,constrg[1],"IN",addr,rfiles,sfiles,iobytes,durarr[1],durarr[2]);
  132.         } else {
  133.           printf("%s  %5s  %3s  %-28s  %2d/%2d  %12s  %3d:%02d  %.2f\n", \
  134.             time,constrg[1],"OUT",addr,rfiles,sfiles,iobytes,durarr[1],durarr[2],toll);
  135.         }
  136.       }
  137.       if(addr=="-failed-") {
  138.         finb+=ring ? 1:0;
  139.         foutb+=ring ? 0:1;
  140.       } else if(addr!="BBS caller") {
  141.         i=app(addr,aar,curr);
  142.         if(i>=0) {
  143.           iar[i]+=ring ? 1:0; oar[i]+=ring ? 0:1;
  144.           bill[i]+=toll; odur[i]+=ring ? 0:duration;
  145.           rfbar[i]+=rfbytes; sfbar[i]+=sfbytes;
  146.           rfar[i]+=rfiles; sfar[i]+=sfiles;
  147.         } else { 
  148.           i=curr++;
  149.           aar[i]=addr;
  150.           iar[i]=ring ? 1:0; oar[i]=ring ? 0:1; snar[i]=sysname;
  151.           bill[i]=toll; odur[i]=ring ? 0:duration;
  152.           rfbar[i]=rfbytes; sfbar[i]=sfbytes;
  153.           rfar[i]=rfiles; sfar[i]=sfiles;
  154.         }
  155.         inb+=ring ? 1:0;
  156.         outb+=ring ? 0:1;
  157.         t_if+=rfiles; t_of+=sfiles;
  158.         t_ib+=rfbytes;  t_ob+=sfbytes;
  159.       }
  160.     }
  161.     ring=0; addr="-failed-";
  162.     sfiles=0; sfbytes=0; sftime=0;
  163.     rfiles=0; rfbytes=0; rftime=0;
  164.   }
  165. }
  166. END {
  167.   for(i=0;i<curr;i++) {
  168.     for(j=i;j<curr;j++) {
  169.       if(cmpadr(aar[i],aar[j])) {
  170.         taar=aar[i]; tsnar=snar[i]; tiar=iar[i]; toar=oar[i]; tb=bill[i]; todur=odur[i];
  171.           trfbar=rfbar[i]; tsfbar=sfbar[i]; trfar=rfar[i]; tsfar=sfar[i];
  172.         aar[i]=aar[j]; snar[i]=snar[j]; iar[i]=iar[j]; oar[i]=oar[j]; bill[i]=bill[j]; odur[i]=odur[j];
  173.           rfbar[i]=rfbar[j]; sfbar[i]=sfbar[j]; rfar[i]=rfar[j]; sfar[i]=sfar[j]; 
  174.         aar[j]=taar; snar[j]=tsnar; iar[j]=tiar; oar[j]=toar; bill[j]=tb; odur[j]=todur;
  175.           rfbar[j]=trfbar; sfbar[j]=tsfbar; rfar[j]=trfar; sfar[j]=tsfar; 
  176.       }
  177.     }
  178.   }
  179.   print("===========================================================================================================");
  180.   print("Address                    | System                  |  Calls  |  Files  |     Bytes    |  DOC   |  Bill   ");
  181.   print("                           |                         |  I |  O |  I |  O |   I   |   O  |        |         ");
  182.   print("---------------------------+-------------------------+----+----+----+----+-------+------+--------+---------");
  183.   for(i=0;i<curr;i++) {
  184.     iobytes=iosize(rfbar[i],sfbar[i]);
  185.     printf("%-26s |%-24.24s |%3d |%3d |%3d |%3d |%12s | %3d:%02d | %4.2f\n",aar[i],snar[i],iar[i],oar[i],rfar[i],sfar[i],iobytes,odur[i]/60,odur[i]%60,bill[i]);
  186.   }
  187.   print("===========================================================================================================");
  188.   if(DOMAIN=="") {
  189.     printf("     Total connections: %d (failed %d, %.2f%%)\n",conns,foutb+finb,(foutb+finb)/conns*100);
  190.     printf("         Inbound calls: %d, %.2f%% (failed %d,%.2f%%)\n",inb,(conns ? inb/conns*100:0),finb,(inb ? finb/inb*100:0));
  191.     printf("        Outbound calls: %d, %.2f%% (failed %d, %.2f%%)\n",outb,(conns ? outb/conns*100:0),foutb,(outb ? foutb/outb*100:0));
  192.   } else {
  193.     printf("     Total connections: %d\n",conns);
  194.     printf("         Inbound calls: %d\n",inb);
  195.     printf("        Outbound calls: %d\n",outb);
  196.   }
  197.   printf("  Total files (in/out): %d / %d\n",t_if,t_of);
  198.   printf("  Total bytes (in/out): %dK / %dK\n",t_ib/1024,t_ob/1024);
  199.   if(DOMAIN=="")
  200.     printf("           BBS callers: %d\n",bbscalls);
  201.   printf(" Total connection time: %d:%02d\n",online/60,online%60);
  202.   printf("            Total bill: %.2f\n",tbill);
  203.   td=strftime("%H:%M %d.%m.%y");
  204.   printf("\nStatistics created: %s",td);
  205. }
  206.