Mercurial > make_username

changeset 8:542b1fb6759d

find changesets by author, revision, files, or words in the commit message
Removed debug printfs
author Eris Caffee <discordia@eldalin.com>
date Mon, 18 Jul 2011 13:08:21 -0500
parents 462ba4c70c65
children 807d649f3bc9
files make-username.pl
diffstat 1 files changed, 0 insertions(+), 5 deletions(-) [+]
line diff
     1.1 --- a/make-username.pl	Mon Jul 18 13:04:44 2011 -0500
     1.2 +++ b/make-username.pl	Mon Jul 18 13:08:21 2011 -0500
     1.3 @@ -166,16 +166,11 @@
     1.4      my $i=1;
     1.5      my $numstr;
     1.6      my $newuser = sprintf("%.".$maxlen."s", $base);
     1.7 -   # print "maxlen $maxlen\n";
     1.8 -    #print "newuser +$newuser+\n";
     1.9      while ( (user_exists($newuser, $pwdfile)) && ($i < 10**($maxlen-1)) ) { 
    1.10  	$numstr = sprintf("%d", $i);
    1.11  	$newuser = sprintf("%-".$maxlen."s", $base);
    1.12 -#    print "1 newuser $newuser\n";
    1.13  	substr($newuser, -length($numstr), length($numstr), $numstr);
    1.14 - #   print "2 newuser $newuser\n";
    1.15  	$newuser =~ s/ //g;
    1.16 -  #  print "3 newuser $newuser\n";
    1.17          $i++;
    1.18      }
    1.19