109 sub names 110 { 111 unless ($nap_object->channel){ 112 print qq-No current channel\n-; 113 return; 114 } 115 foreach ($nap_object->users) { 116 printf "\t([ %-20s ]) (%-9s)(%4d)\n",$_,$_->sharing,$_->link; 117 } 118 }