#!/usr/bin/perl
# $Id: instdev,v 1.1 1997/01/31 10:32:20 calle Exp calle $
# $Log: instdev,v $
# Revision 1.1  1997/01/31 10:32:20  calle
# Initial revision
#

$MAJOR=68;
$MAXMINOR=20;
system("rm -f /dev/capi20*");
system("mknod /dev/capi20 c $MAJOR 0");
foreach $minor (1..$MAXMINOR)
{
   $cmd = sprintf("mknod /dev/capi20.%02d c %d %d", $minor-1, $MAJOR, $minor);
   system($cmd);
}
