Subversion Repositories LCARS

Rev

Rev 33 | Rev 48 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 33 Rev 45
Line 601... Line 601...
601
}    # write_data
601
}    # write_data
602
602
603
sub display_results
603
sub display_results
604
{
604
{
605
  #################### DISPLAY RESULTS #####################
605
  #################### DISPLAY RESULTS #####################
606
  println( "=" x 76 );
606
  print "=" x 76, "\n";
607
  printf "%s\n",
607
  printf "%s\n",
608
    centred(
608
    centred(
609
    __x( "Analysis of posts to {newsgroup}", newsgroup => $newsgroup_name ),
609
    __x( "Analysis of posts to {newsgroup}", newsgroup => $newsgroup_name ),
610
    76 );
610
    76 );
611
  println( "=" x 76 );
611
  print "=" x 76, "\n";
612
  printf "%s\n",
612
  printf "%s\n",
613
    centred(
613
    centred(
614
    __(
614
    __(
615
"(compiled with a script by Thomas 'PointedEars' Lahn, based on work by\nGarry Knight et al.)"
615
"(compiled with a script by Thomas 'PointedEars' Lahn, based on work by\nGarry Knight et al.)"
616
    ),
616
    ),
Line 1059... Line 1059...
1059
  return $clean;
1059
  return $clean;
1060
}
1060
}
1061
1061
1062
sub usage
1062
sub usage
1063
{
1063
{
1064
  println( __ "usage: newsstat.pl NEWS.GROUP" );
1064
  print __ "usage: newsstat.pl NEWS.GROUP", "\n";
1065
  exit 1;
1065
  exit 1;
1066
}
1066
}
1067
1067
1068
sub dmsg
1068
sub dmsg
1069
{
1069
{
Line 1072... Line 1072...
1072
1072
1073
sub dmsg2
1073
sub dmsg2
1074
{
1074
{
1075
  my ( $level, @msg ) = @_;
1075
  my ( $level, @msg ) = @_;
1076
  print STDERR @msg, "\n" if $level >= DEBUG;
1076
  print STDERR @msg, "\n" if $level >= DEBUG;
1077
}
1077
}
1078
-
 
1079
sub println
-
 
1080
{
-
 
1081
  print @_, "\n";
-
 
1082
}
-
 
1083
 
1078