Rev 24 | Rev 30 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 24 | Rev 25 | ||
|---|---|---|---|
| Line 692... | Line 692... | ||
| 692 | my $i = 0; |
692 | my $i = 0; |
| 693 | foreach
|
693 | foreach
|
| 694 | my $poster ( sort { $data{$b}{count} <=> $data{$a}{count} } keys %data ) |
694 | my $poster ( sort { $data{$b}{count} <=> $data{$a}{count} } keys %data ) |
| 695 | {
|
695 | {
|
| 696 | my $name = substr( $poster, 0, 65 ); |
696 | my $name = substr( $poster, 0, 65 ); |
| 697 | printf "%2d: %-63s : %6d\n", $i + 1, rpad( $poster, 63, "." ), |
697 | printf "%2d. %-63s : %6d\n", $i + 1, rpad( $poster, 63, "." ), |
| 698 | $data{$poster}{count}; |
698 | $data{$poster}{count}; |
| 699 | last if ( ++$i == $count ); |
699 | last if ( ++$i == $count ); |
| 700 | }
|
700 | }
|
| 701 | print "\n", "=" x 76, "\n"; |
701 | print "\n", "=" x 76, "\n"; |
| 702 | }
|
702 | }
|
| Line 723... | Line 723... | ||
| 723 | my $i = 0; |
723 | my $i = 0; |
| 724 | foreach
|
724 | foreach
|
| 725 | my $poster ( sort { $data{$b}{size} <=> $data{$a}{size} } keys %data ) |
725 | my $poster ( sort { $data{$b}{size} <=> $data{$a}{size} } keys %data ) |
| 726 | {
|
726 | {
|
| 727 | my $name = substr( $poster, 0, 62 ); |
727 | my $name = substr( $poster, 0, 62 ); |
| 728 | printf "%2d: %-63s : %6d\n", $i + 1, rpad( $poster, 63, "." ), |
728 | printf "%2d. %-63s : %6d\n", $i + 1, rpad( $poster, 63, "." ), |
| 729 | $data{$poster}{size} / 1024; #/ |
729 | $data{$poster}{size} / 1024; #/ |
| 730 | last if ( ++$i == $count ); |
730 | last if ( ++$i == $count ); |
| 731 | }
|
731 | }
|
| 732 | print "\n", "=" x 76, "\n"; |
732 | print "\n", "=" x 76, "\n"; |
| 733 | }
|
733 | }
|
| Line 761... | Line 761... | ||
| 761 | )
|
761 | )
|
| 762 | {
|
762 | {
|
| 763 | next if $data{$poster}{quoted} == 0; |
763 | next if $data{$poster}{quoted} == 0; |
| 764 | next if $data{$poster}{count} < 5; |
764 | next if $data{$poster}{count} < 5; |
| 765 | my $name = substr( $poster, 0, 63 ); |
765 | my $name = substr( $poster, 0, 63 ); |
| 766 | printf "%2d: %-63s : %02.2f%%\n", $i + 1, rpad( $poster, 63, "." ), |
766 | printf "%2d. %-63s : %02.2f%%\n", $i + 1, rpad( $poster, 63, "." ), |
| 767 | $data{$poster}{percent}; |
767 | $data{$poster}{percent}; |
| 768 | last if ( ++$i == $count ); |
768 | last if ( ++$i == $count ); |
| 769 | }
|
769 | }
|
| 770 | print "\n", "=" x 76, "\n"; |
770 | print "\n", "=" x 76, "\n"; |
| 771 | }
|
771 | }
|
| Line 799... | Line 799... | ||
| 799 | )
|
799 | )
|
| 800 | {
|
800 | {
|
| 801 | next if $data{$poster}{quoted} == 0; |
801 | next if $data{$poster}{quoted} == 0; |
| 802 | next if $data{$poster}{count} < 5; |
802 | next if $data{$poster}{count} < 5; |
| 803 | my $name = substr( $poster, 0, 63 ); |
803 | my $name = substr( $poster, 0, 63 ); |
| 804 | printf "%2d: %-63s : %02.2f%%\n", $i + 1, rpad( $poster, 63, "." ), |
804 | printf "%2d. %-63s : %02.2f%%\n", $i + 1, rpad( $poster, 63, "." ), |
| 805 | $data{$poster}{percent}; |
805 | $data{$poster}{percent}; |
| 806 | last if ( ++$i == $count ); |
806 | last if ( ++$i == $count ); |
| 807 | }
|
807 | }
|
| 808 | print "\n", "=" x 76, "\n"; |
808 | print "\n", "=" x 76, "\n"; |
| 809 | }
|
809 | }
|
| Line 831... | Line 831... | ||
| 831 | sort { $threads{$b}{'count'} <=> $threads{$a}{'count'} } |
831 | sort { $threads{$b}{'count'} <=> $threads{$a}{'count'} } |
| 832 | keys %threads |
832 | keys %threads |
| 833 | )
|
833 | )
|
| 834 | {
|
834 | {
|
| 835 | my $name = substr( $thread, 0, 65 ); |
835 | my $name = substr( $thread, 0, 65 ); |
| 836 | printf "%2d: %-63s : %6d\n", $i + 1, rpad( $name, 63, "." ), |
836 | printf "%2d. %-63s : %6d\n", $i + 1, rpad( $name, 63, "." ), |
| 837 | $threads{$thread}{'count'}; |
837 | $threads{$thread}{'count'}; |
| 838 | last if ( ++$i == $count ); |
838 | last if ( ++$i == $count ); |
| 839 | }
|
839 | }
|
| 840 | print "\n", "=" x 76, "\n"; |
840 | print "\n", "=" x 76, "\n"; |
| 841 | }
|
841 | }
|
| Line 862... | Line 862... | ||
| 862 | sort { $threads{$b}{'size'} <=> $threads{$a}{'size'} } |
862 | sort { $threads{$b}{'size'} <=> $threads{$a}{'size'} } |
| 863 | keys %threads |
863 | keys %threads |
| 864 | )
|
864 | )
|
| 865 | {
|
865 | {
|
| 866 | my $name = substr( $thread, 0, 65 ); |
866 | my $name = substr( $thread, 0, 65 ); |
| 867 | printf "%2d: %-63s : %6d\n", $i + 1, rpad( $name, 63, "." ), |
867 | printf "%2d. %-63s : %6d\n", $i + 1, rpad( $name, 63, "." ), |
| 868 | $threads{$thread}{'size'} / 1024; #/ |
868 | $threads{$thread}{'size'} / 1024; #/ |
| 869 | last if ( ++$i == $count ); |
869 | last if ( ++$i == $count ); |
| 870 | }
|
870 | }
|
| 871 | print "\n", "=" x 76, "\n"; |
871 | print "\n", "=" x 76, "\n"; |
| 872 | }
|
872 | }
|
| Line 891... | Line 891... | ||
| 891 | print "=" x 76, "\n"; |
891 | print "=" x 76, "\n"; |
| 892 | my $i = 0; |
892 | my $i = 0; |
| 893 | foreach
|
893 | foreach
|
| 894 | my $name ( sort { $crossposts{$b} <=> $crossposts{$a} } keys %crossposts ) |
894 | my $name ( sort { $crossposts{$b} <=> $crossposts{$a} } keys %crossposts ) |
| 895 | {
|
895 | {
|
| 896 | printf "%2d: %-63s : %6d\n", $i + 1, rpad( $name, 63, "." ), |
896 | printf "%2d. %-63s : %6d\n", $i + 1, rpad( $name, 63, "." ), |
| 897 | $crossposts{$name}; |
897 | $crossposts{$name}; |
| 898 | last if ( ++$i == $count ); |
898 | last if ( ++$i == $count ); |
| 899 | }
|
899 | }
|
| 900 | print "\n", "=" x 76, "\n"; |
900 | print "\n", "=" x 76, "\n"; |
| 901 | }
|
901 | }
|
| Line 918... | Line 918... | ||
| 918 | 76 ); |
918 | 76 ); |
| 919 | print "=" x 76, "\n"; |
919 | print "=" x 76, "\n"; |
| 920 | my $i = 0; |
920 | my $i = 0; |
| 921 | foreach my $agent ( sort { $agents{$b} <=> $agents{$a} } keys %agents ) |
921 | foreach my $agent ( sort { $agents{$b} <=> $agents{$a} } keys %agents ) |
| 922 | {
|
922 | {
|
| 923 | printf "%2d: %-63s : %6d\n", $i + 1, rpad( $agent, 63, "." ), |
923 | printf "%2d. %-63s : %6d\n", $i + 1, rpad( $agent, 63, "." ), |
| 924 | $agents{$agent}; |
924 | $agents{$agent}; |
| 925 | last if ( ++$i == $count ); |
925 | last if ( ++$i == $count ); |
| 926 | }
|
926 | }
|
| 927 | print "\n", "=" x 76, "\n"; |
927 | print "\n", "=" x 76, "\n"; |
| 928 | }
|
928 | }
|
| Line 950... | Line 950... | ||
| 950 | foreach my $agent ( |
950 | foreach my $agent ( |
| 951 | sort { $distinct_agent{$b} <=> $distinct_agent{$a} } |
951 | sort { $distinct_agent{$b} <=> $distinct_agent{$a} } |
| 952 | keys %distinct_agent |
952 | keys %distinct_agent |
| 953 | )
|
953 | )
|
| 954 | {
|
954 | {
|
| 955 | printf "%2d: %-58s : %5d (%2.f%%)\n", $i + 1, rpad( $agent, 58, "." ), |
955 | printf "%2d. %-58s : %5d (%2.f%%)\n", $i + 1, rpad( $agent, 58, "." ), |
| 956 | $distinct_agent{$agent}, |
956 | $distinct_agent{$agent}, |
| 957 | ( ( $distinct_agent{$agent} / $totalposts ) * 100 ); |
957 | ( ( $distinct_agent{$agent} / $totalposts ) * 100 ); |
| 958 | last if ( ++$i == $count ); |
958 | last if ( ++$i == $count ); |
| 959 | }
|
959 | }
|
| 960 | print "\n", "=" x 76, "\n"; |
960 | print "\n", "=" x 76, "\n"; |
| Line 977... | Line 977... | ||
| 977 | centred( __x( "Top {count} time zones", count => $toptz ), 76 ); |
977 | centred( __x( "Top {count} time zones", count => $toptz ), 76 ); |
| 978 | print "=" x 76, "\n"; |
978 | print "=" x 76, "\n"; |
| 979 | my $i = 0; |
979 | my $i = 0; |
| 980 | foreach my $zone ( sort { $tz{$b} <=> $tz{$a} } keys %tz ) |
980 | foreach my $zone ( sort { $tz{$b} <=> $tz{$a} } keys %tz ) |
| 981 | {
|
981 | {
|
| 982 | printf "%2d: %-63s : %6d\n", $i + 1, rpad( $zone, 63, "." ), $tz{$zone}; |
982 | printf "%2d. %-63s : %6d\n", $i + 1, rpad( $zone, 63, "." ), $tz{$zone}; |
| 983 | last if ( ++$i == $count ); |
983 | last if ( ++$i == $count ); |
| 984 | }
|
984 | }
|
| 985 | print "\n", "=" x 76, "\n"; |
985 | print "\n", "=" x 76, "\n"; |
| 986 | }
|
986 | }
|
| 987 | }
|
987 | }
|