#!/opt/bin/perl

for $ts (1..6) {
    open (PM,"|pmcommand ts-$ts") || die "cant connect to ts-$ts";
    for $port(0..29) {
	print "Configuring port $port\n";
	printf PM "set S$port prompt [$ts-S%2.2d] login: \n",$port;
	print PM <<EOF;
set S$port login network dial in
set S$port speed 1 115200
set S$port speed 2 115200
set S$port speed 3 115200
set S$port parity NONE
set S$port databits 8
set S$port stopbits 1
set S$port modem on
set S$port xon/xoff off
set S$port rts/cts on
set S$port Default
set S$port service_login Rlogin
set S$port service_device Portmaster
set S$port extended on
set S$port security on
set S$port idletime 45
set S$port mtu 1006
EOF
    }
    close PM;
}

