#!/opt/bin/perl

# all: static ip message

# sets up ts-3's prompts.
# port 0-5: sparcs

# 27-29:
# express message

$_="SkyNET Static IP Maintenance phone number:   (816) 421-2626
E-mail: support\@sky.net - Enter your login ID and PIN below.
 
";

s/\n/\^/g; $digmsg=$_;


open (PM,"|pmcommand ts-3.sky.net") || die "cant connect to ts-3";
for $port (6..29) {
    print PM "set S$port message $digmsg\n";
    printf PM "set S$port prompt [3-S%2.2d] login: \n",$port;
}


close PM;


$_="SkyNET Online - EXPRESS LINE - 60 MINUTE TIME LIMIT
                To report a problem, login as 'trouble'.";

s/\n/\^/g; $digmsg=$_;


open (PM,"|pmcommand ts-3.sky.net") || die "cant connect to ts-3";
for $port(27..29) {
    print PM "set S$port message $digmsg\n";
    printf PM "set S$port prompt [3-S%2.2d] login: \n",$port;
}
close PM;


