Subversion Repositories LCARS

Rev

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
}