#!/usr/local/bin/perl
require "/usr/www/users/janssen/cgi-bin/myhq/settings.pl";
require "/usr/www/users/janssen/cgi-bin/myhq/english/utility.pl";
require "/usr/www/users/janssen/cgi-bin/myhq/layout/pagemaker.pl";

$debug=0;

use DBI;
$dbuser = "myhq";
$dbpassword = "myhqpass";
$hostname = "localhost";
$database = "myhq";

$dbh = DBI->connect("DBI:mysql:$database:$hostname", $dbuser, $dbpassword) or die "Can't connect to the database: $dbh->errstr";
$dbcounter++;

$ustatement =qq[SELECT username, userid, password FROM users LIMIT @ARGV[0],50];

my($usth,$urv) = &QueryDB($ustatement,"es",$debug);  
while(@urow = $usth->fetchrow_array){
    ($username,$userid,$password) = @urow;
    $layouttype="";
    print qq[$dbcounter : $username \t\n];
    $|=1;
    &MakePage;
    $dbcounter++;
}