[MKDoc-commit] [1.6 gt] randomise database username

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
[1.6 gt] randomise database username

Tags:
----
mkdoc-1-6

Modified Files:
--------------
    mkd/tools:
        install-details-gt.pl

-------------- next part --------------
Index: install-details-gt.pl
===================================================================
RCS file: /var/spool/cvs/mkd/tools/install-details-gt.pl,v
retrieving revision 1.21.2.39
retrieving revision 1.21.2.40
diff -Ltools/install-details-gt.pl -Ltools/install-details-gt.pl -u -r1.21.2.39 -r1.21.2.40
--- tools/install-details-gt.pl
+++ tools/install-details-gt.pl
@@ -177,7 +177,7 @@
     my $dbname = lc($domain_name);
     $dbname =~ s/\W+/_/g;
     
-    $config->{database_user} = $user_name . $inc;
+    $config->{database_user} = $user_name . $inc . int (rand (10000));
     $config->{database_name} = $dbname;
     $config->{database_host} = 'localhost';
     $config->run();