#!/usr/local/bin/perl

#

# Returns number of active analog and digital dial-ins

#

# This script could be very much improved - it's a quick hack

# and it works ...

#

# I'm doing a "w" sorting out all the important tty's (ttyC for cyclades

# boards) and checking if the correspond to the digita lines

#

# T.Pospisek <tpo@spin.ch> :

#

# Distributed under the GNU copyleft

#

# Number of active tty's

$isdn  = 0;

$modem = 0;

# Name of this host

$my_name = "Dial-In";

# Our digital lines

$tty{"ttyC12"}="i";

$tty{"ttyC13"}="i";

$tty{"ttyC14"}="i";

$tty{"ttyC15"}="i";

$tty{"ttyC16"}="i";

$tty{"ttyC24"}="i";

$tty{"ttyC25"}="i";

open(TTYS, "w -hs|cut -b 10-17|fgrep ttyC|");

while(<TTYS>) {

   chop;

   s/\s+//;

   if( $tty{"$_"} ) { 

       $isdn++;

   } else {

       $modem++;

   }

}

print "$modem\n";

print "$isdn\n";

print "0\n";

print "$my_name\n";