#!/usr/bin/perl
use Carp;
use strict;
use vars qw(%config %category %form %super);
require "/var/www/vhosts/mysite.com/cgi-bin/categories.cgi";
$config{'basepath'} = '/var/www/vhosts/mysite.com/cgi-bin/';
$config{'bluedir'} = 'register';

sub count_text_files {
  my ($dirname) = @_;
  my $result = 0;
  if (!opendir DIR, $dirname) {
    carp "Cannot open $dirname: $!\n";
    return 0;
  }
  while (defined(my $file = readdir DIR)) {
    if (-T "$dirname/$file") {
      ++$result;
    }
  }
  close DIR;
  return $result;
}

my $key;
my $numusers = 1;       
$numusers += count_text_files("$config{'basepath'}$config{'bluedir'}");


my $totalfiles = 100;
foreach $key (keys %category) {
  $totalfiles += count_text_files("$config{'basepath'}$key");
}