Fix some typos.

groupsstats.pl: Fix typo in lead-in comment.
groupsstats.pl/NewsStats.pm: Fix typo concerning
GetMaxLength - it isn't 'GetMaxLenght' ...

Signed-off-by: Thomas Hochstein <thh@inter.net>

diff --git a/NewsStats.pm b/NewsStats.pm
index 781272d..cc3dd83 100644 (file)
--- a/NewsStats.pm
+++ b/NewsStats.pm
@@ -36,11 +36,11 @@ require Exporter;
   FormatOutput
   SQLHierarchies
   SQLGroupList
-  GetMaxLenght
+  GetMaxLength
 );
 %EXPORT_TAGS = ( TimePeriods => [qw(GetTimePeriod LastMonth CheckMonth SplitPeriod ListMonth)],
                  Output      => [qw(OutputData FormatOutput)],
-                 SQLHelper   => [qw(SQLHierarchies SQLGroupList GetMaxLenght)]);
+                 SQLHelper   => [qw(SQLHierarchies SQLGroupList GetMaxLength)]);
 $VERSION = '0.01';
 our $PackageVersion = '0.01';
 
@@ -412,7 +412,7 @@ sub SQLHierarchies {
 };
 
 ################################################################################
-sub GetMaxLenght {
+sub GetMaxLength {
 ################################################################################
 ### get length of longest field in future query result
 ### IN : $DBHandle   : database handel

diff --git a/groupstats.pl b/groupstats.pl
index ccd7f86..bed36e2 100755 (executable)
--- a/groupstats.pl
+++ b/groupstats.pl
@@ -3,7 +3,7 @@
 # groupstats.pl
 #
 # This script will get statistical data on newgroup usage
-# form a database.
+# from a database.
 # 
 # It is part of the NewsStats package.
 #
@@ -151,7 +151,7 @@ my $WhereClause = sprintf('month BETWEEN ? AND ? AND %s AND %s %s',$QueryGroupLi
 
 # get length of longest newsgroup delivered by query for formatting purposes
 # FIXME
-my $MaxLength = &GetMaxLenght($DBHandle,$Conf{'DBTableGrps'},'newsgroup',$WhereClause,$StartMonth,$EndMonth,(@GroupList,@Params));
+my $MaxLength = &GetMaxLength($DBHandle,$Conf{'DBTableGrps'},'newsgroup',$WhereClause,$StartMonth,$EndMonth,(@GroupList,@Params));
 
 my ($OrderClause,$DBQuery);
 # -b (best of / top list) defined?