Automatically determine users CN

awit-ssh

@@ -34,7 +34,7 @@ if (!eval {require Term::ReadKey; 1;}) {
 	print STDERR "You're missing Term::ReadKey, try 'apt-get install libterm-readkey-perl'\n";
 	exit 1;
 }
-
+use User::pwent;
 
 
 my $VERSION = "0.0.1";
@@ -103,9 +103,16 @@ if (defined(my $knock = $optctl{'knock'})) {
 	print STDERR "success\n";
 }
 
-
-print STDERR "Your LDAP CN      : ";
-my $username = <STDIN>;
+# Try get name automatically
+my $pwent = getpwnam($ENV{'USER'});
+(my $username) = split(/,/,$pwent->gecos);
+if (!defined($username) || $username eq "") {
+	print STDERR "WARNING: Cannot determine your name, set your gecos field.\n\n";
+	print STDERR "Your LDAP CN      : ";
+	$username = <STDIN>;
+} else {
+	print STDERR "Your LDAP CN      : $username\n";
+}
 
 print STDERR "Your LDAP Password: ";
 # Don't echo password