#!/usr/local/bin/perl -w
# $Id: table.import,v 1.3 1997/05/05 21:45:28 rik Exp $

BEGIN { unshift(@INC, "../blib", "./blib"); }

use Net::NISPlus::Table;
use Data::Dumper;

Net::NISPlus::DebugOn;
Net::NISPlus::WarningsOn;

my($map) = shift;
my($filename) = shift;

open(DUMP, "<$filename") || die "can't open $filename\n";
eval join(" ", <DUMP>);

$me = Net::NISPlus::Table->create($map, @{$create});
$me->setinfo($info);
$me->addinfo($info->{'ta_cols'}, @{$entinfo});
close(DUMP);

sub { $create = $entinfo = "" };