# $Id: Entry.pm,v 1.3 1997/02/07 11:32:41 rik Exp $ require Net::NISPlus::Object; package Net::NISPlus::Entry; @ISA = qw(Net::NISPlus::Object); sub new { my($name, $table) = @_; my($self) = {}; bless $self; } sub remove { } sub modify { } sub info { my($me) = shift; return { %$me }; } sub setinfo { my($me) = shift; my($info) = shift; my($ret, $res, $srchstring); @colnames = $me->{'table'}->colnames(); $srchstring = "["; foreach $key ($[..$#colnames) { $srchstring .= "," unless length($srchstring) == 1; $srchstring .= "$colnames[$key]=$me->{'values'}->[$key]"; } $srchstring .= "],$me->{'name'}.$me->{'domain'}"; ($ret, $res) = Net::NISPlus::table_setinfo($srchstring, $info); if ($ret != 0) { Net::NISPlus::prwarning("setinfo error: ", Net::NISPlus::nis_sperrno($ret), " ($ret)\n"); return (); } else { return $res; } } sub DESTROY { }