my $aws_PROG=ucfirst($PROG);
my $aws_VisitTimeout = $VISITTIMEOUT/10000*60;
my $aws_NbOfRobots = scalar keys %RobotsHashIDLib;
+ my $aws_NbOfWorms = scalar @WormsSearchIDOrder;
my $aws_NbOfSearchEngines = scalar keys %SearchEnginesHashLib;
while (<LANG>) {
if ($_ =~ /\<!--/) { next; } # Remove comment
s/#MaxNbOfRefererShown#/$MaxNbOf{'RefererShown'}/;
s/#VisitTimeOut#/$aws_VisitTimeout/;
s/#RobotArray#/$aws_NbOfRobots/;
+ s/#WormsArray#/$aws_NbOfWorms/;
s/#SearchEnginesArray#/$aws_NbOfSearchEngines/;
print "$_";
}