--- print/print.pl	2000/06/12 07:03:57	1.6
+++ print/print.pl	2001/02/15 08:35:22	1.7
@@ -37,6 +37,15 @@
 $db_user=~s/\s.+$//g;	# OSF obriši sve iza logina
 $db_user=~s/^[^!]+!//g;	# Linux obriši hostname
 close(WHO);
+if ($db_user eq "") {
+	open(ID,"id |") || die "id: $!";
+	my $foo=<ID>; chomp $foo;
+	if ($foo=~/uid=\d+\((\w+)\)/) {
+		$db_user=$1;
+	} else {
+		die "can't locate who is local user!";
+	}
+}
 
 open(HOSTNAME,"hostname |") || die "hostname: $!";
 my $hostname=<HOSTNAME>;