#!/usr/bin/perl
# Create a large set of users and populate groups with them
# (group size 10000/5000/2500/..)

#warning: does not add users to Main.WikiUsers topic     *FIXED*
#warning: does not add users and user info to htpasswd file     *FIXED*
#warning: uses out dated email storage method     *FIXED*
#warning: presumes that AllowLoginName is off

use strict;

undef $/;
open( PWD,    '>>', 'data/BIGGROUPS_htpasswd' ) || die $!;
open( TWUSER, '>>', 'data/Main/WikiUsers.txt' ) || die $!;
for my $user ( 1 .. 10000 ) {
    my $username = "TestUser$user";
    open( U, '>', "data/Main/$username.txt" ) || die $!;
    print U "   * E-mail: InTopic$username\@example.com\n";
    close(U);
    print PWD "$username:4s4huzxiijWfg:$username\@example.com\n";
    print TWUSER "   * $username - $username - 01 Jan 2001\n";
    for my $group ( 1, 2, 4, 8, 16, 3, 7, 11, 13, 17 ) {
        if ( ( $user % $group ) eq 0 ) {
            my $groupname = "Test${group}Group";
            my @cur;
            my @members;
            if ( -e "data/Main/$groupname.txt" ) {
                open( G, '<', "data/Main/$groupname.txt" ) || die $!;
                @cur = <G>;
                $cur[0] =~ s/^.*= //;
                $cur[0] .= ", Main.$username";
                push( @members, split( /,\s*/, $cur[0] ) );
                close(G);
            }
            else {
                $cur[0] .= "Main.$username";
                push( @members, $cur[0] );
            }

            open( G, '>', "data/Main/$groupname.txt" ) || die $!;
            print G "   * Set GROUP = ", join( ', ', @members ), "";
            close(G);
        }
    }
}
close(PWD);
close(TWUSER);