# HG changeset patch # User Eris Caffee # Date 1311002115 18000 # Node ID 065d2beb69a574c54a2e3fc2d40a482f93a9d474 # Parent 0979af167267f3f8a625222beeae98320f394571 Added lines between functions for readbility. diff -r 0979af167267 -r 065d2beb69a5 make-username.pl --- a/make-username.pl Mon Jul 18 09:37:20 2011 -0500 +++ b/make-username.pl Mon Jul 18 10:15:15 2011 -0500 @@ -134,6 +134,7 @@ defined $user and printf("%30s %-".$maxlen."s in %ds\n", $base, $user, $t2 - $t1); } +################################################################################ sub make_username { # Arguments: # The string to use as the basis of the new username. @@ -192,6 +193,7 @@ return $newuser; } +################################################################################ sub user_exists { my ($user, $pwdfile) = @_;