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 | }
|