# HG changeset patch
# User Eris Caffee <discordia@eldalin.com>
# Date 1311012501 18000
# Node ID 542b1fb6759ddff6f0c23abc8505caa04e861dc3
# Parent  462ba4c70c6566d8e34ea245f43e70d2939ded83
Removed debug printfs

diff -r 462ba4c70c65 -r 542b1fb6759d make-username.pl
--- a/make-username.pl	Mon Jul 18 13:04:44 2011 -0500
+++ b/make-username.pl	Mon Jul 18 13:08:21 2011 -0500
@@ -166,16 +166,11 @@
     my $i=1;
     my $numstr;
     my $newuser = sprintf("%.".$maxlen."s", $base);
-   # print "maxlen $maxlen\n";
-    #print "newuser +$newuser+\n";
     while ( (user_exists($newuser, $pwdfile)) && ($i < 10**($maxlen-1)) ) { 
 	$numstr = sprintf("%d", $i);
 	$newuser = sprintf("%-".$maxlen."s", $base);
-#    print "1 newuser $newuser\n";
 	substr($newuser, -length($numstr), length($numstr), $numstr);
- #   print "2 newuser $newuser\n";
 	$newuser =~ s/ //g;
-  #  print "3 newuser $newuser\n";
         $i++;
     }