Re: Patch for squid-stats 1.4

From: HJ Hwang <jung@dont-contact.us>
Date: Fri, 14 Mar 1997 09:48:25 +0900 (KST)

According to Hiroshi Naitoh:
>
> I looked at Cache Server List of cachemgr and noticed this problem.
>
> This patch will be made as follows.
>
> Patch < squid-stats.patch
>
> ---------------------- squid-stats.patch ----------------------
> *** access-summary.pl.old Wed Mar 12 11:19:06 1997
> --- access-summary.pl Wed Mar 12 11:19:45 1997
> ***************
> *** 556,564 ****
> foreach $k (keys %{${$hashref}{COUNT}}) {
> $v=${$hashref}{COUNT}{$k};
> $TCP_count += $v if ($k =~ /^TCP_/);
> ! $THC += $v if ($k eq 'TCP_HIT');
> $UDP_count += $v if ($k =~ /^UDP_/);
> ! $UHC += $v if ($k eq 'UDP_HIT');
> }
>
> foreach $k (keys %{${$hashref}{BYTES}}) {
> --- 556,564 ----
> foreach $k (keys %{${$hashref}{COUNT}}) {
> $v=${$hashref}{COUNT}{$k};
> $TCP_count += $v if ($k =~ /^TCP_/);
> ! $THC += $v if ($k eq 'TCP_HIT' || $k eq 'TCP_IMS_HIT');
> $UDP_count += $v if ($k =~ /^UDP_/);
> ! $UHC += $v if ($k eq 'UDP_HIT' || $k eq 'UDP_HIT_OBJ');
> }
>
> foreach $k (keys %{${$hashref}{BYTES}}) {
> ***************
> *** 642,648 ****
> foreach $k (keys %{${$hashref}{COUNT}}) {
> $v=${$hashref}{COUNT}{$k};
> $TCP_count += $v if ($k =~ /^TCP_/);
> ! $THC += $v if ($k eq 'TCP_HIT');
> $UDP_count += $v if ($k =~ /^UDP_/);
> }
>
> --- 642,648 ----
> foreach $k (keys %{${$hashref}{COUNT}}) {
> $v=${$hashref}{COUNT}{$k};
> $TCP_count += $v if ($k =~ /^TCP_/);
> ! $THC += $v if ($k eq 'TCP_HIT' || $k eq 'TCP_IMS_HIT');
> $UDP_count += $v if ($k =~ /^UDP_/);
> }
> --------------------------------------------
>
> If there were problems, inform me.
>

 Is $THS also modified as followings ???

        foreach $k (keys %{${$hashref}{BYTES}}) {
                $v=${$hashref}{BYTES}{$k};
                $TCP_size += $v if ($k =~ /^TCP_/);
                $THS += $v if ($k eq 'TCP_HIT');
        }
       foreach $k (keys %{${$hashref}{BYTES}}) {
                $v=${$hashref}{BYTES}{$k};
                $TCP_size += $v if ($k =~ /^TCP_/);
                $THS += $v if ($k eq 'TCP_HIT' || $k eq 'TCP_IMS_HIT');
        }

 If not, Why ?

-- 
    *    _  _	  
    ||_|| ||_| 	  Hwang, Hyojung / jung@jean.kotel.co.kr / 82-2-526-5235
  |_|       _|_	  Internet Team  / Multimedia Laboratory / KT R&D Group
           |_|	  137-792, 17 Umyun-Dong, Seocho-Gu, Seoul, Korea
Received on Thu Mar 13 1997 - 17:23:44 MST

This archive was generated by hypermail pre-2.1.9 : Tue Dec 09 2003 - 16:34:41 MST