#!/opt/bin/perl

# usage: ./change-prompt kc 1 2 3 4

$dom=shift @ARGV;


$digmsg="SkyNET Online - For more information login as 'guest' at the prompt.
                To report a problem, login as 'trouble'.";


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


for $ts (@ARGV) {
system("echo \"set all message $digmsg\" | pmcommand ts-$ts.kc.sky.net");
sleep 4;
    open (PM,"|pmcommand ts-$ts.$dom.sky.net") || die "cant connect to ts-$ts";
    for $port(0..46) {
	printf PM "set S$port prompt [$ts-S%2.2d] login: \n",$port;
    }
    close PM;
}
