�PNG  IHDR22?�� pHYs  �� OiCCPPhotoshop ICC profilexڝSgTS�=���BK���KoR RB���&*! J�!��Q�EEȠ�����Q, � ��!���������{�kּ������>���� �H3Q5� �B�������.@� $p�d!s�#�~<<+"��x� �M��0���B�\���t�8K�@z�B�@F���&S�`�cb�P-`'������{[�!�� e�Dh;��V�EX0fK�9�-0IWfH���� � 0Q��){`�##x��F�W<�+��*x��<�$9E�[-qWW.(�I+6aa�@.�y�2�4���������x����6��_-��"bb���ϫp@�t~��,/��;�m��%�h^ �u��f�@����W�p�~<�5�j>{�-�]c�K'Xt����o��(�h���w��?�G�%�fI�q^D$.Tʳ?�D��*�A��,���� �`6�B$��BB d�r`)��B(�Ͱ*`/�@4�Qh��p.�U�=p�a��(�� A�a!ڈb�X#����!�H�$ ɈQ"K�5H1R�T UH�=r9�\F��;�2����G1���Q=� �C��7�F� �dt1�����r�=�6��Ыhڏ>C�0��3�l0.��B�8, �c˱"� ���V����cϱw�E� 6wB aAHXLXN�H� $4� 7 �Q�'"��K�&���b21�XH,#��/{�C�7$�C2'��I��T��F�nR#�,��4H#���dk�9�, +ȅ����3��!�[ �b@q��S�(R�jJ��4�e�2AU��Rݨ�T5�ZB���R�Q��4u�9̓IK�����hh�i��t�ݕN��W���G���w ��Ljg(�gw��L�Ӌ�T071���oUX*�*|�� �J�&�*/T����ު U�U�T��^S}�FU3S� Ԗ�U��P�SSg�;���g�oT?�~Y��Y�L�OC�Q��_�� c�x,!k ��u�5�&���|v*�����=���9C3J3W�R�f?�q��tN �(���~���)�)�4L�1e\k����X�H�Q�G�6������E�Y��A�J'\'Gg����S�Sݧ �M=:��.�k���Dw�n��^��Lo��y���}/�T�m���G X� $� �<�5qo</���QC]�@C�a�a�ᄑ��<��F�F�i�\�$�m�mƣ&&!&KM�M�RM��)�;L;L���͢�֙5�=1�2��כ߷`ZxZ,����eI��Z�Yn�Z9Y�XUZ]�F���%ֻ�����N�N���gð�ɶ�����ۮ�m�}agbg�Ů��}�}��= ���Z~s�r:V:ޚΜ�?}����/gX���3��)�i�S��Ggg�s�󈋉K��.�>.���Ƚ�Jt�q]�z���������ۯ�6�i�ܟ�4�)�Y3s���C�Q��? ��0k߬~OCO�g��#/c/�W�װ��w��a�>�>r��>�<7�2�Y_�7��ȷ�O�o�_��C#�d�z����%g��A�[��z|!��?:�e����A���AA�������!h�쐭!��Α�i�P~���a�a��~ '���W�?�p�X�1�5w��Cs�D�D�Dޛg1O9�-J5*>�.j<�7�4�?�.fY��X�XIlK9.*�6nl������� �{�/�]py�����.,:�@L�N8��A*��%�w%� y��g"/�6ш�C\*N�H*Mz�쑼5y$�3�,幄'���L Lݛ:��v m2=:�1����qB�!M��g�g�fvˬe����n��/��k���Y- �B��TZ(�*�geWf�͉�9���+��̳�ې7�����ᒶ��KW-X潬j9�������(�x��oʿ�ܔ���Ĺd�f�f���-�[����n �ڴ �V����E�/��(ۻ��C���<��e����;?T�T�T�T6��ݵa��n��{��4���[���>ɾ�UUM�f�e�I���?�������m]�Nmq����#�׹���=TR��+�G�����w- 6 U����#pDy��� �� :�v�{���vg/jB��F�S��[b[�O�>����z�G��499�?r����C�d�&����ˮ/~�����јѡ�򗓿m|������������x31^�V���w�w��O�| (�h���SЧ��������c3-� cHRMz%������u0�`:�o�_�F5IDATx��ytUս�?�;���fN$$��@B�!�k��� -*�gE���j�O�kQ�ʠ`U�B_ �AÐ0%�Ȕ�@r3ޛ;߳��$�@��v����^�s����������$��ߢ !�W��5�̱'-٘������4�>�Rƫ$�G��0U�H}�_ _� #��k�MJ/=�9Du *ڲ�k�PQ;0��j|�*�$�^컂脛y���>�z×� B��� ��(�:$�ʔ_�6��C!B����MVx��a��ζyY����j��ƋY2�9�F�{r��r�딟F��Q��hY6��� x��[l��RC��������nt@��;P��3��� F�w��7��:�P���ɋ'���mj���Bƪ�$�Q�L��y��߷g��\���z����v5�p�v$�v櫻�`6~K �Y�X����,�:��"�o�e0II"(��,������l_�C���/4�+f�E�!q��:����u����c��樼.UE�@� �]K�W���$-�h]�JG���Dz)�`��.�A/ ���mᏣc�3jK� �!�>���$�Q�!�_�? \�C2(E �M$Z I{�U���s�ǣ���=��@Բe ޻��W�����@ �w����}�9v,)��.}*|"�s��di���,���G�]W�AC�������|<����[��ߕ������K�*�G nߴ!��‹��J�!��6(L�a)��Am��������;adf��:�xm��nh�;֦I��(���o�C~ډa?�=��s����h��E������xp����)���_���t��W�����´;8���`dz=(��@@�+,�;�`�fhl��XȌ�3,uI�~z(J����� �ZX�A����H'�À�㜦�82|��a�n�z2��I���� ���EY�h�ε<�0�q�{��C��v�˅��?"@��χ�x�WS+��N�~�KQ�J�8ل�� _.W��� !TU{�����,��"�� �;�������HI S� ��))�o�1�H�D� ���� (� ;����"Ҕ��,���� �F=���O��&�Ph>�`���y��߲ &S��P�<��'��1s�1cĂ�N����2)����@�u��tv��<�+�-&�����h��[!FSG���' � z z0��<����8d&�����E0�,��<��"!P�b4��� �{S�����X����.�囤���T��hEF��X�q0"-<����h���]�Py*����F⩍��@v�˂�Y08�� .q��a��s����(!<̫1�3�L�H��7sYW�`��qtu�\7��?�@�Y�� %Ka�x�GZ�*W�P��y�����N0r9��Z�c�%���q,��k�����!!,��>���IB��� �x1�Xu�Y���v-���ֺ��N������JP��a�2`�e5��w��u;�6�i���̃��(K���ťa��(l51��JL��O'%���]���ٖ뿉!��{*�p+f ���i8��D�ȑ���ܩ�M��V��ӟz��x�7Z�1i}�^͜���6e����x��)u�d�ˏ�V�eG�\�X1�����=n�U'�~Y����L�\,�(d!x ,�:�TW8� M`r���@��r+v�Q0��>^;˴�VbF��('����� �*O��i��j�Ӆ����^�S3&� ���{������.ی�� N;��NU%d0�Ce\r"�C�b��&t7N�7��� �ȪD�[%l�۪�$��'m?�A9tI�9>��NVL ��� 6v~M�����ъ�B���0����9$&=ώm��W�0���L���&��E���f�f��'+�9��hv��7,���M��6�D�&�^� �����8 D֮�����o��k^z��O��hP�8q�5d*��YVq3�{��������#LX4�?��jP=3�~�؅c�ݰ�̱�ұ��8̲��2�G�����j��έ�9��w7���U�X�w�85C��?!I&���o&����L���I#�^�eV�,�^t5�k� �xs˛\��U�8��."���{���ǵ�l4��ݼ�;��r"���G�/~���gJV�N糦��ZZ^k+NN�D��I$�=OE�z����|*�*{��%k���G��>�`9��b;�s���8,�qs��c��.b��q�%�>r��n�R�Ƨ�%�,�A��le#�8���}; 21�0�b�&�QX�f���q�00����$>�h�N�'�a3��A���/�r ��L5�8�GԲ'�����w;��c#�q1���h$*��V^�k��QĽ�b:i������� ����H F#�_���,��]g����Ը����`RUU���� ��"�qD���>-��ϤI�~��3�̴�����NZ[[555�eeek7�m����YF#[��Đ��R��i��L�H�r ��@��J-�Pŝ��_|�-��6y��ks�V�U~��6���w.����(��0A� 4��f��� /���C�xŊ�ٳ����z=6�����rg���mKo��o�/����a�g���?'9%9��P��斓��~���L{�� �H��{AW��B��$����v�1b�&Mb�ر��ر#�0`�`xMBp! )Z�Nmo�mZ�g�}�eذaWTVV ���'99��C5��&�&+5�bT>|8��PUUETT����&���t��~TE%��'������b�tEGG;RSS�S�N�v��ѯ��t����u1@�ޚ"f��͈���r'L�Ph��m��ƌ�74o��`�x�q�P���NRSS�X,�����l&&&��MFFA!-��`��ҷ�n��Yuu�����x<I�LB%����KԒ50�!�3�bz�����ʸKL���;---�l6[��`��������Ȏ;�����egg4��!D�T��jWujyZ��������K����%����p�^���X,6��sV=�ܖ����6�3�X ���4ҿ��A2�&����_k�;d�� �VfOIEND�B`�#!/usr/bin/perl # --------------------------------------------------------------------------- # # USAGE: xferstats # # OPTIONS: # -f Use for the log file # -r include real users # -a include anonymous users # -h include report on hourly traffic # -d include report on domain traffic # -t report on total traffic by section # -i report incoming traffic only (uploads) # -o report outgoing traffic only (download) # -e report deleted files only (just for complete) # -D report only on traffic from # this option leads to problems with the local # domain: e.g. test.com is counted under test # and not recognized under com, -D com will give # you only statistics about com excluding # test.com! use -A com for correct results. # -A
report only on traffic from addresses ends matching #
e.g. -A test.domain.com will report # only on addresses ending with test.domain.com # -l Depth of path detail for sections # -s
Section to report on, For example: -s /pub will report # only on paths under /pub # -u Report traffic for specified user. # # --------------------------------------------------------------------------- # 04.09.2013: minor change by Andretta Paolo and TJ Saunders # - enabled -d (not working) # - corrected -i & -o (not working) # - added -e # # --------------------------------------------------------------------------- # 05.09.01: minor change by Jamie Fifield (fifield@chebucto.ns.ca): # - added option u which singles out the data for a single user # # --------------------------------------------------------------------------- # 30.09.98: changes by Jan Menzel (jan.menzel@gmx.net): # -documented problems with option -D # -fixed same problems with spaces in the filenames (lines which are not # exactly 16 elements long are skipped in earlier versions) # -added option A which compares the addresses end with a given pattern # -added option i and o which reports either incoming or outgoing traffic only @mydom = split(/\./, `dnsdomainname`); $mydom2 = pop(@mydom); chop($mydom2); $mydom1 = pop(@mydom); # If you want to specify $mydom1 and $mydom2 manually you should edit the # next two lines to customize for your domain. This will allow your domain # to be separated in the domain listing. # $mydom1 = "debian"; # $mydom2 = "org"; # edit the next line to customize for your default log file $usage_file = "/var/log/proftpd/xferlog"; # Edit the following lines for default report settings. # Entries defined here will be over-ridden by the command line. $opt_a = 0; $opt_h = 0; $opt_d = 0; $opt_t = 1; $opt_l = 3; $opt_r = 0; use Getopt::Std; getopts('f:rahdD:l:s:A:iotu:e'); if ($opt_r) { $real = 1;} if ($opt_a) { $anon = 1;} if ($real == 0 && $anon == 0) { $anon = 1; } if ($opt_f) {$usage_file = $opt_f;} if ($opt_i) {$opt_i = 1;} if ($opt_o) {$opt_o = 1;} if ($opt_e) {$opt_e = 1;} open (LOG,$usage_file) || die "Error opening usage log file: $usage_file\n"; if ($opt_o) { print "Transfer totals include outgoing traffic only.\n\n"; } if ($opt_i) { print "Transfer totals include incoming traffic only.\n\n"; } if ($opt_e) { print "Transfer totals include deleted files only.\n\n"; } if ($opt_D) { $opt_D =~ tr/A-Z/a-z/; print "Transfer totals include the '$opt_D' domain only.\n"; print "All other domains are filtered out for this report.\n\n"; } if ($opt_A) { $opt_A =~ tr/A-Z/a-z/; print "Transfer totals include the addresses ending in '$opt_A' only.\n"; print "All other addresses are filtered out for this report.\n\n"; } if ($opt_s) { print "Transfer totals include the '$opt_s' section only.\n"; print "All other sections are filtered out for this report.\n\n"; } if ($opt_u) { print "Transfer totals are for user '$opt_u' only.\n"; print "All other users are filtered out for this report.\n\n"; } line: while () { @line = split; # is the first entry week day abbreviation? next if (length("$line[0]") != 3); # check whether there is a valid 'username' if ($line[$#line-7] eq "a" or $line[$#line-7] eq "b") { # yes, there i # offset points to the first element just behind the filename $offset = $#line - 7; } elsif ($line[$#line-6] eq "a" or $line[$#line-6] eq "b") { $offset = $#line - 6 } elsif ($line[$#line-5] =~ /^(a|g|r)$/) { $offset = $#line - 5; } else { next; } next if (!$opt_u && !$anon && $line[$offset+3] eq "a"); next if (!$opt_u && !$real && $line[$offset+3] eq "r"); next if ($opt_i && $line[$offset-1] ne "i"); next if ($opt_o && $line[$offset-1] ne "o"); next if ($opt_e && $line[$offset-1] ne "d"); next if ($opt_u && $line[$offset+4] ne $opt_u); $daytime = substr($_, 0, 10) . substr($_, 19, 5); $time = substr($_,11,2); if ($line[8] eq "\.") { $line[8] = "/unreadable/filename";} next if (substr($line[8],0,length("$opt_s")) ne "$opt_s"); $line[8] = substr($line[8],length("$opt_s")); @path = split(/\//, $line[8]); # # Why was the original xferstats dropping leading 1 character path # segments??? # # while (length($path[1]) <= 1) { # shift @path; # next line if ($#path == -1); # } # Things in the top-level directory are assumed to be informational files if ($#path == 1) { $pathkey = "Index/Informational Files"; } else { $pathkey = ""; for ($i=1; $i <= $#path-1 && $i <= $opt_l;$i++) { $pathkey = $pathkey . "/" . $path[$i]; } } $line[6] =~ tr/A-Z/a-z/; @address = split(/\./, $line[6]); $domain = $address[$#address]; if ($domain eq "$mydom2" && $address[$#address-1] eq "$mydom1") { $domain = $mydom1 . "." . $mydom2; } if ( int($address[0]) > 0 || $#address < 2 ) { $domain = "unresolved"; } $count = 1; if ($opt_D and substr($domain,0,length("$opt_D")) ne "$opt_D" ) { $count = 0; } if ($opt_A and substr($line[6],length("$line[6]")-length("$opt_A")) ne "$opt_A" ) { $count = 0; } if ($count) { $systemfiles{$line[6]}++; # Systems Accessing the Arc $xferfiles++; # total files sent $xfertfiles++; # total files sent $xferfiles{$daytime}++; # files per day $groupfiles{$pathkey}++; # per-group accesses $domainfiles{$domain}++; $xfersecs{$daytime} += $line[5]; # xmit seconds per day $domainsecs{$domain} += $line[5]; # xmit seconds for domain $xferbytes{$daytime} += $line[7]; # bytes per day $domainbytes{$domain} += $line[7]; # xmit bytes to domain $xferbytes += $line[7]; # total bytes sent $groupbytes{$pathkey} += $line[7]; # per-group bytes sent $xfertfiles{$time}++; # files per hour $xfertsecs{$time} += $line[5]; # xmit seconds per hour $xfertbytes{$time} += $line[7]; # bytes per hour $xfertbytes += $line[7]; # total bytes sent } } close LOG; @syslist = keys(%systemfiles); @dates = sort datecompare keys(%xferbytes); if ($xferfiles == 0) {die "There was no data to process.\n";} print "TOTALS FOR SUMMARY PERIOD ", $dates[0], " TO ", $dates[$#dates], "\n\n"; printf ("Files Transmitted During Summary Period %12.0f\n", $xferfiles); printf ("Bytes Transmitted During Summary Period %12.0f\n", $xferbytes); printf ("Systems Using Archives %12.0f\n\n", $#syslist+1); printf ("Average Files Transmitted Daily %12.0f\n", $xferfiles / ($#dates + 1)); printf ("Average Bytes Transmitted Daily %12.0f\n", $xferbytes / ($#dates + 1)); format top1 = Daily Transmission Statistics Number Of Number of Average Percent Of Percent Of Date Files Sent Bytes Sent Xmit Rate Files Sent Bytes Sent --------------- ---------- ----------- ---------- ---------- ---------- . format line1 = @<<<<<<<<<<<<<< @>>>>>>>>> @>>>>>>>>>> @>>>>>>>>> @>>>>>>> @>>>>>>> $date, $nfiles, $nbytes, $avgrate, $pctfiles, $pctbytes . $^ = top1; $~ = line1; # sort daily traffic by bytes sent foreach $date (sort datecompare keys(%xferbytes)) { $nfiles = $xferfiles{$date}; $nbytes = $xferbytes{$date}; if ($xfersecs{$date}) { $avgrate = sprintf("%5.1f KB/s", $xferbytes{$date}/$xfersecs{$date}/1024); } else { $avgrate = sprintf("undefined"); } $pctfiles = sprintf("%8.2f", 100*$xferfiles{$date}/$xferfiles); $pctbytes = sprintf("%8.2f", 100*$xferbytes{$date}/$xferbytes); write; } if ($opt_t) { format top2 = Total Transfers from each Archive Section (By bytes) ---- Percent Of ---- Archive Section Files Sent Bytes Sent Files Sent Bytes Sent ------------------------- ---------- ------------- ---------- ---------- . format line2 = @<<<<<<<<<<<<<<<<<<<<<<<< @>>>>>>>>> @>>>>>>>>>>>> @>>>>>>> @>>>>>>> $section, $files, $bytes, $pctfiles, $pctbytes . $| = 1; $- = 0; $^ = top2; $~ = line2; # sort total transfer for each archive by # files transfered foreach $section (sort bytecompare keys(%groupfiles)) { $files = $groupfiles{$section}; $bytes = $groupbytes{$section}; $pctbytes = sprintf("%8.2f", 100 * $groupbytes{$section} / $xferbytes); $pctfiles = sprintf("%8.2f", 100 * $groupfiles{$section} / $xferfiles); write; } } if ($opt_d) { format top3 = Total Transfer Amount By Domain Number Of Number of Average Percent Of Percent Of Domain Name Files Sent Bytes Sent Xmit Rate Files Sent Bytes Sent ----------- ---------- ------------ ---------- ---------- ---------- . format line3 = @<<<<<<<<<< @>>>>>>>>> @>>>>>>>>>>> @>>>>>>>>> @>>>>>>> @>>>>>>> $domain, $files, $bytes, $avgrate, $pctfiles, $pctbytes . $- = 0; $^ = top3; $~ = line3; # sort amount per domain by files foreach $domain (sort domnamcompare keys(%domainfiles)) { $files = $domainfiles{$domain}; $bytes = $domainbytes{$domain}; if ($domainsecs{$domain}) { $avgrate = sprintf("%5.1f KB/s", $domainbytes{$domain}/$domainsecs{$domain}/1024); } else { $avgrate = sprintf("undefined"); } $pctfiles = sprintf("%8.2f", 100 * $domainfiles{$domain} / $xferfiles); $pctbytes = sprintf("%8.2f", 100 * $domainbytes{$domain} / $xferbytes); write; } print "\n"; } if ($opt_h) { format top8 = Hourly Transmission Statistics Number Of Number of Average Percent Of Percent Of Time Files Sent Bytes Sent Xmit Rate Files Sent Bytes Sent --------------- ---------- ----------- ---------- ---------- ---------- . format line8 = @<<<<<<<<<<<<<< @>>>>>>>>> @>>>>>>>>>> @>>>>>>>>> @>>>>>>> @>>>>>>> $time, $nfiles, $nbytes, $avgrate, $pctfiles, $pctbytes . $| = 1; $- = 0; $^ = top8; $~ = line8; # sort hourly transmission by sent bytes foreach $time (sort keys(%xfertbytes)) { $nfiles = $xfertfiles{$time}; $nbytes = $xfertbytes{$time}; if ($xfertsecs{$time}) { $avgrate = sprintf("%5.1f KB/s", $xfertbytes{$time}/$xfertsecs{$time}/1024); } else { $avgrate = sprintf("undefined"); } $pctfiles = sprintf("%8.2f", 100*$xfertfiles{$time} / $xferfiles); $pctbytes = sprintf("%8.2f", 100*$xfertbytes{$time} / $xferbytes); write; } } exit(0); sub datecompare { $date1 = substr($a, 11, 4) * 4800; $date2 = substr($b, 11, 4) * 4800; $date1 += index("JanFebMarAprMayJunJulAugSepOctNovDec",substr($a, 4, 3)) / 3 * 400; $date2 += index("JanFebMarAprMayJunJulAugSepOctNovDec",substr($b, 4, 3)) / 3 * 400; $date1 += substr($a, 8, 2); $date2 += substr($b, 8, 2); $date1 - $date2; } sub domnamcompare { $sdiff = length($a) - length($b); ($sdiff < 0) ? -1 : ($sdiff > 0) ? 1 : ($a lt $b) ? -1 : ($a gt $b) ? 1 : 0; } sub bytecompare { $bdiff = $groupbytes{$b} - $groupbytes{$a}; ($bdiff < 0) ? -1 : ($bdiff > 0) ? 1 : ($a lt $b) ? -1 : ($a gt $b) ? 1 : 0; } sub faccompare { $fdiff = $fac{$b} - $fac{$a}; ($fdiff < 0) ? -1 : ($fdiff > 0) ? 1 : ($a lt $b) ? -1 : ($a gt $b) ? 1 : 0; }