itkadduser

gistfile1.pl

#! /usr/bin/perl
use strict;
use warnings;
use ITK::usermod;

my $host = "login.stud.ntnu.no";
my $user = $ENV{'SUDO_USER'} // $ENV{'LOGNAME'};
if (not $user) {
    $user = ITK::usermod::prompt("Brukernavn på lynx")
}
my $cmd = "finger $user | sed -e '/Name/!d;s/.*: //'";

my $output = `ssh $user\@$host "$cmd"`;
chomp($output);
print "Name: $output\n";