[TWiki-Dev] [SVN] SteffenPoulsen r10756 - twiki/branches/TWikiRelease04x00/tools

[<de...@de...>]

Author: SteffenPoulsen
Date: 2006-06-29 15:41:43 -0500 (Thu, 29 Jun 2006)
New Revision: 10756

Added:
   twiki/branches/TWikiRelease04x00/tools/create_large_groups.pl
Log:
Item2563: Script: Create a large set of users and populate groups with them

Added: twiki/branches/TWikiRelease04x00/tools/create_large_groups.pl
===================================================================
--- twiki/branches/TWikiRelease04x00/tools/create_large_groups.pl	2006-06-29 19:44:15 UTC (rev 10755)
+++ twiki/branches/TWikiRelease04x00/tools/create_large_groups.pl	2006-06-29 20:41:43 UTC (rev 10756)
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+# Create a large set of users and populate groups with them
+# (group size 10000/5000/2500/..)
+
+undef $/;
+for my $user ( 1 .. 10000 ) {
+    my $username = "TestUser$user";
+    open( U, ">data/Main/TestUser$username.txt" ) || die $!;
+    print U "   * E-mail: $username\@example.com\n";
+    close(U);
+    for my $group ( 1, 2, 4, 8, 16 ) {
+        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);
+        }
+    }
+}


Property changes on: twiki/branches/TWikiRelease04x00/tools/create_large_groups.pl
___________________________________________________________________
Name: svn:executable
   + *